RichTextBox - где он??? :(

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
DKbelRoma
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 282
Зарегистрирован: 13.09.2007 (Чт) 23:32
Откуда: Из Кривого Рога

RichTextBox - где он??? :(

Сообщение DKbelRoma » 28.11.2007 (Ср) 19:30

Немогу найти в VB - RichTextBox.... Подскажите где его искать ? В компонентах( Ctrl+T ) или где?? Если в компонентах то какое у него полное название???
«Не важно, откуда ты. Важно - где ты.»

Crio
Обычный пользователь
Обычный пользователь
Аватара пользователя
 
Сообщения: 84
Зарегистрирован: 21.05.2007 (Пн) 12:01
Откуда: Питер

Сообщение Crio » 28.11.2007 (Ср) 20:16

В компонентах:
Microsoft Rich Textbox Control 6.0

Lumen
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 841
Зарегистрирован: 03.12.2005 (Сб) 16:09
Откуда: Брянск

Сообщение Lumen » 28.11.2007 (Ср) 20:40

Или тут в теме "Добавление в ListView и автоскроллинг" есть ссылка на контролы с форума www.sources.ru, там есть APIшная замена RichTextBox'у.
ЗЫ: Поищи, тут вроде hCORe выкладывал модуль с RichTextBox API...
Подпись проходит рефакторинг

DKbelRoma
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 282
Зарегистрирован: 13.09.2007 (Чт) 23:32
Откуда: Из Кривого Рога

Сообщение DKbelRoma » 29.11.2007 (Чт) 18:54

Спасибо, нашёл RichTextBox. Может заодно поправите код?
Код: Выделить всё
Sub ColorIt(ByVal lBegPos As Long, ByVal lLength As Long)
    RichTextBox1.SelStart = lBegPos - 1
    RichTextBox1.SelLength = lLength
    RichTextBox1.SelColor = vbRed
End Sub
Private Sub RichTextBox1_Change()
Dim sst As Long, slln As Long
Dim lCurPos As Long
RichTextBox1.Enabled = False
sst = RichTextBox1.SelStart
slln = RichTextBox1.SelLength
RichTextBox1.SelStart = 0
RichTextBox1.SelLength = Len(RichTextBox1.Text) + 1
RichTextBox1.SelColor = vbBlack


lCurPos = 0
    Do
        lCurPos = InStr(lCurPos + 1, RichTextBox1.Text, "<HTML> ", vbTextCompare)
        If lCurPos = 0 Then Exit Do
        ColorIt lCurPos, 4 'Количество символов, которые будут окрашиваться
    Loop

RichTextBox1.SelStart = sst
RichTextBox1.SelLength = slln
RichTextBox1.SelColor = vbBlack
RichTextBox1.Enabled = True
RichTextBox1.SetFocus
End Sub

Мне нужно что бы в RichTextBox-е когда пишешь шрифт был чёрного цвета ,а если пишешь "<HTML>" то <HTML> окрашивается допустим в красный , и дальше шрифт был чёрный .... Заранее спасибо!!! 8)
«Не важно, откуда ты. Важно - где ты.»

Хакер
Телепат
Телепат
Аватара пользователя
 
Сообщения: 16489
Зарегистрирован: 13.11.2005 (Вс) 2:43
Откуда: Казахстан, Петропавловск

Сообщение Хакер » 29.11.2007 (Чт) 20:32

ВуД номер 2 :lol: .

DKbelRoma если хочешь нормальный контрол - пиши свой. Но ты свой не напишешь. Поэтому юзай готовый. Вроде CodeMax-а.
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.

DKbelRoma
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 282
Зарегистрирован: 13.09.2007 (Чт) 23:32
Откуда: Из Кривого Рога

Сообщение DKbelRoma » 29.11.2007 (Чт) 22:40

Хакер - а где можно посмотреть CodeMax? На форуме есть статейки с примерчиками или подробное обьяснение создания собственных контролов? :P
«Не важно, откуда ты. Важно - где ты.»

Хакер
Телепат
Телепат
Аватара пользователя
 
Сообщения: 16489
Зарегистрирован: 13.11.2005 (Вс) 2:43
Откуда: Казахстан, Петропавловск

Сообщение Хакер » 29.11.2007 (Чт) 23:19

Всё это есть на сайте, а не на форуме.
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.

DKbelRoma
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 282
Зарегистрирован: 13.09.2007 (Чт) 23:32
Откуда: Из Кривого Рога

Сообщение DKbelRoma » 30.11.2007 (Пт) 15:44

Хакер - можно поинтересоваться на каком сайте??? :lol:
«Не важно, откуда ты. Важно - где ты.»

Хакер
Телепат
Телепат
Аватара пользователя
 
Сообщения: 16489
Зарегистрирован: 13.11.2005 (Вс) 2:43
Откуда: Казахстан, Петропавловск

Сообщение Хакер » 30.11.2007 (Пт) 16:02

—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.

DKbelRoma
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 282
Зарегистрирован: 13.09.2007 (Чт) 23:32
Откуда: Из Кривого Рога

Сообщение DKbelRoma » 30.11.2007 (Пт) 16:12

Спасибо. :P Буду знать.
«Не важно, откуда ты. Важно - где ты.»


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: AhrefsBot и гости: 19

    TopList