比如:
Dim a as New Object '创建一个Object,并使a指向它,计数为1
Dim b as Object '创建一个Object变量b(值为Nothing)
Set b=a '使b指向 a指向的那个Object,计数+1(2)。(这是会使b以前指向的对象对象计数-1。但b以前是Nothing,不做处理)
Set a=Nothing '使a不指向任何Object,原来指向的对象计数-1(1)
Set b=Nothing '使b不指向任何Object,原来指向的对象计数-1(0),所以对象卸载
dim m as form,n as form,o as form
set m=new Form1
set n=new form1
set o=new form1
m.show
n.show
o.show
就可以同时有四个(包括原来那个)完全一样窗体显示出来。
对象类型更多的时候是用在其他非组件类的使用上。
如ADODB、stdFont、stdPicture、stdColor、Recordset、自定义类等等
看ADODB.Connection的声明
Dim Cnn as new adodb.connection
这就创建了adodb.connection的一个实例。
谢谢,我问的正是这个。那么再问一下:
第一种:Private Sub Command1_Click()
STATIC int1 as commandbutton
set int1=cmd1
int1.caption="11111"
和
第二种:Private Sub Command1_Click()
cmd1.caption="11111"
效果是不是一样,我经过实验,是一样的,那么第一种存在的意义是什么,用变量岂不是很麻烦吗?