Advertisement
Advertisement
| 05.29.2008 at 11:20AM PDT, ID: 23442409 |
|
[x]
Attachment Details
|
||
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37: 38: 39: 40: 41: 42: |
Option Compare Database
Option Explicit
Dim strMouseValue As String
Dim intTimerValue As Integer
Private Sub Form_Open(Cancel As Integer)
intTimerValue = 0
End Sub
Private Sub Form_Timer()
If intTimerValue > 0 Then
Debug.Print "check " & intTimerValue
intTimerValue = intTimerValue + 1
End If
End Sub
Private Sub lblTimer_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Debug.Print "down"
intTimerValue = 1
strMouseValue = "down"
Me.lblMousevalue.Caption = strMouseValue
Form_Timer
End Sub
Private Sub CheckMouse()
If strMouseValue = "down" Then
DoEvents
Me.lblTimer.Caption = intTimerValue
ElseIf strMouseValue = "up" Then
' intTimerValue = 0
Me.lblTimer.Caption = intTimerValue
Else
End If
End Sub
|