Hi,
Kann man den keydown sub auf mehrere textboxen gleichzeitig anwenden? sonst muss ich den etliche male so schreiben... das selbe problem mit dem Buttonclick
Kann man den keydown sub auf mehrere textboxen gleichzeitig anwenden? sonst muss ich den etliche male so schreiben... das selbe problem mit dem Buttonclick
VB.NET-Quellcode
- Public Class Form1
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- If TextBox1.Text = ("") Then
- MsgBox("da ist ein feld leer")
- End If
- End Sub
- Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown
- Select Case e.KeyCode
- Case Keys.D0 To Keys.D9, Keys.Back, Keys.Space, Keys.Decimal, Keys.NumPad0 To Keys.NumPad9, Keys.Tab, Keys.Left, Keys.Right, Keys.LButton, Keys.OemPeriod, Keys.Oemcomma
- Case Else
- e.SuppressKeyPress = True
- End Select
- End Sub
- End Class