• Home
 · 
• Windows API Call/Explanation
 · 
• An API Timer

An API Timer

An API Timer

Rate An API Timer

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Public Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long

Public Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
     
    Public Sub AnimateLbl()

      with Form1.Lblan
       .left = .left + 30  'Move the label by 30 units
         if .left >= Form1.width then  'If the label has reached the end
           .left = -1360 'Reset Back to the Original Position
             end if
             end with    
   End Sub


'Add a command button and a label with its name to Lblan
'Add this code in Form1

            Private Sub Form_Load()
            'Set the label position
              Lblan.Left = -1360
            End Sub
    
            
            Private Sub Command1_Click()
            'Start Animation  
            SetTimer Me.hwnd, 0, 10, AddressOf Animate
            End Sub

            Private Sub Form_Unload(Cancel As Integer)
            
            'Stop the timer and animation
            'Instead you can use another button to stop
            
            'Private Sub Command1_Click()
            'KillTimer Me.hwnd, 0
            'End Sub  
            
            KillTimer Me.hwnd, 0
            End Sub


                              'Coded By Kiran.