Hallo !
Mein Programm besteht aus immer gleichen Subs.
Das Programm startet eigentlich nur Spiele die
sich auc C:\Spiele befinden.
Hier ein Beispiel:
Private Sub Picture5_Click(Index As Integer)
Dim TaskID1 As Long
TaskID1 = Shell("c:\spiele\KONG\KONG.exe", vbNormalNoFocus)
AppActivate TaskID1
End Sub
Das funzt.
ABER:
Wenn ich eine andere Sub ausführe (TaskID2)
bekomme ich nach dem Beennden der exe immer die Meldung
"Run Time Error 5.......Invalid procedure call at argument"
Was mache ich falsch ????
Herzlichen Dank !Harry!
Programmieren - alles kontrollieren 4.935 Themen, 20.621 Beiträge
Private Sub Picture6_Click(Index As Integer)
Dim TaskID2 As Long
TaskID2 = Shell("c:\spiele\breakout\breakout.exe", vbNormalNoFocus)
AppActivate TaskID2
End Sub
--------------------------------------------------------------------------------------------------------
Private Sub Picture7_Click(Index As Integer)
Dim TaskID3 As Long
TaskID3 = Shell("c:\spiele\snowman\snowman.exe", vbNormalNoFocus)
AppActivate TaskID3
End Sub
Die Bilder haben alle Index=0
u.s.w.
Grüße !Harry!