使用Bindinglist作为Textbox的绑定

Question

我有一个绑定列表。我正在使用文本框来显示它的项目

WithEvents xBind As New BindingList(Of Emp)

我是这样添加项目的

xBind.Add(New emp("alpha0", "B"))
xBind.Add(New emp("alpha1", "B"))
xBind.Add(New emp("alpha2", "B"))
xBind.Add(New emp("alpha3", "B"))

我正在将第一个属性绑定到文本框

TextBox1.DataBindings.Add("text", xBind, "eName")

它在表单中显示"alpha0“，这是xbind中的第一项。现在，当我单击"MoveNext”按钮时，如何在textbox1中显示第二项？

Answer 1

我认为你需要一个列表框或网格，而不是一个文本框，它一次只显示一个值。

Answer 2

我在寻找类似问题的解决方案时偶然发现了这一点。对于其他可能遇到这种情况的人，我的解决方案是使用BindingSource。

Dim bsXBind As New BindingSource
...
bsXBind.DataSource = xBind
TextBox1.DataBindings.Add("Text", bsXBind, "eName")

要移动到另一条记录，请更改BindingSource.Position：

Private Sub NextXRecord()
    If bsXBind.Position < bsXBind.Count - 1 Then
        bsXBind.Position += 1
    End If
End Sub