Visual Basic NET ( 3)


- 4


Return True

Else

Return False

End If

End Function

Private Sub _____()

Dim dx As Double = 1 '

Dim dy As Double = 1

Select Case

Case . : y = y - dy

Case . : y = y + dy

Case . : x = x - dx

Case . : x = x + dx

Case . ' ,

End Select

____()

End Sub

 

Public Sub __(ByVal e As System.Windows.Forms.KeyEventArgs)

Select Case e.KeyCode

Case Keys.Left : = .

Case Keys.Right : = .

Case Keys.Up : = .

Case Keys.Down : = .

Case Keys.ControlKey : = .

End Select

End Sub

End Class

. , . , .

.

. (, , 14.4.4). , , :

KeyPreview = True '

_.ReadOnly = True '

_.Focus() '

14.4.4.

, . Form1_KeyDown , __. , e, .




- -  - -  - -