一个软件有form1 和 form2
form2 里面一个按钮,这个按钮功能就是刷新作用
text1= 0030 【0030前面有2个空格】默认值
我现在用按钮
text1= 0030 最后自动变成30了
能不能关闭自己在打开自己 就成 text1框内 text1= 0030
还是怎么才能满足这样的功能呢
VB 关闭form2 再打开form2 刷新当前窗体
答案:2 悬赏:30 手机版
解决时间 2021-03-15 16:41
- 提问者网友:雨不眠的下
- 2021-03-15 02:48
最佳答案
- 五星知识达人网友:未来江山和你
- 2021-03-15 03:56
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一段代码,需要用文件来保存和读取。
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一段代码,需要用文件来保存和读取。
全部回答
- 1楼网友:千杯敬自由
- 2021-03-15 05:11
在form1和form2都打开的状态下,在form2执行 unload me 或在 form1执行 unload form2 关闭form2时,均不会关闭form1的。但如果在任一窗体执行end则所有窗体都关闭。
你可以这样:
private sub command1_click()
unload form2
end sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯