如何将App.config中定义的ListItem绑定到VB.Net WPF ComboBox

我明白你之前靠INI文件处理配置项，现在转到VB.Net WPF的App.config（XML格式）来管理自定义工位测试应用的列表配置，下面分两种常用方案实现ComboBox的初始化绑定：

方案1：使用App.config的appSettings节点（快速简单） #

如果你的列表项不多，直接在appSettings里用逗号分隔存储选项是最快捷的方式：

1. 配置App.config #

<?xml version="1.0" encoding="utf-8" ?>
<configuration>
  <appSettings>
    <!-- 用逗号分隔ComboBox的选项 -->
    <add key="WorkstationOptions" value="工位A,工位B,工位C,自定义工位"/>
  </appSettings>
</configuration>

2. VB.Net代码读取并绑定 #

在Window的代码后台（或者ViewModel里）读取配置，拆分后绑定到ComboBox：

Imports System.Configuration

Public Class MainWindow
    Private Sub MainWindow_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
        ' 读取配置项并拆分为字符串数组
        Dim optionsStr As String = ConfigurationManager.AppSettings("WorkstationOptions")
        Dim optionsList As List(Of String) = optionsStr.Split(",").ToList()
        
        ' 绑定到ComboBox
        cboWorkstations.ItemsSource = optionsList
        ' 可选：设置默认选中第一项
        If optionsList.Count > 0 Then
            cboWorkstations.SelectedIndex = 0
        End If
    End Sub
End Class

方案2：使用自定义配置节（结构化更清晰） #

如果你的列表项需要携带额外信息（比如每个工位对应唯一ID），推荐用自定义配置节，更符合XML的结构化设计：

1. 配置App.config #

先注册自定义配置节，再添加工位列表：

<?xml version="1.0" encoding="utf-8" ?>
<configuration>
  <!-- 注册自定义配置节 -->
  <configSections>
    <section name="WorkstationSettings" type="YourNamespace.WorkstationConfigSection, YourAssemblyName"/>
  </configSections>

  <!-- 自定义工位配置 -->
  <WorkstationSettings>
    <Workstations>
      <add Name="工位A" Id="WS001"/>
      <add Name="工位B" Id="WS002"/>
      <add Name="工位C" Id="WS003"/>
      <add Name="自定义工位" Id="WS999"/>
    </Workstations>
  </WorkstationSettings>
</configuration>

2. 创建配置类（VB.Net） #

需要定义对应配置节的类来解析XML结构：

Imports System.Configuration

' 自定义配置节
Public Class WorkstationConfigSection
    Inherits ConfigurationSection

    <ConfigurationProperty("Workstations", IsDefaultCollection:=False)>
    <ConfigurationCollection(GetType(WorkstationCollection), AddItemName:="add")>
    Public ReadOnly Property Workstations As WorkstationCollection
        Get
            Return CType(Me("Workstations"), WorkstationCollection)
        End Get
    End Property
End Class

' 工位集合类
Public Class WorkstationCollection
    Inherits ConfigurationElementCollection

    Protected Overrides Function CreateNewElement() As ConfigurationElement
        Return New WorkstationElement()
    End Function

    Protected Overrides Function GetElementKey(element As ConfigurationElement) As Object
        Return CType(element, WorkstationElement).Name
    End Function

    Default Public ReadOnly Property Item(index As Integer) As WorkstationElement
        Get
            Return CType(BaseGet(index), WorkstationElement)
        End Get
    End Property
End Class

' 单个工位元素类
Public Class WorkstationElement
    Inherits ConfigurationElement

    <ConfigurationProperty("Name", IsRequired:=True)>
    Public Property Name As String
        Get
            Return CType(Me("Name"), String)
        End Get
        Set(value As String)
            Me("Name") = value
        End Set
    End Property

    <ConfigurationProperty("Id", IsRequired:=True)>
    Public Property Id As String
        Get
            Return CType(Me("Id"), String)
        End Get
        Set(value As String)
            Me("Id") = value
        End Set
    End Property
End Class

3. 读取配置并绑定到ComboBox #

在Window后台代码（或ViewModel）中读取配置，然后绑定：

Imports System.Configuration

Public Class MainWindow
    Private Sub MainWindow_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
        ' 读取自定义配置节
        Dim configSection As WorkstationConfigSection = CType(ConfigurationManager.GetSection("WorkstationSettings"), WorkstationConfigSection)
        Dim workstationList As New List(Of WorkstationElement)(configSection.Workstations.Cast(Of WorkstationElement))
        
        ' 绑定到ComboBox，设置显示字段为Name
        cboWorkstations.ItemsSource = workstationList
        cboWorkstations.DisplayMemberPath = "Name"
        ' 可选：设置选中值的字段为Id（后续可通过SelectedValue获取ID）
        cboWorkstations.SelectedValuePath = "Id"
        
        ' 设置默认选中第一项
        If workstationList.Count > 0 Then
            cboWorkstations.SelectedIndex = 0
        End If
    End Sub
End Class

额外提示：MVVM模式下的绑定（推荐） #

如果你的项目遵循MVVM设计理念，建议把配置读取逻辑放到ViewModel中，通过ObservableCollection实现双向绑定：

Imports System.Collections.ObjectModel
Imports System.Configuration

Public Class MainViewModel
    Public Property Workstations As ObservableCollection(Of WorkstationElement)

    Public Sub New()
        Workstations = New ObservableCollection(Of WorkstationElement)()
        LoadWorkstationsFromConfig()
    End Sub

    Private Sub LoadWorkstationsFromConfig()
        Dim configSection As WorkstationConfigSection = CType(ConfigurationManager.GetSection("WorkstationSettings"), WorkstationConfigSection)
        For Each ws In configSection.Workstations.Cast(Of WorkstationElement)
            Workstations.Add(ws)
        Next
    End Sub
End Class

然后在XAML中绑定：

<ComboBox ItemsSource="{Binding Workstations}" 
          DisplayMemberPath="Name" 
          SelectedValuePath="Id"
          SelectedIndex="0"/>

记得在Window的XAML中设置DataContext：

<Window.DataContext>
    <local:MainViewModel/>
</Window.DataContext>

内容的提问来源于stack exchange，提问作者Oliver