UC知道求高人救命~~~实在解决不了老
来源：百度知道 编辑：UC知道 时间：2024/07/04 23:20:36
求高人救命~~~实在解决不了老
我做了一个vb程序，有两个窗体
form1和form2;
form1中有一个textbox控件接受输入文字。在此窗体内我放了一个command控件。点击时:form2 show
然后，在form2中进行参数设置，点确定将参数传入form1中，并执行UNLOAD ME。这时我发现原来输入在form1的text里面的内容消失了
请问这是怎么回事啊？
该如何解决呢？？
望高人指点，在下感激不尽……
定义全局变量：
Public mytext As String
form1的代码：
Private Sub command1_Click()
form2.show
end sub
form2的代码：
Private Sub command_ok_change()
mytext="djfh"
me.hide‘注：这里我用unload me或me.hide都不行，问题仍然存在
end sub
我做了一个vb程序，有两个窗体
form1和form2;
form1中有一个textbox控件接受输入文字。在此窗体内我放了一个command控件。点击时:form2 show
然后，在form2中进行参数设置，点确定将参数传入form1中，并执行UNLOAD ME。这时我发现原来输入在form1的text里面的内容消失了
请问这是怎么回事啊？
该如何解决呢？？
望高人指点，在下感激不尽……
定义全局变量：
Public mytext As String
form1的代码：
Private Sub command1_Click()
form2.show
end sub
form2的代码：
Private Sub command_ok_change()
mytext="djfh"
me.hide‘注：这里我用unload me或me.hide都不行，问题仍然存在
end sub
你们都错了，人家说的是在form1中text值不变的情况下加入新的值进去。
之前在两个窗体中分别添加各添加一个text控件和commang控件 。form2.text1.text为你加入到form1中的内容
form1代码:
Private Sub Form_Load()
Text1.Text = "窗体1中文本原先文档的内容"
End Sub
Private Sub Command1_Click()
Form2.Show
End Sub
form2的代码：
Private Sub Command1_Click()
Form1.Text1.Text = Text1.Text + Form1.Text1.Text
Unload Me
End Sub
把两个窗体的代码贴上来看看。
在打开form2时是不是unload form1了。使用me.hide，不要使用unload me。
啊哈~初手的问题。我也遇见过。
unload me这个是卸除啦，不存在啦！以后Show时直接读入各个控件的设计时填写的属性，当然因为"The 一个textbox"的text默认数值乃空而消失也！
用Hide吧，它会保留一切的(可见程度除外)
在form2的unload之前就把值传过去
方法:将form1、mytext类设置为public form1.mytext=this.TextName.Text