vb6.0中如何在不同的窗体事件中实现按值传递参数?
我在form1中生成了两个随机数字a,b这两个值我需要按值传递到form2中。我想使用publicsub1(byvalmasinteger,byvalnasinteger...
我在form1中生成了两个随机数字a,b
这两个值我需要按值传递到form2中。
我想使用public sub1(byval m as integer,byval n as integer)
但是vb不让我这样定义!!!
我该怎样将a,b 的值传过去???? 展开
这两个值我需要按值传递到form2中。
我想使用public sub1(byval m as integer,byval n as integer)
但是vb不让我这样定义!!!
我该怎样将a,b 的值传过去???? 展开
2个回答
展开全部
全局变量会使程序速度变慢 这样办:
form2:dim a as integer,b as integer
以上为form2的定义
办法兆姿1:
form2:
sub getNumber(numa as integer,numb as integer)
a=numa
b=numb
end sub
form1里族差绝面调用:form2.getnumber a,b 即可 a为数字a b为数字b
方法2(同样是在form2里面这样定义)form2:dim a as integer,b as integer
form1:
form2.a = a
form2.b = b
a为随即数字a,b为随即数字B
方法3:form1:
public a as integer,b as integer
form1里面庆枣直接用a = int(rnd*??)+1:b = int(rnd*??)+1
form2里面也可以直接用:msgbox a & " " & b
因为public是公共的 所以form2里面的a,b实际上是form1的
form2:dim a as integer,b as integer
以上为form2的定义
办法兆姿1:
form2:
sub getNumber(numa as integer,numb as integer)
a=numa
b=numb
end sub
form1里族差绝面调用:form2.getnumber a,b 即可 a为数字a b为数字b
方法2(同样是在form2里面这样定义)form2:dim a as integer,b as integer
form1:
form2.a = a
form2.b = b
a为随即数字a,b为随即数字B
方法3:form1:
public a as integer,b as integer
form1里面庆枣直接用a = int(rnd*??)+1:b = int(rnd*??)+1
form2里面也可以直接用:msgbox a & " " & b
因为public是公共的 所以form2里面的a,b实际上是form1的
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询