35 lines
1.8 KiB
VB.net
35 lines
1.8 KiB
VB.net
Public Class MyImage
|
|
Inherits Image
|
|
|
|
'事件
|
|
|
|
Public Uuid As Integer = GetUuid()
|
|
|
|
Private _SourceData As String = ""
|
|
|
|
''' <summary>
|
|
''' 重写Image的Source属性
|
|
''' </summary>
|
|
Public Shadows Property Source As String
|
|
Get
|
|
Return _SourceData
|
|
End Get
|
|
Set(value As String)
|
|
SetImage(value)
|
|
End Set
|
|
End Property
|
|
Public Shared Shadows ReadOnly SourceProperty As DependencyProperty = DependencyProperty.Register("Source", GetType(String), GetType(MyImage), New PropertyMetadata(New PropertyChangedCallback(
|
|
Sub(sender As DependencyObject, e As DependencyPropertyChangedEventArgs)
|
|
If Not IsNothing(sender) Then
|
|
CType(sender, MyImage).SetImage(e.NewValue)
|
|
End If
|
|
End Sub)))
|
|
|
|
Private Sub SetImage(source As String)
|
|
If Me Is Nothing Then Exit Sub
|
|
If String.IsNullOrEmpty(source) Then Exit Sub
|
|
_SourceData = source
|
|
MyBase.Source = New MyBitmap(_SourceData)
|
|
End Sub
|
|
End Class
|