-
Notifications
You must be signed in to change notification settings - Fork 18
Expand file tree
/
Copy pathArrow.xaml.vb
More file actions
33 lines (27 loc) · 973 Bytes
/
Arrow.xaml.vb
File metadata and controls
33 lines (27 loc) · 973 Bytes
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Friend Class Arrow
Public Property Angle As Double
Get
Return GetValue(AngleProperty)
End Get
Set(value As Double)
SetValue(AngleProperty, value)
Dim rt = CType(Me.LayoutTransform, RotateTransform)
rt.Angle = value
End Set
End Property
Public Shared ReadOnly AngleProperty As DependencyProperty = _
DependencyProperty.Register("Angle", _
GetType(Double), GetType(Arrow), _
New PropertyMetadata(0.0))
Public Sub New(angle As Integer)
Me.New()
Me.Angle = angle
End Sub
Public Sub New()
' This call is required by the designer.
InitializeComponent()
' Add any initialization after the InitializeComponent() call.
Me.RenderTransformOrigin = New Point(0.5, 0.5)
Me.LayoutTransform = New RotateTransform(0)
End Sub
End Class