Nochmal markierten Text in Textbox verändern
27.09.2006 18:09:30
Fritz Sanne
Private Sub cmdh1_Click()
With frmHTML.txtBox
.Text = Left(.Text, .SelStart) & "<h1>" & Mid(.Text, .SelStart + 1, .SelLength) & "</h1>" _
& Right(.Text, Len(.Text) - .SelStart)
End With
End Sub
Sinn soll es sein, dass ich in einer Textbox eine Zeichenfolge markiere und sie dann über einen Schalter in HTML-Tags einbinde - hier . Dabei soll in der Textbox erhalten bleiben, was vor und hinter der Markierung steht.
Ich habe es - auch nach recherche - soweit hinbekommen wie oben dargestellt. Dabei bleibt der Text vor der Markierung erhalten, die Tags werden gesetzt, aber alles nach Left erscheint dann nochmal nach der von mir zuvor markierten Zeichenfolge. Nach dem Minuszeichen knabbert wohl der Wurm. Ich habe versucht, Left und Mid von Right abzuziehen, aber offensichtlich mit ungeeigneten Mitteln.
Danke für noch mehr Tipps.
Grüße,
Fritz