Public Partial Class Form1
	Inherits Form
	Public Sub New()
		InitializeComponent()
 
		Dim myTest As New Test()
 
 
		Dim bs As New BindingSource()
		bs.DataSource = myTest
 
		textBox1.DataBindings.Add(New Binding("Text", bs, "MyInteger", True, _
  DataSourceUpdateMode.OnPropertyChanged))
	End Sub
 
	Public Class Test
		Implements INotifyPropertyChanged
		Public Event PropertyChanged As PropertyChangedEventHandler
		Private _MyInteger As Integer = 0
		Public Property MyInteger() As Integer
			Get
				Return _MyInteger
			End Get
			Set
				_MyInteger = value
				FirePropertyChanged("MyInteger")
			End Set
		End Property
 
		Private Sub FirePropertyChanged(propertyName As String)
			RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(propertyName))
		End Sub
	End Class
End Class

Gruß
Christoph



Beitrag wurde zuletzt am 16.12.12 um 10:10:20 editiert.