主题：急切求助：A窗体中的程序如和让同一项目中的B窗体也运行此程序？
xinying2005
[专家分：0] 发布于 2005-12-02 11:02:00
A窗体中的程序如和让同一项目中的B窗体也运行此程序？
谢谢～！
回复列表 （共11个回复）
沙发
chenjin145 [专家分：200] 发布于 2005-12-02 20:08:00
a窗体中(form1)
public function eg
end function
b窗体中(form2)
Private form1 As New form1
就可调用form1.eg了
板凳
xinying2005 [专家分：0] 发布于 2005-12-02 21:24:00
如果form1中有很多function和事件，form2如何引用？
3 楼
andy5337 [专家分：760] 发布于 2005-12-03 11:31:00
把function和事件写到模块中去
并且都要设置成全局的
你在任何一个form窗体中都能直接调用了
4 楼
xinying2005 [专家分：0] 发布于 2005-12-03 19:02:00
form1中的事件是和其控件联系在一起的，如果写到模块中去，模块中是不能识别的呀？
谢谢！
5 楼
andy5337 [专家分：760] 发布于 2005-12-05 15:28:00
你在form1里调用模块中的函数不就可以了吗 ？
如果不行，那你说的“事件是和其控件联系在一起的”什么意思？
举例解释一下。
6 楼
GBY [专家分：130] 发布于 2005-12-05 16:17:00
form1里
dim for2 as form2
public sub f2(byval f as form2)
for2=f
end sub
form2里
private sub *****
dim f as form1
f.f2(me)
f.show
end sub
你就可以在f2里调用f1里的对象了。
7 楼
andy5337 [专家分：760] 发布于 2005-12-06 11:01:00
public for2 as form2
public function f2(byval f as form2)
for2=f
end sub
private sub *****
dim f as form1
f2(me)
f.show
end sub
这样就可以了，你试试看。其他的依此类推。
8 楼
xinying2005 [专家分：0] 发布于 2005-12-06 12:42:00
1 public for2 as form2
2 public function f2(byval f as form2)
3 for2=f
4 end sub
请问：第一行和第2、3、4行实现的不是同一功能吗，为了把变量定义成窗体变量？
5 private sub *****
6 dim f as form1
7 f2(me) ‘这句程序是什么意思？
8 f.show
9 end sub
5、6、7、8、9程序段是把form1和form2都定义在一个函数中，一起运行吗？
9 楼
andy5337 [专家分：760] 发布于 2005-12-07 08:38:00
1 public for2 as form2
2 public function f2(byval f as form2)
3 for2=f
4 end sub
请问：第一行和第2、3、4行实现的不是同一功能,function f2相当于new
10 楼
xinying2005 [专家分：0] 发布于 2005-12-08 11:34:00
5 private sub *****
6 dim f as form1
7 f2(me) ‘这句程序是什么意思？
8 f.show
9 end sub
5、6、7、8、9程序段是把form1和form2都定义在一个函数中，一起运行吗？
我来回复
您所在位置：