hello ,
This Tutorial is Copywritien to Newsbomber.com !
Start a Standard EXE Project.
--------------------------------------------
1) Press Ctrl + T . Select Windows Common control .6
2 ) Put a Status Bar On Your Project
3 ) Now Add Two Timers . The first timer set the interveal to 100 and the other to 50000 'or any number on how long you would want it to take to change to Idle
4 ) Open the Code Layout and copy this :
Private Sub Timer2_Timer()
StatusBar1.SimpleText = "text"
Timer2.Enabled = False
End Sub
5 )enter this code
Private Sub Timer1_Timer()
Timer2.Enabled = True
End Sub
6 ) Enter This code :
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Timer2.Enabled = False
StatusBar1.SimpleText = "text"
End Sub
Thats it ENJOY
|
|
|
