@@ -129,16 +129,10 @@ Public Class PaintingControl
|
|||||||
Refresh()
|
Refresh()
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Sub CheckKeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
|
Private Sub CheckKeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown, Me.KeyUp
|
||||||
If e.Shift Then pressedShift = True
|
pressedShift = e.Shift
|
||||||
If e.Control Then pressedControl = True
|
pressedControl = e.Control
|
||||||
If e.Alt Then pressedAlt = True
|
pressedAlt = e.Alt
|
||||||
End Sub
|
|
||||||
|
|
||||||
Private Sub CheckKeyUp(sender As Object, e As KeyEventArgs) Handles Me.KeyUp
|
|
||||||
If e.Shift Then pressedShift = False
|
|
||||||
If e.Control Then pressedControl = False
|
|
||||||
If e.Alt Then pressedAlt = False
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Friend ReadOnly Property AreaSelectionRectangle As RectangleF
|
Friend ReadOnly Property AreaSelectionRectangle As RectangleF
|
||||||
|
|||||||
Reference in New Issue
Block a user