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 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 Const mc_strIniFileName As String = "MyIni.ini"
Public Sub WriteIni(appName As String, keyName As String, valueNew As String)
'
Dim x As Long
Dim strIniFile As String
If Right(App.Path, 1) = "\" Then
strIniFile = App.Path & mc_strIniFileName
Else
strIniFile = App.Path & "\" & mc_strIniFileName
End If
x = WritePrivateP
VB操作INI文件读写示例
最新推荐文章于 2022-12-20 17:28:56 发布