Nochmal TextBox UF Tastenbelegung
10.10.2004 18:33:18
Ralf
habe die Frage am Freitag schonmal gestellt. Vielleicht zu umständlich. Oder es geht garnicht. Kann jemand helfen?
In einer UF habe ich eine TextBox. Die Entertaste wurde umbelegt (brauche ich halt). Nun suche ich eine Möglichkeit am Anfang des Textes (Chr 13?) eine Leerzeile einzufügen, also den vorhandenen Text eine - oder mehrere - Zeilen nach unten zu schieben. Mit folgendem Code macht er über die Bilddown-Taste (Chr34) den Zeilenumbruch aber immer am Ende des Textes - unabhängig von der Cursorposition. Wie muss ich folgenden Code umstricken, dass er die Leerzeile(n) an der Cursorposition macht?
Mit der Bitte um Hilfe
Gruß
Ralf
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
TextBox1.Text = TextBox1.Text & Chr(13) & Chr(149) & Chr(160)
SendKeys "{BACKSPACE}"
End If
If KeyCode = 34 Then
TextBox1.Text = TextBox1.Text & Chr(13)
End If
End Sub
Anzeige