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)

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)

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 更推荐）。

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