Buttontaste mit autorepeat wenn ich sie gedrückt halte

[troll]

Hallo zusammen,
ich bin neu hier und habe schon ein Problem:

Wenn ich die Buttontaste test gedrückt halte,
soll meine SUB test_Click das Zeichen an die
serielle Schnittstelle mehrmals (autorepeat) senden.

Bis jetzt sendet sie nur einmal pro "draufdrücken".

Könnt ihr mir helfen ?

Gruß
Wolfgang

PS Danke

[wolfgang]

Hallo Wolfgang,
herzlich willkommen bei Basic4PPC.
Wer programmiert hat immer ein Problem und für dessen Lösung sind ja Foren da.
Das Ereignis test _click wird erst ausgelöst, wenn der Button wieder losgelassen wird. Wenn Du genau weißt wie oft etwas wiederholt werden muss, kannst Du folgendes probieren:

Sub Globals
	'Declare the global variables here.
End Sub

Sub App_Start 
	Form1.Show
End Sub


Sub Button1_Click
	For i = 0 To 100
		Form1.Text = i
		i = i + 1
		Sleep(100)
	Next
End Sub

Die Schnittstelle habe ich durch Form1.Text ersetzt. Das Sleep(100) dient nur dazu, dass Du besser siehst was passiert.

Gruß Wolfgang

[troll]

Hallo Wolfgang,

danke für die schnelle Antwort.

Leider brauche ich eine Lösung, die
mir nur solange "repeatet" wie ich draufdrücke.

Leider kann ich nicht vorhersagen wieviele Kommandos
notwendig sind.

Gibt es dafür eine andere Lösung ?

Gruß
Wolfgang

[berndgoedecke]

Gruß

berndgoedecke

[troll]

Hallo berndgoedecke,

danke dein file läuft.

Nur wenn ich das in meine Applikation kopiere
dann fehlen mir unter form1-button1 die Events ButoonDown und ButtonUp.

Was mache ich falsch ?

Gruß
Wolfgang

[berndgoedecke]

Gruß
berndgoedecke

[troll]

Dankeschön

Viele Grüße
Wolfgang

[troll]

hallo berndgoedecke,

leider wird der button nicht mehr grün
nachdem ich ihn gedrückt habe.

wie komme ich wieder zu meiner farbe?

schöne grüße
wolfgang