Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

RichTextBox
Autor: Roman
Datum: 22.02.02 16:35
Hallo muß schon wieder etwas nachfragen. Also ich habe ein RichTextBox in die ich einen Text schreiben will. Einzelne Textteile sollen durch Makierung und dann per ComboBox z.B. in der größe geändert werden. Dieses habe ich so gelöst: Dim laenge As Integer Dim anfang As Integer Dim sperre As Integer Private Sub Combo1_Click() RichTextBox1.SelStart = anfang RichTextBox1.SelLength = laenge RichTextBox1.SelFontSize = Combo1.Text 'Werte sind schon in der ComboBox vorgegeben End Sub Private Sub RichTextBox1_Click() sperre = 1 End Sub Private Sub RichTextBox1_GotFocus() sperre = 1 End Sub Private Sub RichTextBox1_LostFocus() sperre = 0 End Sub Private Sub RichTextBox1_SelChange() If sperre = 1 Then anfang = RichTextBox1.SelStart laenge = RichTextBox1.SelLength End If End Sub Dies funktioniert auch. Doch die Textmakierung geht immer weg, wenn man auf die ComboBox drückt. Ist dies zu umgehen? Mit freundlich Grüßen Roman

RichTextBox	46	Roman	22.02.02 16:35
Re: RichTextBox	281	unbekannt	22.02.02 18:45
Re: RichTextBox	28	Roman	22.02.02 19:10
Re: RichTextBox	209	unbekannt	22.02.02 19:21
Re: RichTextBox	29	Roman	22.02.02 19:32
Re: RichTextBox	214	Dieter	22.02.02 22:02

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