Hallo,
ich habe Probleme mit dem Umgang von OnKeyPress. Was mache
ich falsch ? Beim Aufruf des Formulars bzw. bei Eingabe in eine
Textbox erhalte ich kein gewünschtes Ergebnis. Wo liegt mein
grundsätzlicher Fehler ?
Hier der Code:
Protected Overrides Sub OnKeyPress(ByVal e As System.Windows.Forms.KeyPressEventArgs)
MyBase.OnKeyPress(e)
For Each locControl As Control In Me.Controls
If TypeOf locControl Is TextBox Then
If Text Is Nothing Then
Select Case Asc(e.KeyChar)
Case 8, 45, 46, 48 To 57
Case Else
e.Handled = True
End Select
Else
Select Case Asc(e.KeyChar)
Case 8, 46, 48 To 57
Case Else
e.Handled = True
End Select
End If
If Me.Text.IndexOf("-") = -1 Then
If Asc(e.KeyChar) = 45 Then
Me.Text = Nothing
Me.Text = "-"
End If
End If
End If
Next
End Sub
Bereist jetzt danke
MFG
Walter
ich habe Probleme mit dem Umgang von OnKeyPress. Was mache
ich falsch ? Beim Aufruf des Formulars bzw. bei Eingabe in eine
Textbox erhalte ich kein gewünschtes Ergebnis. Wo liegt mein
grundsätzlicher Fehler ?
Hier der Code:
Protected Overrides Sub OnKeyPress(ByVal e As System.Windows.Forms.KeyPressEventArgs)
MyBase.OnKeyPress(e)
For Each locControl As Control In Me.Controls
If TypeOf locControl Is TextBox Then
If Text Is Nothing Then
Select Case Asc(e.KeyChar)
Case 8, 45, 46, 48 To 57
Case Else
e.Handled = True
End Select
Else
Select Case Asc(e.KeyChar)
Case 8, 46, 48 To 57
Case Else
e.Handled = True
End Select
End If
If Me.Text.IndexOf("-") = -1 Then
If Asc(e.KeyChar) = 45 Then
Me.Text = Nothing
Me.Text = "-"
End If
End If
End If
Next
End Sub
Bereist jetzt danke
MFG
Walter
Comment