MyImage.xaml.vb 1.9 KB

1234567891011121314151617181920212223242526272829303132
  1. Public Class MyImage
  2. '自定义属性
  3. Public Uuid As Integer = GetUuid()
  4. Private _Uri As String = ""
  5. Public Property Source As String
  6. Get
  7. Return _Uri
  8. End Get
  9. Set(value As String)
  10. _Uri = value
  11. RefreshImage()
  12. End Set
  13. End Property '显示文本
  14. Public Shared ReadOnly SourceProperty As DependencyProperty = DependencyProperty.Register("Source", GetType(String), GetType(MyImage), New PropertyMetadata(New PropertyChangedCallback(
  15. Sub(sender As DependencyObject, e As DependencyPropertyChangedEventArgs)
  16. If Not IsNothing(sender) Then
  17. CType(sender, MyImage)._Uri = e.NewValue.ToString()
  18. CType(sender, MyImage).RefreshImage()
  19. End If
  20. End Sub)))
  21. Public Sub RefreshImage()
  22. If Me Is Nothing Then Exit Sub
  23. Try
  24. PanContent.Source = New MyBitmap(_Uri.ToString())
  25. Catch ex As Exception
  26. Log(ex, "刷新图片内容失败")
  27. End Try
  28. End Sub
  29. End Class