VB中通过form1的控件调用了form2,怎么将form2中的处理结果传回form1的相应控件?
Form1中有多个控件都调用了Form2,我想通过Form2处理以后再将结果传回Form1中调用Form2的那个控件中,请问如何做?比如说,Form1中有2个Label,...
Form1中有多个控件都调用了Form2,我想通过Form2处理以后再将结果传回Form1中调用Form2的那个控件中,请问如何做?
比如说,Form1中有2个Label,我点击其中任何一个都显示Form2,Form2里有一个TextBox和一个按钮。
如果我点击Label1,会显示Form2,我在TextBox里输入一段字符后,点击按钮可以将Form1.Label1.Capital设置为这段字符。
如果我点击Label2,也会显示Form2,输入一段字符后,点击按钮可以将Form1.Label2.Capital设置为这段字符。
请问该如何实现?谢谢~
其实我不明的地方就是,当Form2中点击按钮以后,该怎么判断TextBox里的内容是传给Form1.Label1.Capital还是传给Form1.Label2.Capital呢?实际程序中,Form1里有16个Label都在调用Form2,所以我不知道该如何在Form2里判断是哪个控件调用的,并且将值传回调用的那一个控件中。 展开
比如说,Form1中有2个Label,我点击其中任何一个都显示Form2,Form2里有一个TextBox和一个按钮。
如果我点击Label1,会显示Form2,我在TextBox里输入一段字符后,点击按钮可以将Form1.Label1.Capital设置为这段字符。
如果我点击Label2,也会显示Form2,输入一段字符后,点击按钮可以将Form1.Label2.Capital设置为这段字符。
请问该如何实现?谢谢~
其实我不明的地方就是,当Form2中点击按钮以后,该怎么判断TextBox里的内容是传给Form1.Label1.Capital还是传给Form1.Label2.Capital呢?实际程序中,Form1里有16个Label都在调用Form2,所以我不知道该如何在Form2里判断是哪个控件调用的,并且将值传回调用的那一个控件中。 展开
6个回答
展开全部
label用数组控件,不使用全局变量的话,可以在form1中使用一个控件来存储index
form1: label1(0),label1(1),lblIndex(前面两个是数组控件)
form2: text1,command1
form1 code:
Private Sub Label1_Click(Index As Integer)
lblIndex.Caption = Index
Form2.Show
End Sub
form2 code:
Private Sub Command1_Click()
Form1.Label1(Form1.lblIndex.Caption).Caption = Text1.Text
form2.hide
End Sub
form1: label1(0),label1(1),lblIndex(前面两个是数组控件)
form2: text1,command1
form1 code:
Private Sub Label1_Click(Index As Integer)
lblIndex.Caption = Index
Form2.Show
End Sub
form2 code:
Private Sub Command1_Click()
Form1.Label1(Form1.lblIndex.Caption).Caption = Text1.Text
form2.hide
End Sub
展开全部
定义一些全局变量,通过这些变量来传递数据。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
这个没有什么的哈,其实是很简单的了,你可以用个公共变量来控制,还有你可以写Form2的公共函数或是其他的来获取,总之实现的方法是很多的了哈
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
建模板 或者写个public函数 都可以
比如:
public i as ingterger
Label1_Click事件
i=1
form2.show
Label2_Click事件
i=2
form2.show
然后form2的command_click事件里
if i=1 then
Form1.Label1.Capital=form2.textbox.text
else
if i=2 then
Form1.Label2.Capital=form2.textbox.text
end if
end if
me.unload
就可以了
比如:
public i as ingterger
Label1_Click事件
i=1
form2.show
Label2_Click事件
i=2
form2.show
然后form2的command_click事件里
if i=1 then
Form1.Label1.Capital=form2.textbox.text
else
if i=2 then
Form1.Label2.Capital=form2.textbox.text
end if
end if
me.unload
就可以了
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Private sub label1_click()
form2.show
end sub
Private sub cmd_click()
form1.label1.capital=text1.text
unload me
end sub
form2.show
end sub
Private sub cmd_click()
form1.label1.capital=text1.text
unload me
end sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询