vb的PropertyChanged怎么转写成vb.net的代码呢？

[jl_ronnie]

在vb中，做自定义控件时，属性可以这样定制：
******************
Public Property Get PicturePosition() As PicPositions
PicturePosition = PicPosition
End Property
Public Property Let PicturePosition(ByVal newPicPos As PicPositions)
PicPosition = newPicPos
PropertyChanged "PICPOS"
Call CalcTextRects
Call Redraw(lastStat, True)
End Property
********************
转成vb.net时：
——————————————————————————
Public Property PicturePosition() As PicPositions
Get
PicturePosition = PicPosition
End Get
Set(ByVal Value As PicPositions)
PicPosition = Value
PropertyChanged("PICPOS")'???????????????????????
Call CalcTextRects()
Call Redraw(lastStat, True)
End Set
End Property
——————————————————————————
但是PropertyChanged不是.net中的语法，这一句该如何改写呢？
请教高手了

还有，Public Property Get PictureOver() As StdPicture，StdPicture在.net中是什么数据类型呢？

[bote_china]

1、PropertyChanged可能是事件触发函数，在这里你要定义事件，然后用Raiseevent语句;
2、StdPicture在.net里为icon,也可以是

[jl_ronnie]

1、能不能帮我写一个例子？谢谢
2、也可以是什么？

[jl_ronnie]

高手帮忙呀！

[jl_ronnie]

谁能帮忙？谢谢

[dlzhangln]

首先实现Implements System.ComponentModel.INotifyPropertyChanged接口
声明事件
Public Shadows Event PropertyChanged(ByVal sender As Object, ByVal e As System.ComponentModel.PropertyChangedEventArgs) Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged

Sub NotifyPicture(ByVal Value As String)
RaiseEvent PropertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs(Value))
End Sub
属性改变时
Public Sub PicturePosition_Changed(ByVal sender As Object, ByVal e As System.ComponentModel.PropertyChangedEventArgs) Handles Me.PropertyChanged
具体处理
End Sub