Rubrik: Controls · TextBox & RichTextBox | VB-Versionen: VB6 | 23.10.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: 9.624 |
www.tools4vb.de | System: Win9x, WinNT, 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.
Mit nachfolgendem Code lässt sich der Beepton auf Wunsch abschalten:
Private Sub Text1_KeyPress(KeyAscii As Integer) ' Beep / Signalton abschalten If KeyAscii <> 8 Then With Text1 If .SelLength < 1 And .MaxLength > 0 And Len(.Text) = .MaxLength Then KeyAscii = 0 End If End With End If End Sub