/ Forside/ Teknologi / Udvikling / VB/Basic / Spørgsmål
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Mousedown Loop Command?? eller noget...
Fra : nikolaj_holm
Vist : 548 gange
200 point
Dato : 18-12-04 20:47

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

 
 
Accepteret svar
Fra : CADmageren

Modtaget 200 point
Dato : 19-12-04 09:24

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



Godkendelse af svar
Fra : nikolaj_holm


Dato : 20-12-04 09:55

Tak for svaret CADmageren.

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

Kommentar
Fra : CADmageren


Dato : 20-12-04 10:22




Du har følgende muligheder
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.
Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408849
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste