实验名称:在
VB
中制作计时器
实验步骤:
-
在桌面中双击VB6.0打开程序。
-
在工具箱窗口找到计时器timer的图标,单击图标并在窗体中创建计时器。
-
在窗体中双击计时器图标,在弹出的对话框中输入“屏幕1.caption=time( )”然后关闭窗口。
-
选定计时器timer,在属性窗口中找到interval并将后面的数值改为1000。
-
在工具箱窗口找到Label,单击图标并在窗体中创建,在属性窗口中找到“名称”一栏并将后面改为“屏幕1”。在工具栏中单击“启动”即可出现效果。
-
在工具箱窗口找到command button的图标,单击图标并在窗口中创建,在属性窗口中找到caption并把其后面改为“停止”。
-
在窗体中找到“停止”并双击,输入“me.timer1.Enable=False”,然后关闭窗口。在工具栏中单击“启动”即可出现效果。
-
在工具箱窗口找到command button的图标,单击图标并在窗口中创建,在属性窗口中找到caption并把其后面改为“重新开始”。
-
在窗体中找到“重新开始”并双击,输入“me.timer1.Enable=Ture”,然后关闭窗口。
-
在form1的空白处双击,在弹出的对话框中Form_Load()下输入Me.Timer1.Enabled = False
-
在工具栏中单击“启动”即可出现效果。