Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: ProgressBar
Autor: JürgenK
Datum: 27.03.03 18:59
Gute Frage, ich starte die Anwendung nach folgendem Tipp von Dieter Otter: 'zunächst die benötigten API-Funktionen Private Declare Function WaitForSingleObject Lib _ "kernel32" (ByVal hHandle As Long, _ ByVal dwMilliseconds As Long) As Long Private Declare Function CloseHandle Lib "kernel32" _ (ByVal hObject As Long) As Long Private Declare Function OpenProcess Lib "kernel32" _ (ByVal dwDesiredAccess As Long, _ ByVal bInheritHandle As Long, _ ByVal dwProcessId As Long) As Long Private Const INFINITE = -1& Private Const SYNCHRONIZE = &H100000 'Warten, bis Anwendung beendet Private Sub WaitForProceed(ByVal sFile As String, _ ByVal wStyle As VbAppWinStyle) 'Parameterbeschreibung 'sFile: Anwendung, die gestartet werden soll 'wStyle: Darstellungsart des Anwendungsfensters Dim taskID As Long Dim Handle As Long taskID = Shell(sFile, wStyle) Handle = OpenProcess(SYNCHRONIZE, False, taskID) Call WaitForSingleObject(Handle, INFINITE) Call CloseHandle(Handle) End Sub

ProgressBar	481	JürgenK	27.03.03 06:49
Re: ProgressBar	348	Dieter	27.03.03 09:08
Re: ProgressBar	336	JürgenK	27.03.03 09:47
Re: ProgressBar	76	tomcat	27.03.03 10:49
Re: ProgressBar	309	Killerkeule	27.03.03 14:53
Re: ProgressBar	369	JürgenK	27.03.03 18:59

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen