RichTextBox - где он??? :(
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Сообщений: 10
• Страница 1 из 1
- DKbelRoma
- Бывалый
-
- Сообщения: 282
- Зарегистрирован: 13.09.2007 (Чт) 23:32
- Откуда: Из Кривого Рога
RichTextBox - где он??? :(
DKbelRoma » 28.11.2007 (Ср) 19:30
Немогу найти в VB - RichTextBox.... Подскажите где его искать ? В компонентах( Ctrl+T ) или где?? Если в компонентах то какое у него полное название???
«Не важно, откуда ты. Важно - где ты.»
- Lumen
- Постоялец
-
- Сообщения: 841
- Зарегистрирован: 03.12.2005 (Сб) 16:09
- Откуда: Брянск
Lumen » 28.11.2007 (Ср) 20:40
Или тут в теме "Добавление в ListView и автоскроллинг" есть ссылка на контролы с форума www.sources.ru, там есть APIшная замена RichTextBox'у.
ЗЫ: Поищи, тут вроде hCORe выкладывал модуль с RichTextBox API...
ЗЫ: Поищи, тут вроде hCORe выкладывал модуль с RichTextBox API...
Подпись проходит рефакторинг
- DKbelRoma
- Бывалый
-
- Сообщения: 282
- Зарегистрирован: 13.09.2007 (Чт) 23:32
- Откуда: Из Кривого Рога
DKbelRoma » 29.11.2007 (Чт) 18:54
Спасибо, нашёл RichTextBox. Может заодно поправите код?
Мне нужно что бы в RichTextBox-е когда пишешь шрифт был чёрного цвета ,а если пишешь "<HTML>" то <HTML> окрашивается допустим в красный , и дальше шрифт был чёрный .... Заранее спасибо!!!
- Код: Выделить всё
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> окрашивается допустим в красный , и дальше шрифт был чёрный .... Заранее спасибо!!!
«Не важно, откуда ты. Важно - где ты.»
- Хакер
- Телепат
-
- Сообщения: 16489
- Зарегистрирован: 13.11.2005 (Вс) 2:43
- Откуда: Казахстан, Петропавловск
Хакер » 29.11.2007 (Чт) 20:32
ВуД номер 2 
.
DKbelRoma если хочешь нормальный контрол - пиши свой. Но ты свой не напишешь. Поэтому юзай готовый. Вроде CodeMax-а.
.
DKbelRoma если хочешь нормальный контрол - пиши свой. Но ты свой не напишешь. Поэтому юзай готовый. Вроде CodeMax-а.
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.
—That's right! We decapitate them.
- DKbelRoma
- Бывалый
-
- Сообщения: 282
- Зарегистрирован: 13.09.2007 (Чт) 23:32
- Откуда: Из Кривого Рога
DKbelRoma » 29.11.2007 (Чт) 22:40
Хакер - а где можно посмотреть CodeMax? На форуме есть статейки с примерчиками или подробное обьяснение создания собственных контролов? 
«Не важно, откуда ты. Важно - где ты.»
Сообщений: 10
• Страница 1 из 1
Кто сейчас на конференции
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 2