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.941 Themen, 20.715 Beiträge
Wie sieht denn die andere Sub aus?
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!
Es kann sein, daß die Anwendung noch nicht fertig geladen ist, wenn Du sie aktivieren möchtest.
Warum machst Du eigentlich NoFocus, aktivierst die Anwendung dann aber direkt?
Hallo !
Habe mal "vbNormalNoFocus" weggelassen.
funktioniert auch nicht bei allen spielen.
Beim deaktivieren dieser Funktion starte ich 4gewinnt
und es kommt nicht das ganze Window sondern nur ein Titelleiste......
Wie proggt man mein Vorhaben eigentlich richtig ?
Danke !Harry!
Was hast Du denn vor?
Eigentlich habe ich auf meiner FORM 20 Bilder die aus Screenshots hergestellt
und verkleinert wurden.
Klickt man auf eines der Spiele, wird die .exe gestartet. Fertig.Sonst nix.
Ich bekomme Fehler von Runtime-Error über fehlende Grafiken oder gar nicht
startende Programme.........bei dem Spiel so....und bei anderen eben anders.
Andere funzen wieder ganz normal......
Ich habe eigentlich schon aufgegeben.......alle Icons auf dem Desktop gelegt......
Danke !Harry!
Versuchs mal damit:
http://www.activevb.de/tipps/vb6tipps/tipp0148.html