55 lines
1.3 KiB
VB.net
55 lines
1.3 KiB
VB.net
|
|
Imports System.ComponentModel
|
|
|
|
Partial Public Class cBindingElement
|
|
Implements INotifyPropertyChanged
|
|
|
|
|
|
Public Sub New()
|
|
' Me.Focus()
|
|
|
|
End Sub
|
|
|
|
|
|
Public Propvalue As String
|
|
Public Property _value As String
|
|
Get
|
|
Return Propvalue
|
|
End Get
|
|
Set(v As String)
|
|
Propvalue = v
|
|
OnPropertyChanged("_value")
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Public Event PropertyChanged As PropertyChangedEventHandler _
|
|
Implements INotifyPropertyChanged.PropertyChanged
|
|
|
|
Protected Sub OnPropertyChanged(ByVal name As String)
|
|
RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(name))
|
|
End Sub
|
|
|
|
|
|
End Class
|
|
|
|
|
|
Public Class ItemInfo
|
|
Implements System.ComponentModel.INotifyPropertyChanged
|
|
|
|
Private _itemNumber As String = "rename"
|
|
Public Property ItemNumber As String
|
|
Get
|
|
Return _itemNumber
|
|
End Get
|
|
Set(value As String)
|
|
_itemNumber = value
|
|
RaiseEvent PropertyChanged(Me,
|
|
New System.ComponentModel.PropertyChangedEventArgs("ItemNumber"))
|
|
End Set
|
|
End Property
|
|
|
|
Public Event PropertyChanged(sender As Object,
|
|
e As System.ComponentModel.PropertyChangedEventArgs) _
|
|
Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
|
|
End Class |