用VB函數輕松訪問系統注冊表
本文給大家介紹用VB自帶的四個函數（參看“注冊表編程相關函數”一文），訪問系統注冊表的方法,借以說明說明這四個函數的使用。
新建工程，在Form1上放置兩個標簽，Caption屬性分別為“姓名”和“公司”；兩個文本框txtName和txtCompany，Text屬性均設為空；三個命令按鈕cmdSave、cmdFind和cmdDelete，Caption分別設為“保存”、“查看”和“刪除”。
給三個命令按鈕添加如下代碼：
| Private Sub cmdSave_Click() ′將兩個文本框中的內容分別賦給MyApp下User區中Name和Company SaveSetting ″MyApp″, ″User″, ″Name″, txtName SaveSetting ″MyApp″, ″User″, ″Company″, txtCompany MsgBox ″您的信息已成功保存！″ End Sub Private Sub cmdFind_Click() ′查找MyApp下User區中Name和Company的設置值并顯示 MsgBox ″您的姓名是：″ ＆ GetSetting(″MyApp″, ″User″, ″Name″) ＆ Chr(13) ＆ Chr(10) ＆ ″您的公司是：″ ＆ GetSetting(″MyApp″, ″User″, ″Company″) End Sub Private Sub cmdDelete_Click() ′刪除MyApp下的User區域及其下的所有注冊表項 DeleteSetting ″MyApp″, ″User″ End Sub |
運行程序，在窗口中輸入姓名和公司名稱，之后按“保存”按鈕，然后再按“查找”，可以看到顯示出了正確的結果，說明保存和查找操作都已正常進行。如果在保存之前或刪除之后按“查找”按鈕，則出現對話框，說明要找的注冊表項不存在。