---

Hej

Jeg er lidt nybegynder i VB..

Jeg prøver på at få en command button til at blive ved med at udføre dens command så længe man holder knappen nede

Er der nogle der kan hjælpe med at få den til det?

Min kode er indtil videre:

Private Sub Command3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Sats + 1 <= (Sum - 1) Then
Sats = (Sats + 1)
Sum = (Sum - 1)
End If

---

Lav en global variabel, kaldet bmousedown
Private bmousedown

Ret koden.
Private Sub Command3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
bmousedown=true
Do
If Sats + 1 <= (Sum - 1) Then
Sats = (Sats + 1)
Sum = (Sum - 1)
End If
DoEvents
Sleep 100
Loop while bmousedown
End Sub

Private Sub Command3_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
bmousedown=false
End Sub

Koden er bare rystet ud af ærmet, og ej testet...

Mvh
www.cadmageren.dk
Michael Christoffersen

---

Tak for svaret CADmageren.

Det virkede. Jeg skulle bare lige have defineret den der "Sleep" men det fandt jeg ud af
                        

---

Eftersom du ikke er logget ind i systemet, kan du ikke skrive et indlæg til dette spørgsmål.

Hvis du ikke allerede er registreret, kan du gratis blive medlem, ved at trykke på "Bliv medlem" ude i menuen.