让用户一直按着VB的命令按钮以执行重复的代码
编号：QA004564
建立日期: 2002年3月7日 最后修改日期：2002年3月7日
所属类别：
文章:
李海译自IVBTips。
在大多数VB工程中，VB的命令按钮是最常用的。但是，按钮只有一个Click()事件。通常，让用户一直按下按钮，然后一遍遍地执行一段代码，直到用户释放按钮，这样做可能是有利的。有多种技术可以实现这点，使用Timer控件可能是比较好的。
用户按下按钮时，代码使Timer控件有效。当每次Timer控件的间隔时间到的时候，Timer控件执行要重复的代码。当用户释放按钮时，代码禁止Timer控件，停止执行。为了实现我们的技术，需要使用按钮的MouseDown()和MouseUp()事件。
为了看一下这个技术是如何工作的，打开一个标准的Visual Basic工程。放置一个标签、按钮和Timer控件在默认的窗体上。接着，右击窗体，从快捷菜单上选择“查看代码”。当IDE显示代码窗口时，输入以下代码：
Private Sub Command1_MouseDown(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
Timer1.Enabled = True
End Sub
Private Sub Command1_MouseUp(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
Timer1.Enabled = False
End Sub
Private Sub Form_Load()
Timer1.Interval = 100
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Now
End Sub
现在，按F5键开始运行工程。点击窗体上的按钮并一直按着鼠标键。当你这样做时，Timer()事件一直使用当前的事件更新标签。现在，释放鼠标键。这样就禁止了Timer控件，停止执行重复代码。
文章来源：IVBTips。
| |
|
|
| |
|
|
