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

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

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



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

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

本類教程下載

系統下載排行

主站蜘蛛池模板: 国产99久久精品 | 久揄揄鲁一二三四区高清在线 | 91系列在线观看免费 | 草草影院1 | 曰批全过程免费视频免费看 | 91短视频在线观看免费最新91 | 久久网精品视频 | 精品一区二区三区免费视频 | 麻豆视频国产 | 国产成人综合在线视频 | 国产大秀视频在线一区二区 | 特级黄毛片 | 97碰碰碰在线观看免费 | 精品国产一区二区 | 日本三级黄色片 | 亚洲3p| 中国xxxx视频播放50 | 999www成人 | 国产性夜夜夜春夜夜爽 | 91短视频在线播放 | 91在线 | 狠狠色香婷婷久久亚洲精品 | 欧美综合天天夜夜久久 | 婷婷丁香综合网 | 国产免费一区二区三区最新 | 国产麻豆高清在线观看 | 国产国语特级一级aa毛片 | 久久99影院网久久久久久 | 久久久这里只有精品加勒比 | 久久久日本精品一区二区三区 | 午夜在线免费观看 | 日本xxxxxxx日本高清 | 日韩城人网 | 亚洲一区精品视频在线 | 91天天干| 天天看天天射 | 久久中文字幕免费 | 91色国产| 国产成人v片视频在线观看 国产成人v视频在线观看 | 日韩综合在线视频 | 欧美一区二区三区不卡免费观看 |