怎么让按钮点击一次暂停再点击一次程序就开始

在你的程序你面设置一个参数ZANTING，如果按钮1点击，则ZANTING=1，程序进入死循环，如果按钮2点击，则ZANTING=0，程序跳出死循环 代码如下：

在你的程序里面写如下代码：

waitdone2:

If ZANTING = 1 Then

System.Threading.Thread.Sleep(100)

GoTo waitdone2

End If

If ZANTING = 0 Then

GoTo NEXTdone2

End If

NEXTdone2:

在按钮里面写如下代码：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

ZANTING = 1

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

ZANTING = 0

End Sub

你好，你所说的“单击一个按钮后程序重新运行”，使用下列代码就可以实现：【窗体中有三个控件，Command1，Command1，list1】

Private Sub Command1_Click() '重新运行程序按钮

Call Form_Load

End Sub

Private Sub Command2_Click() '简单运算按钮

kk = kk + 1

Print "kk=" kk

List1.AddItem Str(List1.ListCount) & "我爱你，塞北的雪"

End Sub

Private Sub Form_Load() '窗体加载

'Cls'此三行模拟对程序进行初始化

'List1.Clear

'kk = 0

kk = kk + 1

Print "kk=" kk

End Sub

但是这里存在一个问题，就是每一次重新运行，所得到的结果都不同。这是因为该次运行的变量值，都要受到上次运行的影响。

所以，我们应该在Form_Load事件代码中，对所有的变量值做一次初始化（也就是让1-3行代码有效），才能保证每次Form_Load时，都有相同的结果。

其实，我们可以完全可以用单击一个按钮事件，来专门完成对所有变量的初始化功能，这与重新运行程序效果是一样的。

.版本

2

.子程序

_按钮1_被单击

运行

(“这里输入应用程序名”,

假,

)

'其中应用程序名为该应用程序的完整路径

'

例如单击按钮1要打开同目录下的应用程序temp.exe,则参数1的内容改为:取运行目录()+"\temp.exe"

---