日本国产亚洲-日本国产一区-日本国产一区二区三区-日本韩国欧美一区-日本韩国欧美在线-日本韩国欧美在线观看

當前位置:雨林木風下載站 > 技術開發教程 > 詳細頁面

VB讀寫ini文件

VB讀寫ini文件

更新時間:2022-04-28 文章作者:未知 信息來源:網絡 閱讀次數:

自從注冊表誕生以來ini文件正在逐漸失去其市場占有率,然而基于ini文件的獨立性,致使其還沒有到達退出歷史舞臺的地步,很多應用程序的初始化和一些界面參數的設置仍然很愿意從ini文件中讀取,為了保證操作需用參數對ini文件的讀取的通明性,建議使用一個模塊來完成此工作。注:所有操作調用標準的Win API函數來完成。

Dim Ret As Long

Dim Start As Long

Public FileName As String

Const BufSize = 10240

Dim buf As String * BufSize

Private Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal nDefault As Long, ByVal lpFileName As String) As Long



Private Declare Function GetPrivateProfileSection Lib "kernel32" Alias "GetPrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long



Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long



Private Declare Function WritePrivateProfileSection Lib "kernel32" Alias "WritePrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpString As String, ByVal lpFileName As String) As Long



Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long



Public Sub SetValue(ByVal clsName As String, ByVal key As String, ByVal V As String)

    Ret = WritePrivateProfileString(clsName, key, V, FileName)

End Sub



Public Function GetValue(ByVal clsName As String, ByVal key As String) As String

    Ret = GetPrivateProfileString(clsName, key, "", buf, BufSize, FileName)

       Start = 1

       GetValue = RetStr()

End Function



Private Function RetStr() As String

     Dim i As Long

     i = InStr(Start, buf, Chr(0))

     If i > Start Then

       RetStr = Mid(buf, Start, i - Start)

     End If

     Start = i + 1

End Function



至此已經完成了對一個完整的獨立模塊的封裝,接下來就來看看怎么引用(其實看完上面程序就明了了)

溫馨提示:喜歡本站的話,請收藏一下本站!

本類教程下載

系統下載排行

主站蜘蛛池模板: 欧美成人www在线观看网页 | 91久久夜色精品国产网站 | 天天干天天射天天插 | 日韩去日本高清在线 | 亚洲综合国产一区二区三区 | 久久久99精品| 在线欧美精品国产综合五月 | 天堂网在线视频 | 日日麻批视频 | 日日射影院 | 69xx在线观看视频 | 久久成年人视频 | 91一区二区三区 | 中国免费xxxx免费视频 | 色狠狠一区二区三区香蕉蜜桃 | 亚洲伊人色综合网站小说 | 亚洲乱码中文字幕综合 | 欧美日韩欧美日韩 | 国产亚洲精品成人一区看片 | 成人韩免费网站 | 精品久久久久久中文字幕网 | 精新精新国产自在现拍欣赏网 | 野花日本中文版免费观看 | 国产亚洲精品美女久久久 | 少数民族美乳国产在线 | 国产成人精品999在线观看 | 亚洲欧美精品 | 亚洲日产 | 日本强伦 | 99热播 | 国产精品久久久久久久专区 | 天天射天天干天天插 | 成年人免费网址 | 欧美精品国产综合久久 | 欧美色爱综合 | 国产免费高清视频 | 五月天综合激情网 | 在线观看国产精品日本不卡网 | 成人爱爱免费视频 | 欧美性生活视频免费播放网址大全观看 | 九九99在线视频 |