🚀 go-pugleaf

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
> >
> >
> >
>
>