| | | 建立一个测试程序 | | 2001-02-28·
·adding译··yesky
| 1 2 下一页
既然已经创建了一个COM组件，那么现在就来测试它吧。
关闭Northwind工程；
新建一个"Standard EXE"工程；
该工程是用来处理我们的类的。
在表单Form1中添加一个标签和一个列表框，如图所示。
该列表框用来保存客户和相应的ID号。这里，假如用户单击[Find Customer]按钮，则弹出一个对话框，用来编辑相应的内容。下面我们来设计这个对话框：
选择"Project"->"Add Form"菜单；
在表单中添加七个标签、七个文本编辑框和一个命令按钮；
按下图来布局这些控件；
好了，这就是我们要设计的，现在来添加一些代码。
在具体与Northwind工程打交道之前，我们先来添加相关的引用：
选择"Project"->"References"菜单；
快速浏览一下引用列表项，可以发现多了一些许多像ADO库和Excel自动化的COM组件。
找到并选中"Northwind"，然后按[OK]按钮；
添加这个引用的目的是在应用程序中使用前面创建过的Northwind工程的功能。
为Form1添加下列代码：
Private Sub Form_Load()
Dim Cust As Customer
Set Cust = New Customer
Do Until Cust.EOF = True
List1.AddItem (Cust.CustomerID & " " & _Cust.CompanyName)
Cust.MoveNext
Loop
Set Cust = Nothing
End Sub
Private Sub lstCustomers_Click()
Dim strCustomerID As String
'Grab the CustomerID from the List Box entry
strCustomerID = Mid(lstCustomers.Text, 1, 5)
'Load the Customer
Form2.LoadCustomer (strCustomerID)
End Sub
上述代码非常简单，在Form_Load中，程序新建一个Customer对象，然后在列表框中循环添加用户ID号和公司名称，直到EOF属性为真。
需要说明的是，EOF表示"End Of File"(文件结尾)。一个记录集的EOF属性为真时是指指针到达记录结尾的时候。
1 2 下一页 | | | 感谢
访问天极网，如果您觉得该文章涉及版权问题，请看这里！
|
|
