这个是VB
![](/icons/81646de.gif)
![](/icons/81646dou.gif)
![](/icons/81646yi.gif)
![](/icons/81646dou.gif)
![](/icons/81646dou.gif)
![](/icons/81646dou2.gif)
\'//////////////////////////////
\'中文名称:INI文件操作类
\'英文名称:Blood_INI Class
\'作者:Blood
\'制作时间:2002.2.8
\'版本:1.0
\'版权所有 Blood 2002-2003
\'//////////////////////////////
\'申明变量
Private strAppName As String \'INI小节名称
Private strKeyName As String \'INI项目名
Private strValueStr As String \'INI
![](/icons/81646de.gif)
Private strFileName As String \'INI文件名
\'申明操作INI文件
![](/icons/81646de.gif)
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 WritePrivateProfileString Lib \"kernel32\" Alias \"WritePrivateProfileStringA\" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As String, ByVal lpFileName As String) As Long
\'////////////////////
\'开始定义
![](/icons/81646hanshu.gif)
\'////////////////////
\'定义写INI文件
![](/icons/81646de.gif)
![](/icons/81646hanshu.gif)
Public Function WriteINI
![](/icons/81646kh.gif)
\'通过API将值写入INI文件
WriteINI = WritePrivateProfileString(strAppName, strKeyName, strValueStr, strFileName)
End Function
\'定义读INI文件
![](/icons/81646de.gif)
![](/icons/81646hanshu.gif)
Public Function GetINI
![](/icons/81646kh.gif)
Const STRING_SIZE = 255 \'指定
![](/icons/81646zifu.gif)
Dim lngLength As Long \'定义API
![](/icons/81646hanshu.gif)
![](/icons/81646de.gif)
Dim strDefault As String * STRING_SIZE \'定义在没有找到指定
![](/icons/81646de.gif)
![](/icons/81646de.gif)
Dim strReturn As String * STRING_SIZE \'定义
![](/icons/81646yi.gif)
![](/icons/81646zifu.gif)
\'通过API
![](/icons/81646hanshu.gif)
![](/icons/81646de.gif)
lngLength = GetPrivateProfileString(strAppName, strKeyName, strDefault, strReturn, STRING_SIZE, strFileName)
\'通过判断API
![](/icons/81646hanshu.gif)
![](/icons/81646de.gif)
![](/icons/81646de.gif)
If (lngLength = 0) Then
GetINI = strValueStr
Else
GetINI = Mid(strReturn, 1, lngLength)
End If
End Function
\'////////////////////
\'定义
![](/icons/81646hanshu.gif)
\'////////////////////
\'////////////////////
\'开始定义属性
\'////////////////////
\'取得INI文件
![](/icons/81646de.gif)
Public Property Let FileName(ByVal strFile As String)
strFileName = strFile
End Property
\'取得项目值
Public Property Let ValueStr(ByVal strValue As String)
strValueStr = strValue
End Property
\'取得项目名称
Public Property Let KeyName(ByVal strKey As String)
strKeyName = strKey
End Property
\'取得小节名称
Public Property Let AppName(ByVal strApp As String)
strAppName = strApp
End Property
\'////////////////////
\'结束定义属性
\'////////////////////
最新评论