计时器制作方法

计时器制作方法

一、新建一个名为“计时”的窗体；

二、在窗体中添加一个文本框控件，名称为“Time ”，标签为“计时”；

三、打开窗体属性对话框，完成以下任务：

1、将“事件”选项卡的“计时器间隔”改为1000；

2、将光标定位到“计时器触发”行，单击“„”按钮，进入VBE 环境；

3、在代码框中选择“open ”事件，出现子过程区，在其上方定义变量flag 为Boolean ，并在子过程中输入代码：flag=True；

4、在Timer 事件的子过程中输入以下代码：

If flag = True Then

Form_计时.Time.Text = Val(Form_计时.Time.Text) + 1

End If

四、在窗体中添加一个命令按钮，完成以下操作：

1、将其标签改为“暂停”；

2、右键单击按钮，在菜单中选择“事件生成器”；

3、在“选择生成器”对话框中选择“代码生成器”，单击“确定”；

4、在新生成的过程中输入代码：flag=false。

五、在窗体中添加一个命令按钮，完成以下操作：

1、将其标签改为“继续”；

2、右键单击按钮，在菜单中选择“事件生成器”；

3、在“选择生成器”对话框中选择“代码生成器”，单击“确定”；

4、在新生成的过程中输入代码：

Form_计时.Time.SetFocus

flag=true

六、关闭VBE 窗口，运行窗体。

计时器制作方法

一、新建一个名为“计时”的窗体；

二、在窗体中添加一个文本框控件，名称为“Time ”，标签为“计时”；

三、打开窗体属性对话框，完成以下任务：

1、将“事件”选项卡的“计时器间隔”改为1000；

2、将光标定位到“计时器触发”行，单击“„”按钮，进入VBE 环境；

3、在代码框中选择“open ”事件，出现子过程区，在其上方定义变量flag 为Boolean ，并在子过程中输入代码：flag=True；

4、在Timer 事件的子过程中输入以下代码：

If flag = True Then

Form_计时.Time.Text = Val(Form_计时.Time.Text) + 1

End If

四、在窗体中添加一个命令按钮，完成以下操作：

1、将其标签改为“暂停”；

2、右键单击按钮，在菜单中选择“事件生成器”；

3、在“选择生成器”对话框中选择“代码生成器”，单击“确定”；

4、在新生成的过程中输入代码：flag=false。

五、在窗体中添加一个命令按钮，完成以下操作：

1、将其标签改为“继续”；

2、右键单击按钮，在菜单中选择“事件生成器”；

3、在“选择生成器”对话框中选择“代码生成器”，单击“确定”；

4、在新生成的过程中输入代码：

Form_计时.Time.SetFocus

flag=true

六、关闭VBE 窗口，运行窗体。

相关文章