In Standard-Textboxen gibt es bekanntlich keinen Überschreibmodus. Viele sind es aber gewohnt, über die Einfg-Taste vom Einfügemodus in den Überschreibmodus und umgekehrt umzuschalten. Wie man dieses Feature in seinen eigenen Anwendungen bereitstellen kann, zeigt der nachfolgende Tipp. Wie funktioniert der Überschreibmodus? Genau - wir tun so, als wäre beim Drücken einer Taste das aktuelle Zeichen, vor dem sich der Eingabecursor befindet, markiert - so als hätten wir vorher über die Umsch und der rechten Pfeiltaste eben dieses Zeichen hervorgehoben. Denn wie wir alle wissen, wird ein markierter Textausschnitt beim Drücken einer Taste durch das entsprechende Zeichen ersetzt. Halt! Wir müssen uns ja noch merken, ob der Einfüge- oder der Überschreibmodus eingeschaltet ist. Am einfachsten wir speichern uns diese Information in der Tag-Eigenschaft der Textbox - True für den Überschreibmodus und False für den Einfügemodus. Wird nun die Einfg-Taste betätigt schalten wir die Tag-Eigenschaft entsprechend von True auf False und umgekehrt. "Unschön" ist jetzt nur noch eines: Verliert die Textbox den Fokus und war der Überschreibmodus eingestellt, so ist dieser natürlich beim erneuten Erhalt des Fokus immer noch eingeschaltet. Schöner und eleganter ist es aber, wenn die Textbox beim Erhalt des Fokus immer standardmäßig auf den Einfügemodus eingestellt wäre. Also setzen wir folgerichtig die Tag-Eigenschaft im GotFocus-Ereignis immer auf False. Und hier der Code zu den gerade "angestellten" Überlegungen ' Einfügemodus voreinstellen Private Sub Text1_GotFocus() Text1.Tag = False End Sub ' Umschalten zwischen Einfüge- und Überschreibmodus Private Sub Text1_KeyDown(KeyCode As Integer, _ Shift As Integer) ' Nur wenn "Einfg"-Taste gedrückt wurde If KeyCode = vbKeyInsert Then Text1.Tag = Not CBool(Text1.Tag) End If End Sub ' Überscheibmodus... Private Sub Text1_KeyPress(KeyAscii As Integer) With Text1 ' ...nur, wenn kein Textauschnitt markiert ist If CBool(.Tag) = True And .SelText = "" And _ KeyAscii > 31 Then .SelLength = 1 End If End With End Sub Dieser Tipp wurde bereits 14.937 mal aufgerufen. Voriger Tipp | Zufälliger Tipp | Nächster Tipp
Anzeige
Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv Vol.6 (einschl. Beispielprojekt!) Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! - nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten - Symbol-Galerie mit mehr als 3.200 Icons im modernen Look Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m. |
sevWizard für VB5/6 Professionelle Assistenten im Handumdrehen Erstellen Sie eigene Assistenten (Wizards) im Look & Feel von Windows 2000/XP - mit allem Komfort und zwar in Windeseile :-) Tipp des Monats April 2024 Skyfloy Chart von Microsoft und dazu noch gratis Tutorial für Microsoft Chart Controls für Microsoft .NET Framework 3.5 Access-Tools Vol.1 Über 400 MByte Inhalt Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB |
||||||||||||||||
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein. |