33 lines
1.9 KiB
VB.net
33 lines
1.9 KiB
VB.net
Public Class MyImage
|
|
|
|
'自定义属性
|
|
Public Uuid As Integer = GetUuid()
|
|
Private _Uri As String = ""
|
|
|
|
Public Property Source As String
|
|
Get
|
|
Return _Uri
|
|
End Get
|
|
Set(value As String)
|
|
_Uri = value
|
|
RefreshImage()
|
|
End Set
|
|
End Property '显示文本
|
|
Public Shared 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)._Uri = e.NewValue.ToString()
|
|
CType(sender, MyImage).RefreshImage()
|
|
End If
|
|
End Sub)))
|
|
|
|
Public Sub RefreshImage()
|
|
If Me Is Nothing Then Exit Sub
|
|
Try
|
|
PanContent.Source = New MyBitmap(_Uri.ToString())
|
|
Catch ex As Exception
|
|
Log(ex, "刷新图片内容失败")
|
|
End Try
|
|
End Sub
|
|
End Class
|