如何通过一个命令按钮来停止前一个命令按钮的动作

tudarong

学习制作了一个游走字幕，点击“开始”按钮后，字幕开始游走，
想通过点击“停止”按钮来停止这个游走动作，
请教：
这个停止的命令按钮，代码该怎么写呢？
20180729_制作游走字幕 - 副本.rar (16.31 KB, 下载次数: 15)

2018-7-29 22:21 上传

点击文件名下载附件

1. Private Sub CommandButton1_Click()
   
2.     Dim bRight As Boolean
   
3.     Dim sngTime As Single
   
4.     Do
   
5.         If bRight = False Then
   
6.             Label1.Left = Label1.Left + 1
   
7.             If Label1.Left >= Frame1.Left + Frame1.Width Then
   
8.                 bRight = True
   
9.                 Label1.Caption = "ﾎﾒｰｮExcel Home｣｡"
   
10.             End If
    
11.         Else
    
12.             Label1.Left = Label1.Left - 1
    
13.             If Label1.Left <= -100 Then
    
14.                 bRight = False
    
15.                 Label1.Caption = "I Love EH&#65379;&#65377;"
    
16.             End If
    
17.         End If
    
18.         sngTime = Timer
    
19.         Do While Timer < sngTime + 0.01
    
20.             DoEvents
    
21.         Loop
    
22.     Loop
    
23. End Sub

复制代码

yangyangzhifeng

设置一个全局变量，游走时检查这个变量，决定是否退出，停止按钮只要改变这个变量的值就好了

tudarong

yangyangzhifeng 发表于 2018-7-30 07:09
设置一个全局变量，游走时检查这个变量，决定是否退出，停止按钮只要改变这个变量的值就好了

感谢指点，但还是不懂怎么写，可以抽空写下吗？

yangyangzhifeng

请见附件 20180729_制作游走字幕 - 副本.rar (15.42 KB, 下载次数: 101)

2018-7-30 07:44 上传

点击文件名下载附件

tudarong

yangyangzhifeng 发表于 2018-7-30 07:44
请见附件

终于对全局变量有了一定的了解，感谢指点。