VB.NET中ComboBox设置SelectedIndex无效及Items添加失效问题

针对你遇到的ComboBox无法正常初始化、设置无效的问题，以下是常见原因及对应的解决步骤：

1. 检查ComboBox是否绑定了数据源 #

如果在设计器中给cbbLanguage设置了DataSource（比如绑定到数据集、列表等），手动调用Items.Add()会完全失效——因为数据源优先级更高，Items集合会被数据源覆盖且变为只读状态。

• 解决：打开设计器，选中cbbLanguage，在属性窗口找到DataSource项，确认其值为(None)。若之前绑定过数据源，直接清空该设置。

2. 确认控件名称完全匹配 #

检查设计器中ComboBox的Name属性是否与代码中的cbbLanguage完全一致（注意避免拼写错误，比如写成cbblanguage、cbbLanguge等）。虽然VB.NET不区分大小写，但名称不匹配会导致代码无法正确引用控件。

• 解决：在设计器选中控件，查看属性窗口的Name项，确保与代码中的变量名完全一致。

3. 验证My.Settings.Language的实际取值 #

虽然你设置了默认值为0，但可能之前保存过其他取值，导致实际读取的不是0。可以在设置SelectedIndex前添加调试代码确认：

Debug.WriteLine("My.Settings.Language: " & My.Settings.Language.ToString())

运行后查看输出窗口的数值，若不是0，可通过以下方式重置：

• 打开项目的Settings.settings文件，重新设置Language的默认值；
• 调用My.Settings.Reset()恢复默认设置；
• 删除应用程序的配置文件（一般在C:\Users\<你的用户名>\AppData\Local\<项目名>目录下）。

4. 延迟到Form.Shown事件初始化控件 #

部分场景下，Form.Load事件触发时控件尚未完成初始化，导致设置不生效。可将ComboBox的初始化代码移到Form.Shown事件中：

Private Sub options_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
    cbbLanguage.Items.Clear() ' 清空避免重复添加项
    cbbLanguage.Items.Add("German")
    cbbLanguage.Items.Add("English")
    cbbLanguage.SelectedIndex = My.Settings.Language
    MsgBox(cbbLanguage.SelectedIndex, 0, "test")
End Sub

5. 排查是否有其他代码干扰 #

检查所有涉及cbbLanguage的代码，确认没有在其他事件（比如SelectedIndexChanged）或函数中强制修改SelectedIndex、清空Items集合。比如是否存在类似以下的代码：

Private Sub cbbLanguage_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbbLanguage.SelectedIndexChanged
    cbbLanguage.SelectedIndex = -1 ' 强制重置索引，导致设置无效
End Sub

6. 测试控件本身是否正常 #

若以上步骤都无效，可通过按钮点击事件测试控件功能，排除控件损坏的可能：

Private Sub btnTest_Click(sender As Object, e As EventArgs) Handles btnTest.Click
    cbbLanguage.Items.Clear()
    cbbLanguage.Items.Add("Test1")
    cbbLanguage.Items.Add("Test2")
    cbbLanguage.SelectedIndex = 0
    MsgBox($"索引：{cbbLanguage.SelectedIndex}，文本：{cbbLanguage.Text}")
End Sub

如果这段代码能正常运行，说明问题出在Form.Load的时机或其他代码干扰；若仍无效，建议删除当前ComboBox，重新拖一个新的控件到窗体上再测试。

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