在VB的一个工程中,有两个窗体,怎样实现两个窗体之间数据的传递???具体说明如下:
窗体1中有Text1和Text2,和一个Command(确定)按钮,窗体2有Text1,Text2,。。。。。Text20,想实现的功能是:点击一次窗体1的Command...
窗体1中有Text1和Text2,和一个Command(确定)按钮,窗体2有Text1,Text2,。。。。。Text20,想实现的功能是:
点击一次窗体1的Command按钮,窗体1的Text1和Text2的内容分别传递给窗体2的Text1和Text2,
再点击一次窗体1的Command按钮,窗体1的Text1和Text2的内容分别传递给窗体2的Text3和Text4,
再点击一次窗体1的Command按钮,窗体1的Text1和Text2的内容分别传递给窗体2的Text5和Text6, 以此类推,请问程序是怎样的?谢谢!!! 展开
点击一次窗体1的Command按钮,窗体1的Text1和Text2的内容分别传递给窗体2的Text1和Text2,
再点击一次窗体1的Command按钮,窗体1的Text1和Text2的内容分别传递给窗体2的Text3和Text4,
再点击一次窗体1的Command按钮,窗体1的Text1和Text2的内容分别传递给窗体2的Text5和Text6, 以此类推,请问程序是怎样的?谢谢!!! 展开
4个回答
展开全部
建立一个模块在里面定义全局变量就OK啦
global str1 as string
global str2 as integer
global str1 as string
global str2 as integer
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
第一,建议窗体2中的Text1和Text2用数组控件,可以方便代码编写,这样做,窗体2中的Text控件分别为Text1(0)~Text1(9),Text2(0)~Text2(9)这20个Text控件。
第二,定义一个变量i,如Dim i as integer,定义放在模块头部,即不要放在Command1的Click事件中。
第三,点击窗体1的Command1按钮时给窗体2的Text1(i)和Text2(i)进行赋值,Click事件如下:
form2.text1(i).text=text1.text
form2.text2(i).text=text2.text
i=i+1
第二,定义一个变量i,如Dim i as integer,定义放在模块头部,即不要放在Command1的Click事件中。
第三,点击窗体1的Command1按钮时给窗体2的Text1(i)和Text2(i)进行赋值,Click事件如下:
form2.text1(i).text=text1.text
form2.text2(i).text=text2.text
i=i+1
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
在Command按钮的事件中写代码:
statict int i=0; //计算点击的次数
i=i+1;//点击一次数量加一
窗体2 f2=new 窗体2 ();
switch(i)
{
case 1:
f2.textbox1.text=this.textbox1.text;
f2.textbox2.text=this.textbox2.text;
break;
case 2:
f2.textbox3.text=this.textbox1.text;
f2.textbox4.text=this.textbox2.text;
break;
case 3:
f2.textbox5.text=this.textbox1.text;
f2.textbox6.text=this.textbox2.text;
break;
case 4:
f2.textbox7.text=this.textbox1.text;
f2.textbox8.text=this.textbox2.text;
break;
case 5:
f2.textbox9.text=this.textbox1.text;
f2.textbox10.text=this.textbox2.text;
break;
case 6:
f2.textbox11.text=this.textbox1.text;
f2.textbox12.text=this.textbox2.text;
break;
.......................其他的都类似。
}
statict int i=0; //计算点击的次数
i=i+1;//点击一次数量加一
窗体2 f2=new 窗体2 ();
switch(i)
{
case 1:
f2.textbox1.text=this.textbox1.text;
f2.textbox2.text=this.textbox2.text;
break;
case 2:
f2.textbox3.text=this.textbox1.text;
f2.textbox4.text=this.textbox2.text;
break;
case 3:
f2.textbox5.text=this.textbox1.text;
f2.textbox6.text=this.textbox2.text;
break;
case 4:
f2.textbox7.text=this.textbox1.text;
f2.textbox8.text=this.textbox2.text;
break;
case 5:
f2.textbox9.text=this.textbox1.text;
f2.textbox10.text=this.textbox2.text;
break;
case 6:
f2.textbox11.text=this.textbox1.text;
f2.textbox12.text=this.textbox2.text;
break;
.......................其他的都类似。
}
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询