VB操作INI文件读写示例

最新推荐文章于 2023-01-24 14:55:41 发布

laotou99

最新推荐文章于 2023-01-24 14:55:41 发布

阅读量1.1w

点赞数

分类专栏： VB

本文链接：https://blog.csdn.net/laotou99/article/details/8574265

版权

本文通过实例代码详细讲解了如何使用Visual Basic（VB）进行INI配置文件的读取和写入操作，包括获取、设置键值对，以及创建和修改INI文件的方法。

摘要由CSDN通过智能技术生成

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

最低0.47元/天解锁文章