Visual Studio中能否为VB.NET项目创建启动配置文件？

一、添加多启动配置的操作步骤 #

• 打开VB.NET项目后，右键点击项目名称，选择属性（或点击顶部菜单栏的「项目」→「[项目名] 属性」）
• 在属性窗口切换到调试选项卡
• 点击窗口左上角「配置」下拉框，选择编辑配置
• 在弹出的「启动配置」窗口中，点击添加，输入自定义配置名称（如「开发环境」「生产环境」）后确认
• 返回调试选项卡，为每个新配置设置专属的命令行参数（例如--env dev或--config prod），不同配置可设置不同参数

二、捕获命令行参数并生成对应配置文件 #

在程序入口（通常是Program.vb的Main方法）中添加逻辑，解析参数并生成对应配置：

Module Program
    Sub Main(args() As String)
        ' 解析命令行参数，默认使用default环境
        Dim targetEnv As String = "default"
        For Each arg In args
            If arg.StartsWith("--env=") Then
                targetEnv = arg.Substring(6).Trim()
            End If
        Next

        ' 根据环境生成对应配置文件
        GenerateEnvironmentConfig(targetEnv)

        ' 执行后续程序逻辑
        ' ...
    End Sub

    Private Sub GenerateEnvironmentConfig(env As String)
        Dim configContent As String = String.Empty
        ' 根据环境拼接配置内容（示例为JSON格式，可替换为XML等格式）
        Select Case env.ToLower()
            Case "dev"
                configContent = "{""DebugEnabled"": true, ""LogLevel"": ""Verbose"", ""ApiUrl"": ""http://dev.api.com""}"
            Case "prod"
                configContent = "{""DebugEnabled"": false, ""LogLevel"": ""Error"", ""ApiUrl"": ""https://prod.api.com""}"
            Case Else
                configContent = "{""DebugEnabled"": false, ""LogLevel"": ""Warning"", ""ApiUrl"": ""http://default.api.com""}"
        End Select

        ' 将配置写入文件（示例为appsettings.json，可替换为你的配置文件名）
        Dim configFilePath As String = Path.Combine(AppDomain.CurrentDomain.BaseDirectory, "appsettings.json")
        File.WriteAllText(configFilePath, configContent)
    End Sub
End Module

额外说明 #

• 命令行参数格式可自定义，只需保证代码中的解析逻辑与配置的参数匹配即可
• 如果你的项目使用app.config这类XML配置文件，可修改GenerateEnvironmentConfig方法，通过XML操作替换对应节点的值
• 调试时直接从顶部调试按钮的下拉框选择目标启动配置，点击启动后程序会自动携带对应命令行参数，生成适配当前环境的配置文件

内容的提问来源于stack exchange，提问作者jason van willigen