使用Bindinglist作爲文本框的綁定

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