Button

[Morpheus]

hi,

wie kann ich machen das wenn man auf nem button draufbleibt der code für den button dauernt ausgeführt wird?
zb.

private sub command1_click()
move.kugel kugel.left +1 kugel.top +1
end sub


mfg, Morpheus

 

[Justus]

Du könntest z.B einen Timer verwenden der Anfachs Enabled=False ist.
In diesen Timer schreibst du deinen Code rein, den er ausführen soll.
Dann musst du nur Command1.MouseDown und Command1.MousUp verwenden:

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Timer1.Enabled = True
End Sub

Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Timer1.Enabled = False
End Sub

So, hoffe ich konnte dir helfen

Justus

 

[Morpheus]

hm.. scheint leider nich zu funzen.. ne andere idee?

 

[Johannes Postler]

ich bin mir nicht ganz sicher, aber so könnte es funktionieren(abgewandelte version von Justus):

Private Sub Command1_mousedown(Button As Integer, Shift As Integer, X As Single, Y As Single)
variable = true
End Sub

private Sub Command1_mouseup(Button As Integer, Shift As Integer, X As Single, Y As Single)
variable = false
End sub

Timer1_timer()
If variable = true then
'dein Code
End if
End Sub

hoffe, das ich jetzt helfen konnte

cu tirolausserfern

 

[Morpheus]

hm.. geht leider auch nicht, oder mach ich was falsch mit den timern oder so, muss man da was beachten?
ich denk ich lass es einfach weg, geht auch ohne..

aber trotzdem mal danke..

 

[ambient]

hi!

mach das doch mal so:

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Timer1.Enabled = True
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
move.kugel kugel.left +1 kugel.top +1
End Sub

 

[Justus]

Wahrscheinlich hast du einfach nur vergessen beim Timer ein Intervall einzugeben !!!

 

[Morpheus]

jo genau, hatte keinen intervall eingegeben jetzt gehts nämlich wunderbar! thx!