🚀 go-pugleaf

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