VB如何调用窗口

发布网友 发布时间：2022-04-30 20:18

我来回答

共5个回答

热心网友 时间：2022-07-01 04:09

呵呵..

假设你已经显示过FORM2,并且form2的text1已经得到数据.

那么在form1的代码中可以直接使用form2的text1的值.方法就和理解的是一样的

比如说:
print form2.text1.text

假如你还是不会,那我就只能form2.show写出来了.
在form1中添加一个按钮,代码就是:
form2.show
form1.hide

这时form2中也添加一个按钮,代码是:
form1.show
form2.hide

然后就可以回到最前面了..
程序运行后,在form1按钮,打开form2..在form2的text1中输入一串字.比如"这是窗口2写的"
然后点击form2的按钮回到form1..
如果form1中有个按钮的代码是:
print form2.text1.text
就可以显示刚刚的那么字了..

我了补充呵: 设标志位呀..

比如FORM1的COMMAND1动作中, 先检查标志位,默认是FALSE, 然后就执行动作, 一直执行到SHOW FORM2, 然后FORM2就出来了, 写文本框内容, 再确定时,先改标志位为TRUE ,再HIDE FORM2,然后再CALL FORM1的COMMAND1..

FORM1的COMMAND1的代码后半部分,就是识别当标志位为TRUE时的动作.

有时候语言总是显得苍白无力呵..补充代码吧:

新建工程,2个窗体.
form1 , 一个按钮,一个Text1
form2, 一个按钮, 一个Text1

form1的代码如下:
Public cmdzt As Boolean

Public Sub Command1_Click()
If cmdzt = False Then
Me.Hide
Form2.Show
Exit Sub
End If

If cmdzt = True Then
Text1 = Form2.Text1
cmdzt = False '以便接受下一次动作
End If
End Sub

Private Sub Form_Load()
cmdzt = False
End Sub

form2的代码:
Private Sub Command1_Click()
Form1.cmdzt = True
Call Form1.Command1_Click
Form1.Show
Me.Hide
End Sub

我不知道这算不算你说的,点击窗体1的按钮, 运行到1半时(前一半呵), 打开窗体2,录入数据后,点击按钮,返回窗体1,接着刚刚的按钮继续动作..

我这个代码是在窗体1,点按钮后,因为标志为FLASE,于是打开窗体2, 在窗体2上,可以在文本框录入一些数据,然后按按钮后,将窗体1的标志位置为TRUE,然后CALL 了窗体1的按钮动作,因为标志位的变化,所以窗体1的按钮会执行剩下的代码(后一半)..就是在窗体1的文本框中显示窗体2刚刚文本框录入的信息..

热心网友 时间：2022-07-01 04:09

建两个窗体Form1、Form2
在Form1中加入一个文本框Text1和一个按钮Command1
在Form1中放入以下代码，运行看效果。估计就是你想要的了。

Private Sub Command1_Click()
For i = 1 To 100
If i = 50 Then Form2.Show 1 '注意这个1，自己看看有加跟没加有什么区别
DoEvents '这个没什么，只是为了让窗口有空反应Text1的输出。
Text1.Text = i
Next
End Sub

热心网友 时间：2022-07-01 04:10

模式窗口.
From2.Show 1
这样From2弹出时From1就会停止运行,关闭From2时From1才会继续运行.
再在From2的Unload事件中加入代用,以便Form1能得到Form2中Text1的值.例如:
Form1.Text1=Text1'让Form1中的Text1等于Form2中的Text1.

热心网友 时间：2022-07-01 04:10

在form1加入以下代码,就可看到结果

msgbox form2.text1.text

热心网友 时间：2022-07-01 04:11

好全 没得说了