- 建立一个EXE工程,在默认窗体上放两个按钮,一个Image控件(放一个图片)和一个计时器控件,设定其时间为100。如图38。
图38
- 在各个控件中编写程序如下:
Sub Form1_Timer1_WM_Timer(hWndForm As hWnd, wTimerID As Long)
Image1.Left=Image1.Left+1
End Sub
'[Form1.Command1]事件 : 单击
Sub Form1_Command1_BN_Clicked(hWndForm As hWnd, hWndControl As hWnd)
Timer1.Enabled=True
End Sub
'[Form1.Command2]事件 : 单击
Sub Form1_Command2_BN_Clicked(hWndForm As hWnd, hWndControl As hWnd)
Timer1.Enabled=False
End Sub