Question

VB中如何实现单击一个按钮后程序重新运行?

就是重置这个程序..菜逼求教了..

Answer 1

你好，你所说的“单击一个按钮后程序重新运行”，使用下列代码就可以实现：【窗体中有三个控件，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时，都有相同的结果。

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

Answer 2

重新运行也就是重新从你做程序时的第一个入口处开始运行的意思
假如你的程序入口是模块中默认的main()启动模块、则 command1 按钮代码如下：
Private Sub Command1_Click()
Call main
End Sub

假如你的程序入口是窗体中的Form_Load()启动模块、则 command2 按钮代码如下：
Private Sub Command2_Click()
Call Form_Load
End Sub
以上这样处理都可以说是重新运行本程序的作用了。