永发信息网

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

答案:2  悬赏:30  手机版
解决时间 2021-03-15 16:41
一个软件有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
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
我的大三匹科龙空调前两年制热正常,从2008年
戚氏烤鸭地址有知道的么?有点事想过去
员工思想教育 培训
《滁州西涧》整首诗表达了诗人怎样的思想感情
绥化安达五道街邮政储蓄银行的开户行名以及具
金丫丫幼稚园地址在哪,我要去那里办事
我的系统是盗版windows7旗舰版。现在黑屏并且
月月红花苑在哪里啊,我有事要去这个地方
小花仙安安的配音是谁
从澳门飞台湾需要港澳通行证吗
手机网络正常,玩别的都可以,为什么登微信就
我有一个可擦钢笔(可替换墨囊),原来用的是
X010/Y008(路口)地址在哪,我要去那里办事
同样量的啤酒和水,喝多了哪个危害大
宝鸡市渭滨区石鼓镇在什么地方啊,我要过去处
推荐资讯
腾东汽车电器配件厂地址在什么地方,想过去办
取名 男孩 第一个字是旖,两个字
头皮抹碘酒致使不长头发有法治?
请问仄平声调分别是指哪几声?
安徽导游考试桃花潭风景区和龙川风景区导游词
波动图像和振动图像中质点运动方向怎么判断
人民路中自行车租赁点地址在什么地方,想过去
金六福珠宝福至尊NO.87在哪里啊,我有事要去
人们在挑选瓷器时,总是要轻轻地敲一敲,听一
有个外国电影,一个男的在人群中和个女人干起
广西陆川县良田镇有多少个行政村,各村名是什
美图秀秀的打字框不见了
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?