🚀 go-pugleaf

zet volgende regels in je (General) (Declarations) :
Of je zet alles in een module, maar verander dan "Private" in "Public"

Private Declare Function ShellExecute Lib "shell32.dll" Alias _
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal _
lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String,
_
ByVal nShowCmd As Long) As Long


zet dan deze code waar je de Flash-video wilt starten:


ShellExecute Me.hwnd, vbNullString, "movie.swf", vbNullString, "c:\", 1


Jasper Levink <jasperlevink@planet.nl> schreef in berichtnieuws
8fpnnd$77atg$1@reader1.wxs.nl...
> Compile error:
> Expected: string constant
>
> Iets klopt er dus niet...
> Ik heb verder geen verstand van API, dus misschien doe ik iets verkeerd..
> Waarmoet ik deze functie zetten?
> Moet hij ook nog aangeroepen worden ofzo??
>
> Thanx.
>
> Jasper
>
> "BuiZe" <buize@buize.com> schreef in bericht
> news:9oWT4.32967$z%.33565@afrodite.telenet-ops.be...
> > Met Shell kan je enkel exe, com en pif bestanden uitvoeren (programma's
> >
> >       Retval2 = Shell("Movie1.swf", vbNormalFocus)
> >
> > als je een bestand wil openen met het gekoppelde programma doe je dit
met
> > volgende API-call
> >
> > Private Declare Function ShellExecute Lib "shell32.dll" Alias
> > "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal
> > lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As
> String,
> > ByVal nShowCmd As Long) As Long
> > _NORMAL
> >
> >
> > Jasper Levink <jasperlevink@planet.nl> schreef in berichtnieuws
> > 8fp2dr$793ts$1@reader1.wxs.nl...
> > > Hallo,
> > >
> > > Ik ben bezig met een heel klein progje dat een Flash-Movie moet gaan
> > > opstarten...
> > > Ik heb de volgende code bij een button geplaatst:
> > >
> > > Private Sub Command1_Click()
> > >      Dim Retval2
> > >      Retval2 = Shell("Movie1.swf", vbNormalFocus)
> > > End Sub
> > >
> > > Nou krijg ik alleen de volgende fout na het compileren:
> > > Run-time error '5':
> > > Invalid procedure call or argument
> > >
> > > Wat doe ik verkeerd?
> > > Het prog, vind je op:
> > > http://home.wxs.nl/~levink/schiphol.vbp
> > > ik weet niet of je de forms ook nodig hebt maar mocht het nodig zijn
> moet
> > je
> > > dat ff zeggen.
> > >
> > > Ik hoop dat iemand me kan helpen..
> > >
> > > Thanx.
> > >
> > > Jasper
> > >
> > >
> > >
> >
> >
>
>