vb.net - 源更改后，Winforms ListBox控件未更新

Question

我在Form_Load事件中全局填充的Form类中有一个带有DataTable（DT）数据源的ListBox（LB）。

Private Sub frmEditPresets_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    DT.Columns.Add("DisplayText")
    DT.Columns.Add("PresetID")
    For Each TSI As ToolStripItem In Presets.DropDownItems
        If TSI.Name.IndexOf("preset_") > -1 Then
            DT.Rows.Add(TSI.Text, TSI.Name)
        End If
    Next
    LB.DataSource = DT
    LB.DisplayMember = "DisplayText"
End Sub

当我使用“重命名”按钮时。它会更新菜单项和数据源，但在我单击列表框中的另一个项目之前，列表框不会刷新。

重命名代码：

Private Sub btnRename_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRename.Click
    Dim R As DataRowView = LB.SelectedItem
    Dim S As String = InputBox("Preset Name", "Rename", R("DisplayText"))
    If S.Trim.Length = 0 Then Exit Sub
    If Presets.DropDownItems.ContainsKey(R("PresetID").ToString) Then
        Presets.DropDownItems(R("PresetID").ToString).Text = S
    End If
    R("DisplayText") = S
End Sub

我敢肯定这是一个简单的问题，有一个简单的答案，但我似乎无法弄清楚。我已经尝试过Refresh（）。我尝试过再次设置数据源。我读了这个StackOverflow问题Winforms listbox not updating when bound data changes，但是ResetBindings（）在这种情况下似乎不是可用的方法。

*编辑。当他提到BindingContext时，我为Steve给出了答案。虽然，这导致我找到BindingContext(DT).EndCurrentEdit()来更新我的LB显示并保持选择。

Answer 1

尝试过了，就可以了.....

Private Sub btnRename_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRename.Click  
    Dim R As DataRowView = LB.SelectedItem  
    Dim S As String = InputBox("Preset Name", "Rename", R("DisplayText"))  
    If S.Trim.Length = 0 Then Exit Sub  
    If Presets.DropDownItems.ContainsKey(R("PresetID").ToString) Then  
        Presets.DropDownItems(R("PresetID").ToString).Text = S  
    End If  
    R("DisplayText") = S  
    BindingContext(DT).EndCurrentEdit()
End Sub