VB配置文件操作教程，vb如何读取配置文件？

方案 1：VB.NET 读取 App.config/Web.config (推荐)

适用于 .NET Framework/.NET Core 项目。

1. 添加配置文件
   在项目中添加 App.config（桌面应用）或 Web.config（Web 应用）,内容示例：

   <configuration>
     <appSettings>
       <add key="Server" value="localhost"/>
       <add key="Timeout" value="100"/>
     </appSettings>
     <connectionStrings>
       <add name="MyDB" connectionString="Data Source=.;Initial Catalog=TestDB;Integrated Security=True"/>
     </connectionStrings>
   </configuration>

2. 读取配置的代码

   Imports System.Configuration
   Public Class ConfigReader
       Public Shared Sub ReadConfig()
           ' 读取 appSettings
           Dim server As String = ConfigurationManager.AppSettings("Server")
           Dim timeout As Integer = Integer.Parse(ConfigurationManager.AppSettings("Timeout"))
           ' 读取连接字符串
           Dim connString As String = ConfigurationManager.ConnectionStrings("MyDB").ConnectionString
           Console.WriteLine($"Server: {server}, Timeout: {timeout}")
           Console.WriteLine($"DB Connection: {connString}")
       End Sub
   End Class

3. 注意

   • 需添加 NuGet 包：System.Configuration.ConfigurationManager（.NET Core 项目需手动安装）。
   • 配置值自动热更新（修改文件后无需重新编译）。

方案 2：VB6 读取 INI 文件

适用于传统 VB6 项目。

1. INI 文件示例 (config.ini)

   [Database]
   Server=localhost
   Port=1433
   [User]
   Name=Admin

2. VB6 读取代码

   

   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 Function ReadIniValue(Section As String, Key As String, FilePath As String) As String
       Dim buffer As String * 256  ' 缓冲区
       Dim ret As Long
       ret = GetPrivateProfileString(Section, Key, "", buffer, Len(buffer), FilePath)
       ReadIniValue = Left$(buffer, InStr(buffer, Chr(0)) - 1)
   End Function
   ' 使用示例
   Sub ReadConfig()
       Dim server As String
       Dim port As Integer
       server = ReadIniValue("Database", "Server", "C:Appconfig.ini")
       port = CInt(ReadIniValue("Database", "Port", "C:Appconfig.ini"))
       MsgBox "Server: " & server & ", Port: " & port
   End Sub

方案 3：VB.NET 读取自定义 XML/JSON 文件

适用于需要灵活结构的配置。

XML 配置示例

1. XML 文件 (config.xml)

   <Settings>
     <Database>
       <Server>localhost</Server>
       <Port>1433</Port>
     </Database>
   </Settings>

2. VB.NET 读取代码

   Imports System.Xml
   Public Sub ReadXmlConfig()
       Dim doc As New XmlDocument()
       doc.Load("config.xml")
       Dim server As String = doc.SelectSingleNode("Settings/Database/Server").InnerText
       Dim port As Integer = Integer.Parse(doc.SelectSingleNode("Settings/Database/Port").InnerText)
       Console.WriteLine($"XML Config -> Server: {server}, Port: {port}")
   End Sub

JSON 配置示例（需 .NET Framework 4.5+）

1. JSON 文件 (config.json)

   {
     "Database": {
       "Server": "localhost",
       "Port": 1433
     }
   }

2. VB.NET 读取代码

   Imports System.IO
   Imports Newtonsoft.Json.Linq
   Public Sub ReadJsonConfig()
       Dim json As String = File.ReadAllText("config.json")
       Dim config As JObject = JObject.Parse(json)
       Dim server As String = config("Database")("Server").ToString()
       Dim port As Integer = Integer.Parse(config("Database")("Port").ToString())
       Console.WriteLine($"JSON Config -> Server: {server}, Port: {port}")
   End Sub

   注意：需安装 NuGet 包 Newtonsoft.Json。

   

方案 4：VB.NET 使用 My.Settings (简单设置)

适用于存储用户级/应用级设置（无需手动处理文件）。

1. 在项目中定义设置

   • 项目属性 → 设置 → 添加设置（如 UserName, DefaultColor）。

2. 读取/写入设置

   ' 读取设置
   Dim userName As String = My.Settings.UserName
   ' 修改并保存设置
   My.Settings.UserName = "NewUser"
   My.Settings.Save()  ' 持久化到磁盘

选择建议

• .NET 项目 → 优先用 App.config + ConfigurationManager 或 My.Settings。
• VB6 / 轻量级需求 → 使用 INI 文件 + API 调用。
• 复杂结构化配置 → 选择 XML/JSON（JSON 更推荐）。

根据您的项目类型和需求选择最适合的方案。