'添加模块代码 Option Explicit 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 Public 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 Function GetIni(ByVal SectionName As String, ByVal KeyWord As String, ByVal DefString As String, ByVal FileName As String) As String Dim ResultString As String * 255 If GetPrivateProfileString(ByVal SectionName, ByVal KeyWord, vbNullString, ByVal ResultString, ByVal Len(ResultString), ByVal FileName) > 0 Then GetIni = Left(ResultString, InStr(ResultString, Chr(0)) - 1) Else WritePrivateProfileString SectionName, KeyWord, DefString, FileName GetIni = DefString End If End Function
'写入 WritePrivateProfileString "TEXT", "Text", Text1.Text, App.Path & "\long.ini" End Sub Private Sub Command2_Click() Text1.Text = GetIni("TEXT", "Text", vbNullString, App.Path & "\long.ini") '读取 End Sub
转载声明:本站发布文章及版权归原作者所有,转载本站文章请注明文章来源!