VB制作一個通信卡片ActiveX控件

建立的"通信卡片"控件包括：姓名、職務、單位、地址和電話，如圖1.1所示。

　　具體操作按以下步驟進行：

　　第一步：建立一個容器

　　啟動Visual Basic 6.0，在新建工程對話框中選擇"標準EXE"，單擊"確定"按鈕，建立一個啟動過程，作為用戶控件的容器。窗體的Caption屬性設置為"通信卡片測試"。

　　第二步：增加一個工程（用戶控件工程）

　　執行"文件"菜單中的"添加工程"命令，在"添加工程"對話框中選擇"ActiveX 控件"圖標，然后單擊"打開"按鈕。此時程序中加入一個新的工程，并把一個新控件加入工具箱中。在工具箱中該控件的圖標呈灰色顯示，表明當前還不能使用。

 
　　圖1.1

　　第三步：設計控件的可視界面

　　在用戶控件窗體上畫5個標簽、一個圖像框、一個直線和一個形狀。在圖像框中加入一個圖標或位圖，直線的BorderWidth屬性設置為2。Label1的FontSize屬性值為18，Label2的FontSize屬性值為10，Label3、Label4、Label5的FontSize屬性值都為12；這五個標簽的Alignment屬性為2；另外設置Label1的FontName為"隸書"，Label1的Caption屬性為"張 風 緒"，Label2的Caption屬性為"銷售部經理"，Label3的Caption屬性為"中國長城技術開發總公司"，Label4的Caption屬性為"地址：北京市海淀區中關村路80586號"， Label5的Caption屬性為"電話：（010）62585432"。

　　二、 添加屬性

　　上面方法建立的控件只能建立一張通信卡片，為了用該控件建立內容不同的通信卡片，必須為控件增加必要的屬性，通過這些屬性建立不同的卡片。這里通過"ActiveX控件接口向導"為用戶控件添加屬性。操作如下：

　　1、 執行"外接程序"菜單中的"ActiveX控件接口向導"命令，打開"ActiveX控件接口向導"對話框，如圖2.1所示。如果"外接程序"菜單中沒有"ActiveX控件接口向導"命令,可執行該菜單中的"外接程序管理器"命令，打開"外接程序管理器"對話框，如圖2.2所示，在該對話框中雙擊"VB ActiveX控件接口向導"，然后單擊"確定"按鈕。


　　圖2.1


　　圖2.2

　　單擊"下一步"按鈕，顯示"選定接口成員"對話框，如圖2.3所示。用">"或"<"按鈕可以把選擇的成員（屬性、方法和事件）從一個列表框移到另一個列表框，用"<<"或">>"按鈕可把一個列表框中的全部成員移到另一個列表框。對于本控件，不需要選擇任何屬性，可通過"<<"按鈕將"選定名稱"列表框清除。


　　圖2.3　                                                                     圖2.4

　　2、 單擊"下一步"按鈕，顯示"創建自定義接口成員"對話框，如圖2.4所示。單擊"新建"按鈕，將打開"添加自定義成員"對話框，如圖2.5所示。在該對話框中的"名稱"欄中輸入成員名稱（例如"姓名"），在"類型"部分選擇"屬性"，然后單擊"確定"按鈕，即為用戶控件建立一個屬性。重復上述操作，依次為控件添加"職務"、"單位"、"地址"、"電話"幾個屬性。添加后的對話框如圖2.6所示。


   　 圖2.5

　　3、 單擊"下一步"按鈕，顯示"設置映射"對話框，如圖2.7所示。

　?。?）在"公用成員"列表框中選擇"姓名"。

　?。?）在"控件"的下拉列表中選擇"Label1"?！　?br/>
　?。?）在"成員"的下拉列表中選擇"Caption"。

　　重復上述操作，分別把"職務"、"單位"、"地址"、"電話"映射到Label2、Label3、Label4、Label5，在"成員"的下拉列表中均選擇"Caption"。


　　圖2.6　　                                                    圖2.7

　　4、 單擊"下一步"按鈕，顯示"已完成"對話框，如圖2.8所示

　　如果想查看上述操作的總結報告，可選擇"查看總結報告"復選框。單擊"完成"按鈕，將顯示"ActiveX控件接口向導總結"對話框，如圖2.9所示。如想保存該對話框的內容，可單擊"保存"按鈕，否則單擊"關閉"按鈕，關閉該對話框。


　　圖2.8                                                 　　圖2.9

　　以上是用"ActiveX控件接口向導"為用戶控件添加屬性的操作過程。在完成上述操作后，該"向導"將為用戶控件自動生成代碼。

原文轉自：http://www.anti-gravitydesign.com