Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Vielleicht so...
Autor: Levis
Datum: 11.02.02 22:42
Hi Jan! Ich habe folgenden Code mal schnell bei mir probiert: (Ein Form und einen Button) Option Explicit Public bStop As Boolean Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim i As Long bStop = False Do Label1.Caption = i i = i + 1 DoEvents Loop Until bStop End Sub Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) bStop = True End Sub Er zählt allerdings sehr schnell hoch und erreicht daher relativ schnell einen Überlauf. Vielleicht müsste man ein Intervall einbauen.... Oder mit einem Timer.... Ich werds mal probieren.... Viel Spaß, Levis

Wiederholtes MouseDown-Ereignis und Button	45	Jan	11.02.02 21:30
Re: Wiederholtes MouseDown-Ereignis und Button	404	unbekannt	11.02.02 22:34
Re: Wiederholtes MouseDown-Ereignis und Button	33	Jan	11.02.02 23:51
Vielleicht so...	40	Levis	11.02.02 22:42
Dieser CyberLord	37	Levis	11.02.02 22:43
Nun ja,	304	unbekannt	11.02.02 22:56
Re: Vielleicht so...	36	Jan	11.02.02 23:54

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