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