在本节中，我们来实践一下。首先创建一个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类通用声明部分中，添加变量的声明：
然后，打开Form1；
在表单中添加一个命令按钮；
打开代码窗口，为该命令按钮添加下列代码：
下面就来解释上述代码的含义：
该行语句是用来通知Visual Basic为CDog对象设置一个位空间，但这时还不能使用该对象，必须等到下条语句为止：
它是用来创建CDog的实例。这就意味着前面空的MyDog模板变成了现在可以使用的CDog对象。
[@more@]
首先进行下面两步：
运行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 |
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/8781179/viewspace-925181/ ，如需转载，请注明出处，否则将追究法律责任。
请登录后发表评论
登录
全部评论
