vb重新运行程序

H:

If

Mid(locate,

4)

<>

".txt"

Then

locate

=

MsgBox("请输入正确的径锋桥樱",vbRetryCancel,

"地址消罩错误")

If

locate

=

(vbRetry

Or

vbCancel)

Then

GOTO

H‘问这里填什么，让应银丛用程序初始化

Open

locate

For

Input

As

#1

...

只纤尘要在按钮下把form_load代码复制过来就行了！

也可以用粗竖敬goto语句，先在程序初始化代码前加 标号 然后再按钮Click事件里用GOTO跳转，不过不建议这样。

手岩慎机答题，望采纳

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

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

---