很多狐友还不会写类,不会用对象,今天来讲一点基础。
什么是“对象引用”呢?比如,现在我们有一个表单form1,表单上有一个页框pageframe1,页框的第一页上有一个表格grid1,现在,我要把第一列的标题设置为“第一列”,把背景色设置为灰色,正常情况下,我们不得不输入长长的对象层次如:
thisform.pageframe1.page1.grid1.column1.header1.caption = ”第一列“
thisform.pageframe1.page1.grid1.column1.BackColor = RGB(192,192,192)
使用With……EndWith结构可以让上面麻烦的输入变得简单点:
WITH thisform.pageframe1.page1.grid1.column1
.header1.caption = "第一列"
.BackColor = RGB(192,192,192)
ENDWITH
这里是要求代码一定连续,如果不连续又该怎么办? 把这个对象放入一个变量,变量就变成了对象的分身。
LOCAL oColumn ’建立对表格中Column1对象的引用
oColumn = thisform.pageframe1.page1.grid1.column1
oColumn.header1.caption = ”第一列“
oColumn.BackColor = RGB(192,192,192)
这里创建oColumn变量,然后把它赋值Column1对象,其实不是真的赋值了,其实只是一个指向,这个对象还是原来的位置,这个对象引用,这样,我们就可以像直接操作Column1对象那样操作oColumn变量了。
对oColumn的任何操作都会反映到Column1对象上。
看上去,这个所谓的“对象引用”变量跟普通变量好像没什么区别。那就让我们来证明一下。
继续使用前面的例子,不过要把上述代码中的Local改为Public,然后把这些代码放入到表单的Init方法中去,运行这个表单后关闭它,看看发生了什么。
“表单关不掉了!是不是死机了?让我按下Ctrl+Alt+Del试试……”
“NO!不要这样!”,并没有死机,只是对象的引用在作怪而已。你可以打开调试器来看看究竟发生了什么事:在Local窗口里,表单的变量名还在,它的类型为“O”,可它的值已经为“.NULL.”,也就是说:表单事实上已经被释放了。而在下方的oColumn变量则不同,它的类型为“O”,值却是“对象”!
原因:任何在表单中建立的Public变量在表单释放时都不会自动被释放。
由于我们将oColumn对象声明为Public了,所以oColumn对象在关闭表单后没有被释放。
从这里我们可以看到:利用对象引用的技术,就可以访问到表单上的任何一个对象,这是普通变量所不能达到的。
让我们考虑一下对象引用的优点:对象引用是一种变量,因此你可以像传递一个普通变量那样传递它,包括将它传递到另一个表单;同时,对象引用又不止是一种变量而已,它可以拥有自己的属性、事件、方法——这意味着你甚至可以自由自在地向它添加任意多个自定义属性!
现在让我们做个精彩的试验: 1、建立一个表单Form1,表单上放上3个文本框Text1, Text2, Text3、一个Custom对象Custom1、一个命令按钮cmdTransObj,在命令按钮的Click事件中放入如下代码:
Do form form2 with this.Custom1
Thisform.Refresh()
2、建立一个模式表单Form2(把该表单的WindowType属性设置为“1—模式”),像表单1那样放上3个文本框,给表单建立一个自定义属性oFrm1Cust,在表单的 Init事件中输入以下代码:
PARAMETER oCustom
This.oFrm1Cust = oCustom
WITH this
.Text1.Value = . oFrm1Cust.parent.Text1.Value
.Text2.Value = . oFrm1Cust.parent.Text2.Value
.Text3.Value = . oFrm1Cust.parent.Text3.Value
ENDWITH
3、在Form2上再添加一个命令按钮cmdReturn,其中放入以下代码:
WITH THISFORM
. oFrm1Cust.parent.Text1.Value = .Text1.Value
. oFrm1Cust.parent.Text2.Value = .Text2.Value
. oFrm1Cust.parent.Text3.Value = .Text3.Value
ENDWITH
THISFORM.Release
OK,现在运行Form1,在三个文本框中各输入一些数据,然后按下命令按钮。表单1上的数据现在都传递到表单2的三个文本框里了,现在再把表单2里面的数据改动一下,然后按下命令按钮CmdReturn,表单2中所做的改动又反映到表单1里了!
你可以使用这个方法轻松地在表单间传递多个数据,而且由于可以直接在被调用表单中修改对象引用的数据,你甚至不需要返回任何参数——想想难以从一个表单返回数组的情况、从一个用CreateObject(表单类)的方法建立的表单中无法返回参数的情况——你完全可以相信:这就是最棒的魔术!