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

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

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

用win32api函数

shellexecute

它是最好的

原型为

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

'再窗体画个按钮

private sub command1_click()

ShellExecute me.hwnd,"open","文件路径","运行参数","",显示方式

end sub

'其中文件路径为你要打开的文件，当然不只exe文件，如果是exe文件则可以带参数，显示方式有很多种，为1时表示正常显示

---