Folge dem Video um zu sehen, wie unsere Website als Web-App auf dem Startbildschirm installiert werden kann.
Anmerkung: Diese Funktion ist in einigen Browsern möglicherweise nicht verfügbar.
Private Sub TextBox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox.KeyPress
Select Case Asc(e.KeyChar)
Case 48 To 57, 8, 44, 32
' Zahlen, Backspace und Space zulassen
Case Else
' alle anderen Eingaben unterdrücken
e.Handled = True
End Select
End Sub
Private Sub Panel_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Panel.KeyDown
Select Case e.KeyCode
Case Keys.Up
Panel.Location = ...
Case Keys.Down
Panel.Location = ...
Case Keys.Left
Panel.Location = ...
Case Keys.Right
Panel.Location = ...
Case Else
End Select
End Sub