1.在Form_Click()中
me.hide
if 另一窗口.hwnd<>0 then load 另一窗口
另一窗口.show
2.在Text1_Change()中
另一窗口.Text1.text=text1.text
me.hide
if 另一窗口.hwnd<>0 then load 另一窗口
另一窗口.show
2.在Text1_Change()中
另一窗口.Text1.text=text1.text
解决方案 »
- 大家讨论一下,生成小图标用什么软件,谁有谁给我发一个
- 寻找VB的闪亮点--大家都用VB来开发什么东西呢?或者说用VB找的什么工作呢
- 请教高手,office中插入图片,然后可以编辑图片的功能接口,是否在vb中可以调用
- delphi中的pchar在vb中是什么啊?怎样把vb中的string转化为delphi中的pchar?急!
- 请教如何使窗体不遮住任务栏?
- datagrid问题
- 简单问题,高分求助,散分100,马上结帖
- 从access数据库里把数据导入到sqlserver中的浮点数问题
- 在vb程序中如何获得字段长度?
- VB中Call MessageBox(plMessage, vbOKOnly + vbInformation)在.net中使用方法是?
- 急!VB6 的DATA REPORT中不能对控件编程?
- 如何判断数据已到前台?
1、在前一个窗体的鼠标点击事件中写:
public sub Form_Click()
Form2.show
unload me
End Sub2、在窗体2的text1的change事件中写:
public sub text1_change()
Form1!text1.text=text1.text
end sub
public sub Form_Click()
Form2.show
Form2.text1.text=Form1.text1.text
Form1.hide
end sub
我现在没法试,应该可以的.
假设你的前一窗体是Form1,后一窗体是Form2
在Form1窗体的鼠标单击事件中写:
Private Sub Form_Click()
Me.Hide
Form2.Show
End Sub
在Form2窗体的Text1的Change事件中写:
Private Sub Text1_Change()
Form1.Text1.Text = Me.Text1.Text
End Sub
注:以上代码当你在Form2窗体的Text1中输入时,Form1窗体不会自动显示(因为你没说),如果要显示出来,则要在Private Sub Text1_Change()中加入Form1.Show即可。