Компонент для подсветки HTML синтаксиса

[Odrick]

Собственно сабж. Никто не встречал контрола для отображения HTML сподсветкой синтаксиса? В инете валяется куча контролов для делфей, С. А для VB что-то ничего нету...

[GSerg]

Скомпилируй и юзай...

[Odrick]

Это не ActiveX-контролы. Посему компилять нечего...

[tyomitch]

Емнип, в делфи можно легко скомпилировать OCX из любого VCL-контрола. По крайней мере, мне удавалось.

[Odrick]

Ну если бы я еще хорошо делфи знал Лана, попробую... Но, блин, неужели никому на VB это не нужно было? Что-то мало вериться...

[Alexander N. Samarin]

Если тебе нужно редактировать HTML, то можно не париться и юзить QuickHtml от hCORe. А вооюще-то есть MSScript по-моему.

[Бяка]

блин люди вычё! такую херню и зЫделать немогёте?
это пример для ввода символов "<" и ">" с клавы

Код: Выделить всё

Private Sub "Имя RichTextBox'a" KeyPress(KeyAscii As Integer)  RichTex1.SelColor = vbBlack 'Стандартным цветом будет чёрный
If KeyAscii = 60 Then 'При вводе "<" (60 это "<", a 62 - ">")...
   RichTex1.SelColor = vbBlue 'Цвет текста синий
End If
If KeyAscii = 62 Then 'При вводе ">"...
   KeyAscii = 1 'типа нажимаем  BackSpace, так чот если просто поменять цвет, то ">" будет чёрным
   RichTex1.SelText = ">" 'Прибавляется символ ">", но сейчас синий
   RichTex1.SelColor = vbBlack 'И цвет шрифта становится стандартным
End If
End Sub

а ето при чтении файла

Код: Выделить всё

On Error Resume Next 'Незнаю длячего оно :roll: 
startpoisk = 1 'Начальная позиция поиска
text = Len(RichTex1.text) 'Переменная text равна количеству символов  (для тех кто не знает - это делается функцией Len :P )
Do While startpoisk < text 'Начинается цикл и идёт, пока позиция поиска меньше всего текста
tegstart = InStr(startpoisk , RichTex1.text, "<") 'Ищщем начало тега "<
tegstop = InStr(tegstart , RichTex1.text, ">") 'Ищщем конец тега >
startpoisk = startpoisk - tegstart + tegstop + 1 'Задаём новую позицию поиска
If tegstart <>0 Then 'Если нашли символ < (начало тега), то начинаем подсвктку...
RichTex1.SelStart = tegstart - 1 'cnавим начало выделения (без "-1" выделение будет не с начала :( 
RichTex1.SelLength = (tegstop - tegstart ) + 1 'cтавим длину выделения
RichTex1.SelColor = vbBlue 'ВыделЁный текст становится синим
End If
Loop

[Odrick]

А ты хорошо подумал и внимательно прочитал тему поста? Никому не интересно раскрашивать только то, что стоит между < и > . А ты не подумал, что может быть такое? <input type='button' value='>>'> Вопрос не в том можем сделать или нет, а в том, чтобы не изобретать велосипед... Такого рода расскраска (только чуток получше - по ключевым словам и разделителям) у меня давно уже реализована... А хочется раскраску по типу Editor Plus при чем работающую с такой же скоростью

[alibek]

блин люди вычё! такую херню и зЫделать немогёте?

Вот именно херню ты и сделал.

[AjaxVS]

Лень - страшная весчь =(
Это не есть двигатель прогресса =(

Хотя если ты не пишешь своего хтмл-редактора, то может, ты и прав, не изобретая своего...

[Odrick]

Так в том-то и дело, что это не для редактора, а для простого просмотрщик кусков html...