VB 6中的模块或类中怎么访问窗体中的控件

VB 6中的模块或类中如何访问窗体中的控件？
一般要写成比如：
Form1.lable1.caption="Test Tittle" 这样的形式
能不能写成通用一点形式，比如：
me.lable1.caption="Test Tittle"
this.lable1.caption="Test Tittle"
或类似的形式？

[解决办法]

探讨

一般要写成比如：
Form1.lable1.caption="Test Tittle" 这样的形式
1、能不能写成通用一点形式，比如：
me.lable1.caption="Test Tittle"
this.lable1.caption="Test Tittle"

2、或类似的形式？

[解决办法]
可以这样访问
function aaa(a as form)
a.caption="dddddd"
end function

这样只要传入窗口就可以了 call aaa(form1)
[解决办法]
模块一般用于定义公用的方法、变量或者函数，因此，硬避免在模块的函数体代码中直接使用 form1.caption="abc"之类的代码形式，否则，相关函数或者过程将局限于命名为form1的窗体

比较好的方式是，使用参数传递

bas代码

public function aFun( f as Form,其他参数) as long '返回类型根据你的要求确定，使用Long举例
f.caption="........"
end sub

public function bFun(c as class1,其他参数) as long 
c.方法
x=c.函数(....)
end sub

窗口中的调用

sub command1_click
dim x as long
x=aFun(me,....)’调用bas函数，将窗口对象传递给函数
end sub

查看更多 下一篇