Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Timerproblem!
Autor: Ronny42Dach
Datum: 23.08.01 11:21
Schaut euch mal den Timer an und sagt mir wieso der nur einmal bis Timerende durchgeht undnicht neu beginnt! Timerwerte sind: Enabled = True Interval = 400 Timerlisting ------------------------------------------------------------------------------------------------------ Private Sub tmrEncoderZu_Timer() Me.Label3 = "timerstart" If StopeC = True Then GoTo StopeC If AllcloseD = True Then GoTo AllcloseD If SchliesseN = True Then Me.Label3 = "Fenster schliessen" SetFocusWnd xhWnd SendMessage xhWnd, WM_SYSCOMMAND, SC_CLOSE, LNULL SchliesseN = False GoTo Timerende End If Me.Label3 = "ermittel Fenster" xhWnd = FindWindow(vbNullString, "RCA mp3PRO Encoder") If xhWnd > 0 Then 'ist MP3pro Encoderfenster geöffnet Me.Label3 = "Fenster ist" SchliesseN = True Else Me.Label3 = "Fenster ist nicht" Me.tmrEncoderZu.Interval = 10 AllcloseD = True End If GoTo Timerende AllcloseD: Me.Label3 = "Allclosed" StopeC = True GoTo Timerende StopeC: Me.Label3 = "Stoppec" StopeC = False Allcosed = False Me.tmrPlayerClose.Enabled = True Me.tmrPlayerClose.Interval = 500 Me.tmrEncoderZu.Enabled = False Me.tmrEncoderZu.Interval = 0 Timerende: Me.Label3 = "Timerende" End Sub

Timerproblem!	68	Ronny42Dach	23.08.01 11:21
Re: Timerproblem!	41	Tolwyn	23.08.01 13:50
Re: Timerproblem!	45	Ronny42Dach	23.08.01 14:43
vergesst nie das Option Explicit!	38	Ronny42Dach	23.08.01 15:48
Wunderbar (ot)	36	Tolwyn	23.08.01 15:51

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