Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: gedrückter Mausbutton
Autor: Hannes
Datum: 24.08.02 19:04
Picturebox und textfeld auf formular legen Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Dim s As String Dim bMousUp As Boolean Private Sub Form_Load() bMousUp = False End Sub Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Do s = s & "x" Text1.Text = s Sleep 100 'Wegen Geschwindigkeit DoEvents Loop Until bMousUp = True End Sub Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) bMousUp = True End Sub

gedrückter Mausbutton	63	Neo	24.08.02 14:14
Re: gedrückter Mausbutton	45	Hannes	24.08.02 19:04
Jo danke )	39	Neo	24.08.02 21:57

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