Beep / Signalton in der TextBox abschalten Mit diesem Code lässt sich der Beepton abschalten, wenn in einer TextBox keine weiteren Zeichen mehr eingegeben werden können.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  14.677
https://www.tools4vb.com	System:  Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Bisher wurde noch keine Bewertung abgegeben.

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

So manch einen stört der Signalton (Beep), wenn man in einer TextBox versucht mehr Zeichen einzugeben, als zulässig.

Vor kurzem haben wir Ihnen einen Code für VB6 vorgestellt - heute die Variante für alle VB.NET Programmierer.

Mit nachfolgendem Code lässt sich der Beepton auf Wunsch abschalten:

Private Sub TextBox1_KeyPress(ByVal sender As Object, _
  ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
 
  ' Beep/Signalton abschalten
  If Asc(e.KeyChar) <> 8 Then
    With TextBox1
      If .SelectionLength < 1 AndAlso .MaxLength > 0 AndAlso .TextLength = .MaxLength Then
        e.Handled = True
      End If
    End With
  End If
End Sub