使用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")

它在xbind中作为第一项的形式显示“alpha0” 现在当我点击“MoveNext”按钮时，如何在textbox1中显示第二项？

Answer 1

我在寻找类似问题的解决方案时遇到了这个问题。对于其他可能遇到此问题的人，我的解决方案是使用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

Answer 2

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