用戶登錄  |  用戶注冊
首 頁源碼下載網絡學院最新源碼源碼排行屏蔽廣告
當前位置:新興網絡 > 網絡學院 > 編程開發 > Visual Basic

VB 創建/更改注冊表鍵值示例

減小字體 增大字體 作者:佚名  來源:本站整理  發布時間:2010-11-15 17:47:44
VBScript code復制代碼
'檢測鍵是否存在
Public Function CheckRegKeyValid(lngKey As RegisterKey, strSubKeys As String) As Boolean
'創建新Key
Public Function CreateKey(MainKey As RegisterKey, SubKey As String) As Boolean
'設置鍵值
Public Function SetKeyValue(MainKey As RegisterKey, SubKey As String, Entry As String, Value As String) As Boolean'獲取鍵值當出現錯誤時,lngType將返回-1,反之對應的鍵值
Function GetKeyValue(lngKey As RegisterKey, strSubKeys As String, strValName As String, lngType As Long) As String
 
調用方式如下:
VBScript code復制代碼
'注冊表操作示例
Sub ReadRegInformation()
    Dim lngType As Long
    '定義操作實體
    Dim Register As New Register
    '檢測是否存在"SOFTWARE\RGSOFT\RGTAMIS\SYSTEM\DBName"
    If Register.CheckRegKeyValid(HKEY_CURRENT_USER, "SOFTWARE\RGSOFT\RGTAMIS\SYSTEM\DBName") = False Then
        Register.CreateKey HKEY_CURRENT_USER, "SOFTWARE\RGSOFT\RGTAMIS\SYSTEM\DBName"
    End If
    '設置默認值為CMS
    Call Register.SetKeyValue(HKEY_CURRENT_USER, "SOFTWARE\RGSOFT\RGTAMIS\SYSTEM\DBName", "", "CMS")
    '輸出DBName的默認值
    Debug.Print Register.GetKeyValue(HKEY_CURRENT_USER, "SOFTWARE\RGSOFT\RGTAMIS\SYSTEM\DBName", "", lngType)
    '設置DBName的一個項(newitem)的值為item
    Register.SetKeyValue HKEY_CURRENT_USER, "SOFTWARE\RGSOFT\RGTAMIS\SYSTEM\DBName", "newitem", "item"
    '輸出DBName的newitem值
    Debug.Print Register.GetKeyValue(HKEY_CURRENT_USER, "SOFTWARE\RGSOFT\RGTAMIS\SYSTEM\DBName", "newitem", lngType)
End Sub

Tags:VB 注冊表 更改 創建

作者:佚名
  • 好的評價 如果您覺得此文章好,就請您
      50%(1)
  • 差的評價 如果您覺得此文章差,就請您
      50%(1)

網絡學院評論評論內容只代表網友觀點,與本站立場無關!

   評論摘要(共 0 條,得分 0 分,平均 0 分) 查看完整評論
皮皮麻将官网下载 海南飞鱼彩票复式投注 股票交易费用计算 1000炮金蟾捕鱼下载 网络麻将赌博案例 2014年四川省彩票销售额 刮刮乐手工作品 cba季后赛比分结果 陕西快乐十分前三组选 大圣捕鱼游戏 分析鲁能vs辽宁预测 超级大乐透奖金怎么算 山东11选5走势图基本走势走势图 买期货平台 卡五星麻将做鄙 长沙麻将打飘 彩票论坛首页排三藏机诗