3

我在 Form_Load 事件中全局填充的表单类中有一个带有 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

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

*编辑。当史蒂夫提到 BindingContext 时，我将答案归功于他。虽然，这让我找到BindingContext(DT).EndCurrentEdit()了更新我的 LB 显示并保持选择的内容。

4

1 回答 1

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
于 2012-06-29T17:56:55.187 回答