vb.net - テキストボックスのバインドとして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")

xbindの最初のアイテムであるフォームに「alpha0」が表示されます。「MoveNext」ボタンをクリックしたときにtextbox1の2番目のアイテムを表示するにはどうすればよいですか？

score 2 · Accepted Answer

同様の質問に対する解決策を探しているときに、私はこれに遭遇しました。これに遭遇する可能性のある他の人にとって、私の解決策は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

score 0 · Accepted Answer

一度に1つの値しか表示しないテキストボックスではなく、リストボックスまたはグリッドが必要だと思います。

2 に答える 2