moduleini.bas

基于vb网络编程。有类似QQ的功能

Attribute VB_Name = "ModuleIni"
'此模块用来读/写ini文件


Option Explicit


'下面的声明是两个读写INI文件的API函数.
'此模块只是在这两个API函数的用法上做了个封装.使用时更为方便一些而已

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
Declare Function WritePrivateProfileString Lib "KERNEL32" Alias "WritePrivateProfileStringA" (ByVal AppName As String, ByVal KeyName As String, ByVal keydefault As String, ByVal Filename As String) As Long

Public Function myReadINI(inifile, inisection, inikey, iniDefault)

'inifile为ini文件的路径
'inisection为一主键
'inikey为主键下的一个子键
'iniDefault为当读取这个子键的值失败时返回的默认键值


    Dim lpApplicationName As String
    Dim lpKeyName As String
    Dim lpDefault As String
    Dim lpReturnedString As String
    Dim nSize As Long
    Dim lpFileName As String
    Dim retval As Long
    Dim Filename As String
    lpDefault = Space$(254)
    lpDefault = iniDefault

    lpReturnedString = Space$(254)

    nSize = 254
    lpFileName = inifile
    lpApplicationName = inisection
    lpKeyName = inikey
    Filename = lpFileName
    retval = GetPrivateProfileString(lpApplicationName, lpKeyName, lpDefault, lpReturnedString, nSize, lpFileName)
    myReadINI = lpReturnedString
    
End Function


Public Function myWriteINI(inifile As String, inisection As String, inikey As String, Info As String) As String
    
'info为指定写入子键的值
    
    Dim retval As Long
    retval = WritePrivateProfileString(inisection, inikey, Info, inifile)
    myWriteINI = LTrim$(str$(retval))
End Function