title image


Smiley Re: Ups, ganz so einfach ist es scheinbar doch nicht...






Private Sub FilteredTextbox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles FilteredTextbox.KeyPress

  Select Case Asc(e.KeyChar)

      Case 48 To 57, 8

          ' Zahlen und Backspace zulassen

      Case Else

          ' alle anderen Eingaben unterdrücken

          e.Handled = True

          My.Computer.Audio.PlaySystemSound(FilteredTextboxdia.SystemSounds.Beep) 'Geht nur in .Net 2.0, ansonsten auskommentieren!

End Sub







Code eingefügt mit Syntaxhighlighter 4.0






geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: