ini.bas

来自「vb+access 饭店餐饮管理系统,酒店管理软件」· BAS 代码 · 共 21 行

Attribute VB_Name = "ini"
Private Declare Function GetPrivateProfileString Lib "Kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, lpKeyName As Any, ByVal lpDefault As String, ByVal lpRetunedString 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 Any, ByVal lplFileName As String) As Long



Public Sub WriteINI(lpAppName As String, lpKeyName As String, lpString As String, lpFileName As String)
Dim U As Long
    U = WritePrivateProfileString(lpAppName, lpKeyName, lpString, lpFileName)
    If U = 0 Then
        Beep
    End If
End Sub

Public Function ReadFromINI(AppName As String, KeyName As String, ld As String, FileName As String) As String
   Dim RetStr As String
   RetStr = String(255, Chr(0))
   ReadFromINI = MTrim(Left(RetStr, GetPrivateProfileString(AppName, ByVal KeyName, ld, RetStr, Len(RetStr), FileName)))
End Function