Diesen Tipp gibt es für VB4 schon, und nun soll die
selbe Funktionalität auch den VB3 Nutzern zur Verfügung stehen.
Mitunter kann es also sinnvoll sein, bestimmte Aktionen erst ausführen zu lassen, wenn
ein vorher gestarteter Task beendet ist.
Eine weitere Anwendungsmöglichkeit (wenn auch gemeine) ist zum Beispiel das kleine
Programm, das Sie auf der Seite mit VB-Know/Eigene Programme finden.
"NUTZEN.EXE"
Für unser Beispiel gehen Sie aber wie folgt vor.
Also öffnen Sie als Erstes, ein neues VB3 Projekt und fügen unter
General/Declarations folgendes ein
Declare Function GetModuleUsage Lib "Kernel" (ByVal hModule As Integer) As
Integer
Als nächstes folgt ein kleines Beispiel, das Sie sich natürlich ganz nach Ihren
Vorstellungen umstricken können.Dazu brauchen wir auf der Form einen Commandbutton. Mehr
nicht.
Dieser bekommt in die Aktion
Command1/Click folgendes zugewiesen.
'Definierung des zu startenden Programms
Startprogramm="notepad" 'nur weil der wohl immer im Suchpfad liegt.
x% = Shell(Startprogramm, 1) 'diese Schleife wird
solange abgearbeitet ....
While GetModuleUsage(x%) > 0
z% = DoEvents()
Wend
'.... bis der Task beendet ist, dann kann die nächste Anweisung erfolgen
msgbox "Task ist beendet" |