REM TextBox类 :TextBoxCdrObjWidth 和 TextBoxCdrObjHeight
Dim CdrObjSize As New CdrObjectSizeClass() ' 要绑定的数据类
Try
Dim BindingWidth As New Binding
Dim BindingHeight As New Binding
BindingWidth.Source = CdrObjSize
BindingWidth.Mode = BindingMode.TwoWay
'BindingMode.TwoWay双向绑定,即修改TextBox.Text属性,源目标变量发生改变,更源目标变量改变时PropertyChaned,TextBox.Text属性也发生改变
BindingWidth.Path = New PropertyPath("WidthSize")
BindingWidth.UpdateSourceTrigger = UpdateSourceTrigger.PropertyChanged
TextBoxCdrObjWidth.SetBinding(TextBox.TextProperty, BindingWidth)
&nbs
Dim CdrObjSize As New CdrObjectSizeClass() ' 要绑定的数据类
Try
Dim BindingWidth As New Binding
Dim BindingHeight As New Binding
BindingWidth.Source = CdrObjSize
BindingWidth.Mode = BindingMode.TwoWay
'BindingMode.TwoWay双向绑定,即修改TextBox.Text属性,源目标变量发生改变,更源目标变量改变时PropertyChaned,TextBox.Text属性也发生改变
BindingWidth.Path = New PropertyPath("WidthSize")
BindingWidth.UpdateSourceTrigger = UpdateSourceTrigger.PropertyChanged
TextBoxCdrObjWidth.SetBinding(TextBox.TextProperty, BindingWidth)
&nbs