VB如何运行同一个工程下的第2个窗口。。就是想要运行form2结果运行form1
展开全部
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刚刚文本框录入的信息..
那么在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刚刚文本框录入的信息..
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
如果是选运行form1,然后想form2,就在form1中用代码 form2.show来激活form2.
如果是想一开始就先执行form2,那设置工程的启动属性
通过菜单,工程-----(最下面) 工程1 属性------通用-----启动对象,设置为form2,确定,即可。
如果是想一开始就先执行form2,那设置工程的启动属性
通过菜单,工程-----(最下面) 工程1 属性------通用-----启动对象,设置为form2,确定,即可。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
form2.show
form1.hide
form1.hide
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询