Serge Gavrilov » 30.10.2006 (Пн) 21:18
Хакер писал(а):Dromok писал(а):а зачем такие сложности с текстбоксами? В WebBrowser есть режим редактирования. Где-то на форуме здесь это уже обсуждалось, непомню где. А подставлять текстбоксы не самая лучшая идея.
Да ну? Может быть этот режим, это абсолютно другой контрол?
WebBrowser1.Document.designMode = "On" 
marvan » 31.10.2006 (Вт) 12:27
Хакер писал(а):Абсурден весь топик. И надо попытаться наставить автора на путь истины. И дать ему понять, что для подсветки и редактирования кода надо юзеать RTB или CodeMax-ы или самодельные контролы, но никак не вэб броузеры.
'Редактор с подсветкой синтаксиса на основе WebBrowser
'References: Microsoft HTML Object Library
'Controls: Microsoft Internet Controls
'добавить на форму WebBrowser с именем WebBrowser1
'добавить на форму Timer1 с именем Timer
Option Explicit
Private WithEvents mDiv As MSHTML.HTMLInputElement
Private WithEvents mDoc As MSHTML.HTMLDocument
Private Sub Form_Load()
Dim mStr As String
Dim iDoc As MSHTML.IHTMLDocument
Me.KeyPreview = True
'загрузка простого документа
WebBrowser1.Navigate "res://mshtml.dll/blank.htm"
While WebBrowser1.Document Is Nothing
'ждём создания документа
DoEvents
Wend
Set iDoc = WebBrowser1.Document
mStr = "<html><body>" & _
" <head><style type=""text/css"">" & _
" body {overflow-y: visible;}" & _
" span.keyword {color: #000080;}" & _
" span.remark {color: #008000;}" & _
" </style></head>" & _
" <SPAN id=""Line1"" style=""font-size: 8pt; font-family: Courier;""></SPAN>" & _
" <input name=txtFind id=Cursor type=""text"" tabindex=""1"" style=""position:absolute; " & _
" left:" & 10 & "px; " & _
" top:16px; width:1px; height:12px; z-index:1; " & _
" border: solid 1px #000000; background-color:#000000""></div>" & _
"</body></html>"
'меняем содержание всего документа
iDoc.Write mStr
'получаем элемент div по его идентифекатору
Set mDiv = iDoc.All.cursor
mDiv.focus
mDiv.setActive
Set mDoc = iDoc
End Sub
Private Sub mDiv_onfocusout()
mDoc.parentWindow.event.cancelBubble = False
mDoc.parentWindow.event.returnValue = False
End Sub
Private Sub mDiv_onpropertychange()
mDiv.Style.Left = Len(mDiv.Value) * 8 + 10 & "px"
mDoc.All.Line1.innerHTML = FormatCode(mDiv.Value)
End Sub
Private Sub Timer1_Timer()
Static f As Boolean
f = Not f
mDiv.Style.BorderColor = IIf(f, "#000000", "#FFFFFF")
mDiv.Style.Left = Len(mDiv.Value) * 8 + 10 & "px"
mDiv.focus
mDiv.setActive
End Sub
Private Function FormatCode(sCode As String) As String
'Процедура форматирования кода
Dim aStr(0 To 199) As String 'массив искомых слов
Dim sCodeLen As Long 'длина входящей строки
Dim mStrOut As String 'выходящая строка
Dim mStrSub As String 'выделенная подстрока
Dim mChr As String 'выделенный символ
Dim mNum As Long 'текущая позиция
Dim mNumOld As Long 'предыдущая позиция
Dim bOk As Boolean 'признак обнаружения подстроки
Dim i As Byte 'счётчик
Dim arr1 As Variant
Dim arr2 As Variant
'массив ключевых слов
arr1 = Array("#If", "#End", "#ElseIf", "#Else", "#Const", "Xor", "Write", _
"WithEvents", "With", "Width", "While", "Wend", "Variant", _
"Until", "Unknown", "Unlock", "Unload", "UBound", "TypeOf", _
"Type", "True", "To", "Then", "Text", "Tab", "Sub", "String$", _
"String", "StrComp", "Stop", "Step", "Static", "Spc", "Single", _
"Shared", "Sgn", "Set", "Select", "Seek", "Scale", "RSet", _
"RGB", "Return", "Resume", "Rem", "ReDim", "Read", "Randomize", _
"Random", "RaiseEvent", "Put", "Public", "PSet", "Property", _
"Private", "Print", "Preserve", "ParamArray", "Output", "Or", _
"Optional", "Option", "Open", "On", "Object", "Null", "Nothing", _
"Not", "Next", "New", "Name", "Module", "Mod", "MidB$", "MidB", _
"Mid$", "Mid", "Me", "LSet", "Loop", "Long", "Lock", "Local", _
"Load", "LINEINPUT", "Line", "Like", "Lib", "Let", "LenB", "Len", _
"Left", "LBound", "Is", "Integer", "Int", "InStrB", "InStr", _
"InputB$", "InputB", "Input$", "Input", "In", "Implements", _
"Imp", "If", "GoTo", "GoSub", "Go", "Global", "Get", "Function", _
"Friend", "FreeFile", "Format$", "Format", "For", "Fix", "False", _
"F", "Explicit", "Exit", "Event", "Error$", "Error", "Erase", _
"Eqv", "Enum", "EndIf", "End", "Empty", "ElseIf", "Else", "Each", _
"Double", "DoEvents", "Do", "Dir$", "Dir", "Dim", "DefVar", "DefStr", _
"DefSng", "DefObj", "DefLng", "DefInt", "DefDbl", "DefDec", "DefDate", _
"DefCur", "DefByte", "DefBool", "Declare", "Decimal", "Debug", "Date$", _
"Date", "Database", "Currency", "CVErr", "CVDate", "CVar", "CurDir$", _
"CurDir", "CStr", "CSng", "Const", "Compare", "Close", "CLng", "Circle", _
"CInt", "ChDir", "CDecl", "CDbl", "CDec", "CDate", "CCur", "CByte")
'ограничение на размер массива, определяемого таким способом
arr2 = Array("CBool", "Case", "Call", "ByVal", "Byte", "ByRef", "Boolean", _
"Binary", "BF", "Base", "B", "Assert", "As", "Array", "Append", "Any", _
"And", "Alias", "AddressOf", "Access", "Abs")
For i = 0 To 178
aStr(i) = arr1(i)
Next
For i = 0 To 20
aStr(179 + i) = arr2(i)
Next
mNumOld = 0
sCodeLen = Len(sCode)
For mNum = 1 To sCodeLen 'перечисляем все символы входящей строки
mChr = Mid$(sCode, mNum, 1) 'выделяем символ
If mChr = " " Or mChr = vbCr Or mChr = vbLf Or mChr = "(" Or mChr = ")" _
Or mChr = "," Or mNum = Len(sCode) Then
If mChr = " " Then mChr = "&nb" & "sp;"
'обнаружен разделитель слов
mStrSub = Mid$(sCode, mNumOld + 1, mNum - mNumOld - 1) 'выделяем подстроку
bOk = False
For i = 0 To 199 'поиск подстроки
If UCase$(mStrSub) = UCase$(aStr(i)) Then
mStrSub = aStr(i)
bOk = True
Exit For
End If
Next
If bOk = True Then 'подстрока найдена
mStrOut = mStrOut & "<span class=""keyword"">" & mStrSub & _
"</span>" & mChr
Else
mStrOut = mStrOut & mStrSub & mChr
End If
mNumOld = mNum
End If
If mChr = Chr$(39) Then 'обнаружен коментарий
mNum = InStr(mNum, sCode, vbCrLf)
If mNum = 0 Then mNum = Len(sCode)
mStrSub = Mid$(sCode, mNumOld + 1, mNum - mNumOld - 1) 'выделяем подстроку
mStrOut = mStrOut & "<span class=""remark"">" & mStrSub & _
"</span>"
mNumOld = mNum - 1
End If
If mChr = vbLf And Right$(mStrOut, 2) = vbCrLf Then
mStrOut = Left$(mStrOut, Len(mStrOut) - 2)
mStrOut = mStrOut & "&#" & "13"
End If
Next
FormatCode = mStrOut
End Function
Хакер » 31.10.2006 (Вт) 15:41
Хакер » 31.10.2006 (Вт) 16:12
marvan » 31.10.2006 (Вт) 17:23
Хакер писал(а):Ну, жто всё равно не то. Вот в VB.NET IDE или в PHP Expert Editor 4.0
Хакер писал(а):Вот там, да, настоящая подсветка. А здесь простая выделялка слов синим цветом. Причём бажная.
Хакер » 31.10.2006 (Вт) 23:24
Antonariy » 01.11.2006 (Ср) 10:05
Рюшечки и бантики понавесить действительно просто, но непросто сделать главное - чтобы использование документа броузера при печати было таким же эргономичным, как какого-нибудь завалящего текстбокса. Ну, перемещение по тексту, копипейст и прочие прелести обычного ноутпада.уверен, что по возможностям редактор написанный на базе WebBrowser может получиться весьма продвинутым. Например сворачивание блоков кода, закладки, печать оносительно просто сделать с браузером, но не с RTF.
Debugger » 01.11.2006 (Ср) 10:13
marvan » 01.11.2006 (Ср) 11:06
Antonariy писал(а):Рюшечки и бантики понавесить действительно просто, но непросто сделать главное - чтобы использование документа броузера при печати было таким же эргономичным, как какого-нибудь завалящего текстбокса. Ну, перемещение по тексту, копипейст и прочие прелести обычного ноутпада.
Sergeant Pepper » 01.11.2006 (Ср) 11:56
Antonariy писал(а):... но непросто сделать главное - чтобы использование документа броузера при печати было таким же эргономичным, как какого-нибудь завалящего текстбокса. Ну, перемещение по тексту, копипейст и прочие прелести обычного ноутпада.
Antonariy » 01.11.2006 (Ср) 12:00
Интересно было бы посмотреть что и как получилось в этом направлении у google (не так давно он купил онлайновый текстовый редактор Writely) но сам "текстбокс", в котором происходит набор текста, находится в iframe, чей src ведет на url отличный от http://docs.google.com/, из-за чего документ iframe'а посмотреть невозможно - <Отказано в доступе>.Да, с редактированием будет не сложно, а очень сложно.
Даже простое позиционирование курсора для WB придётся писать с нуля. Тоже касается и контекстного меню.
Sergeant Pepper » 01.11.2006 (Ср) 12:15
Если бы я был тщеславен, сейчас же бы все бросил и начал показыватьAntonariy писал(а):Sergeant Pepper, ну-ка покажи тут всем высший класс, до
.
Antonariy » 01.11.2006 (Ср) 12:18
Antonariy » 01.11.2006 (Ср) 12:24
Если бы не был, оставил бы мое замечание без внимания.Sergeant Pepper писал(а):Если бы я был тщеславен, сейчас же бы все бросил и начал показыватьAntonariy писал(а):Sergeant Pepper, ну-ка покажи тут всем высший класс, до
Минимальная функциональность - печать текста и навигация по оному. А так - равнение на гугл!Sergeant Pepper писал(а):Функциональности вам хватит?
Sergeant Pepper » 01.11.2006 (Ср) 12:45
Antonariy писал(а):Минимальная функциональность - печать текста и навигация по оному.
Sergeant Pepper » 01.11.2006 (Ср) 12:49
Antonariy писал(а):Если бы не был, оставил бы мое замечание без внимания.
Antonariy » 01.11.2006 (Ср) 12:58
Хакер » 01.11.2006 (Ср) 13:05
NashRus писал(а):2Хакер, да что вы такое говорите, человек же написал, что это только ПРОТОТИП, показывающий принципиальную возможность, а вы про про какие то строчки.
2marvan, молодца.
Antonariy » 01.11.2006 (Ср) 13:07
Ничего личного, это же бизнес (с)Sergeant Pepper писал(а):Antonariy писал(а):Если бы не был, оставил бы мое замечание без внимания.
Ну что ж вы так, за простой вежливостью видите тщеславие?
Или я вас чем-то задел? Извините, постараюсь быть с вами внимательней.
Antonariy » 01.11.2006 (Ср) 13:13
В свете последних исследований вынужден не согласиться. Вполне реально сделать web-редактор с подсветкой. Даже кроссброузерный.Хакер писал(а):Здесь автор юзает WB не по назначению.
Хакер » 01.11.2006 (Ср) 13:21
Sergeant Pepper » 01.11.2006 (Ср) 13:29
Antonariy писал(а):Просто заявление "легко", а потом демонстративный отказ в объяснении "как" выглядит как-то... не очень...
Antonariy » 01.11.2006 (Ср) 13:46
Предположу, что это делается проще - <body oncontextmenu="window.event.returnValue=false">HP для интерфейса своих прог тоже использует WB, которые сабклассит, не давая тем самым пользователю райткликом вызвать контекстное меню.
Это относится к конкретной кривой реализации, а не к концепции в целом.Однако WebBrowser иногда ставит не ту кодировку и окна всех их прог оказываются битыми. А выставить нужную кодировку просто так не получится, ведь меню они заблокировали.
Фактически webbrowser это и есть пикчербокс, а апи для работы с ним сведены в mshtml.dllИмхо, нет ничего лучше чем PictureBox и кучу API (типа DrawText и тд.) чтобы заделать нормальную быструю подсветку.
marvan » 01.11.2006 (Ср) 14:11
Хакер писал(а):Я когда писал какой-либо меня убрасывали тухлыми яйцами и угаживали нехорошими словами. И никто меня вот так не защищал.
Хакер писал(а):Имхо, нет ничего лучше чем PictureBox и кучу API (типа DrawText и тд.) чтобы заделать нормальную быструю подсветку. Я хоть и не поклонник быстрого кода, но в данном случае, быстрота действительно имеет значение ибо при быстром наборе задержки особенно ощутимы.
Сейчас этот форум просматривают: Majestic-12 [Bot] и гости: 122
