Forums Neueste Beiträge
 

Binding und Update

30/10/2008 - 00:00 von Jason Straight | Report spam
Hallo zusammen,

ich habe ein Feld einer table an zwei Textboxen gebunden, was auch soweit
funktioniert.

Nun àndere ich in einer Textboxe den Wert. Erst wenn ich diese Textbox
verlasse, wird die zweite Textbox geàndert.

Wie kann ich erreichen, das nach jeden Tastendruck die zweite Textbox den
Wert der ersten bekommt (natürlich übers Binding, nicht direkt)?
 

Lesen sie die antworten

#1 Peter Fleischer
30/10/2008 - 09:43 | Warnen spam
"Jason Straight" schrieb im Newsbeitrag
news:4908eb2a$0$8564$

ich habe ein Feld einer table an zwei Textboxen gebunden, was auch soweit
funktioniert.

Nun àndere ich in einer Textboxe den Wert. Erst wenn ich diese Textbox
verlasse, wird die zweite Textbox geàndert.

Wie kann ich erreichen, das nach jeden Tastendruck die zweite Textbox den
Wert der ersten bekommt (natürlich übers Binding, nicht direkt)?



Hi Jasen,
du kannst im TextChanged-Ereignis die Übertragung anstoßen, z.B. so:

Option Infer On
Option Strict On

Public Class Form1

Dim tb1 As New TextBox With {.Dock = DockStyle.Top}
Dim tb2 As New TextBox With {.Dock = DockStyle.Top}

Dim bs As BindingSource

Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load

Dim dt As New DataTable("Tab1")
dt.Columns.Add("col1", GetType(String))
dt.Rows.Add(dt.NewRow)

bs = New BindingSource(dt, "")

Me.Controls.AddRange(New Control() {tb1, tb2})

With tb1
AddHandler .TextChanged, AddressOf tbTC
.DataBindings.Add("Text", bs, "col1")
End With
With tb2
AddHandler .TextChanged, AddressOf tbTC
.DataBindings.Add("Text", bs, "col1")
End With

End Sub

Private Sub tbTC(ByVal sender As Object, ByVal e As EventArgs)
bs.EndEdit()
End Sub

End Class


Viele Grüsse
Peter

Ähnliche fragen