Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Rich Text Box formatieren
Autor: Master
Datum: 04.06.04 15:18
so.. eine rtb auf das form, und 2 cbuttons, dann diesen code einfügen und staunen Dim myTags(1 To 3) As String Private Sub Command1_Click() Dim i1, i2, i3 Dim tg() As String For i1 = LBound(myTags) To UBound(myTags) tg() = Split(myTags(i1), ",") i2 = InStr(1, RichTextBox1.Text, "[" & tg(0) & "]") Do Until i2 = 0 i3 = InStr(i2, RichTextBox1.Text, "[" & tg(1) & "]") RichTextBox1.SelStart = i2 - 1 RichTextBox1.SelLength = i3 - i2 + 2 + Len(tg(1)) Select Case tg(0) Case "b" RichTextBox1.SelBold = True Case "i" RichTextBox1.SelItalic = True Case "u" RichTextBox1.SelUnderline = True End Select RichTextBox1.SelText = Mid(RichTextBox1.SelText, 3 + Len(tg(0)), i3 - i2 - (2 + Len(tg(0)))) i2 = InStr(1, RichTextBox1.Text, "[" & tg(0) & "]") Loop Next i1 End Sub Private Sub Command2_Click() RichTextBox1.Text = "Das ist ein Text, dieser Teil ist fettgedruckt, dieser teil auch" & vbCrLf & _ "dieser teil ist kursiv: hier , dieser teil [u]unterstrichen" End Sub Private Sub Form_Load() myTags(1) = "b,/b" myTags(2) = "i,/i" myTags(3) = "u,/u" End Sub

Rich Text Box formatieren	2.568	hehemande	04.06.04 13:20
Re: Rich Text Box formatieren	1.376	Remirror	04.06.04 14:33
Re: Rich Text Box formatieren	1.339	hehemande	04.06.04 14:36
Re: Rich Text Box formatieren	1.281	Master	04.06.04 14:37
Re: Rich Text Box formatieren	1.411	hehemande	04.06.04 14:47
Re: Rich Text Box formatieren	1.292	Master	04.06.04 14:49
Re: Rich Text Box formatieren	1.358	hehemande	04.06.04 15:01
Re: Rich Text Box formatieren	1.321	Master	04.06.04 15:18
Re: Rich Text Box formatieren	1.254	E7	04.06.04 15:33
Re: Rich Text Box formatieren	1.245	hehemande	04.06.04 15:36
Re: Rich Text Box formatieren	1.296	E7	04.06.04 15:46

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen