محاسبه زمان کلیک موس

[ehsanocx]

سلام دوستان
چطوری می تونم زمان پایین نگه داشتن دکمه راست کلیک موس رو محاسبه کنم ؟

دکمه راست کلیک رو نگه داشتم پایین. می خوام وقتی دکمه رو رها کردم نشان بده توی یک text باکس مقدار زمانی که من دکمه رو نگه داشتم.

[Dr.Bronx]

از MouseDown و MouseUp استفاده کنید
Mousedown فشرده شدن کلید موس
mouseup رها شدند کلید موس

[MBG73]

یک (timer(timer1 و یک (label(label1 بساز و بعد اینا رو تو قسمت General بنویس .



Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 1000
Label1 = "0"
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1 = "0"
Timer1.Enabled = True
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Timer1.Enabled = False
Label1 = Label1 & "Seconds"
End Sub

Private Sub Timer1_Timer()
Label1 = Val(Label1 + 1)
End Sub