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

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

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



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

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

本類教程下載

系統下載排行

主站蜘蛛池模板: 国产精品v片在线观看不卡 国产精品www夜色影视 | 亚洲精品久久久中文字幕 | 日日添天天做天天爱 | 2019偷偷狠狠的日日 | 精品精品国产高清a毛片牛牛 | 欧美第一网站 | 欧美日韩精品一区二区 | 成人免费观看的视频黄页 | 日韩美aaa特级毛片 日韩美a一级毛片 | 9191免费视频观看高清 | 国产男女爱视频在线观看 | 国产欧美日韩免费一区二区 | 久久久久久久性高清毛片 | 国产无人区一区二区三区 | 一区二区成人国产精品 | a网站在线观看免费网站 | 四虎国产精品免费视 | 免费午夜影院 | 色噜噜噜噜噜 | 日本一级片在线观看 | 日本在线网站 | 青草视频在线观看国产 | 福利岛国深夜在线 | 日日操天天操夜夜操 | 青青青青青青在线精品视频 | 一区二区三区高清在线 | 四虎四虎1515com | 99精品一区二区免费视频 | 国产自在自线午夜精品 | 国产综合精品久久久久成人影 | 精品哟哟哟国产在线观看不卡 | 中文国产欧美在线观看 | 欧洲a老妇女黄大片 | 蜜桃视频在线观看视频网站 | 日韩精品在线观看视频 | 国产污 | 久久精品国产99国产精品小说 | 亚洲欧美日本国产一区二区三区 | 久久久精品中文字幕 | 国产麻豆免费观看91 | 久久久中文字幕日本 |