VB 关闭form2 再打开form2 刷新当前窗体

一个软件有form1 和 form2
form2 里面一个按钮，这个按钮功能就是刷新作用
text1= 0030 【0030前面有2个空格】默认值
我现在用按钮
text1= 0030 最后自动变成30了

能不能关闭自己在打开自己 就成 text1框内 text1= 0030

还是怎么才能满足这样的功能呢

Option Explicit
    Dim strTxt As String

Private Sub Command1_Click()
    strTxt = "0030"
    Text1 = strTxt
End Sub

Private Sub Form_Load()
    On Error GoTo usererr
    Open App.Path & "\sj.txt" For Input As #2
        Input #2, strTxt
    Close
    Text1 = strTxt
usererr:
End Sub

Private Sub Form_Unload(Cancel As Integer)
    strTxt = Text1
    Open App.Path & "\sj.txt" For Output As #2
        Print #2, strTxt
    Close
End Sub 给LZ一段代码,需要用文件来保存和读取。

在form1和form2都打开的状态下，在form2执行 unload me 或在 form1执行 unload form2 关闭form2时，均不会关闭form1的。但如果在任一窗体执行end则所有窗体都关闭。 你可以这样： private sub command1_click() unload form2 end sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息