读书人

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

发布时间: 2012-02-10 21:27:42 作者: rapoo

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



读书人网 >VB

热点推荐