Visual Basic COM基础讲座之类的建立之一(转)

在本节中，我们来实践一下。首先创建一个COM对象，然后使用它，最后再想法改进。

　　 首先进行下面两步：

　　 运行Visual Basic；选择 "Standard EXE"工程类型；由于COM对象是基于类的，而类实际上是程序包，就像模块中的代码一样。所以：

　　 选择"Project"->"Add Class Module"；当相应的对话框出现后，选择"'Class Module"，然后单击"Open"按钮。

　　 这样，在桌面上显示一个表单，以及包含在工程Project1中的Class1。

　　 下面再将空的类的类名更改：

　　 在类的属性窗口中，将类的Name属性改成CDog。

　　 需要说明的是，为了区别起见，每个对象名的前面都有相应的前缀，例如Text Box对象前是"txt"、Form前是"frm"、类前可以大写字母"C"或小写字母"cls"，但这里使用前者。

　　 下面我们添加一些代码来测试一下：

　　 在CDog类通用声明部分中，添加变量的声明：

Public Name As String

　　 然后，打开Form1；

　　 在表单中添加一个命令按钮；

　　 打开代码窗口，为该命令按钮添加下列代码：

Dim MyDog As CDog 　　 Set MyDog = New CDog 　　 MyDog.Name = "Billy Moore" 　　 MsgBox MyDog.Name 　　 Set MyDog = Nothing

　　 下面就来解释上述代码的含义：

Dim MyDog As CDog

　　 该行语句是用来通知Visual Basic为CDog对象设置一个位空间，但这时还不能使用该对象，必须等到下条语句为止：

Set MyDog = New CDog

　　 它是用来创建CDog的实例。这就意味着前面空的MyDog模板变成了现在可以使用的CDog对象。

MyDog.Name = "Billy Moore" 　　 MsgBox MyDog.Name

[@more@]

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/8781179/viewspace-925181/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/8781179/viewspace-925181/