1、首先我们在工具箱中的复选按钮控件。
2、接下来双击直接在窗体上绘制。
3、或者我们可以点击一下复选按钮控件,然后在页面上拖曳绘制。
4、如果觉得外观不满意,我们可以在属性窗口中更改。
5、同样可以直接双击进入代码窗口。
6、直到编写完毕后我们点击运行。
比较简单的方法,程序可以这样写(本程序只提供一个思路,本身不完整,还须有其它部分才能运行):
private sub command1_click()
if command1.caption="暂停" then
****
command1.caption="继续"
else
****
command1.caption="暂停"
end if
end sub
其中的“****”可以编写程序要执行的其它操作。
这样便可只使用一个command1按钮实现暂停与继续。本人经常使用这种方法啊!
时钟控件的暂停和继续?
Private Sub Command1_Click()
If Timer1.Enabled = True Then
Timer1.Enabled = False
Command1.Caption = "继续"
Else
Timer1.Enabled = True
Command1.Caption = "暂停"
End If
End Sub