VB-Homepage Tipp 086

Programmfortsetzung erst nach Anwendungsende

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"


Tipp-Download

Quelle :

Zurück zur Übersichtsseite