Überschreibmodus für Textboxen Dieser Tipp zeigt, wie man einen Überschreibmodus in Textboxen realisieren kann.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  14.501
www.tools4vb.de	System:  Win9x, WinNT, Win2k, WinXP, Vista, Win7, Win8, Win10	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 6 Bewertung insgesamt: gut Durchschnittliche Bewertung: 4.3 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

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