Rubrik: Controls · TextBox & RichTextBox | VB-Versionen: VB2005, VB2008 | 06.11.08 |
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: | Views: 14.290 |
www.tools4vb.de | System: Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
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