Страница: 1 |
Вопрос: Про html | Добавлено: 17.12.02 18:52 |
Автор вопроса: ![]() |
Хотелось бы узнать, как отобразить в форме html - файл (естественно, не в исходном виде.)? |
Ответы | Всего ответов: 5 |
Номер ответа: 1 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() Вопросов: 5 Ответов: 8 |
Профиль | Цитата | #1 | Добавлено: 17.12.02 19:46 |
Сам залез сюда, чтобы задать такой же вопрос... НО! для просмотра html я нашел стандартный VB-шный контрол DHTML-Edit Control, он все прекрасно показывает, что , я так понял тебе и нужно... но там можно и редактировать html-страницу, что уже не нужно мне, а как отключить это - не знаю! |
Номер ответа: 2 Автор ответа: ![]() ![]() Вопросов: 4 Ответов: 13 |
Профиль | Цитата | #2 | Добавлено: 17.12.02 21:26 |
1. Поместить на форму контрол WebBrowser. 2 Сделать ссылку на Microsoft HTML Object Library 3 В процедуру загрузки фрмы поместить: Dim adr As String Set IEDoc = WebBrowser1.Document WebBrowser1.Navigate adr Далее F5 |
Номер ответа: 3 Автор ответа: ![]() ![]() Вопросов: 0 Ответов: 1 |
Профиль | Цитата | #3 | Добавлено: 17.03.04 20:38 |
А есле html код уже есть в переменной, и надо его отобразить то как?? |
Номер ответа: 4 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() Разработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | Цитата | #4 | Добавлено: 17.03.04 21:27 |
А если не использовать ocx ??? Если посмотреть класс окна то он такой "Internet Explorer_Server", его можно как-нить создать !? |
Номер ответа: 5 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | Цитата | #5 | Добавлено: 17.03.04 21:52 |
WebBrowser - это не OCX, а shdocvw.dll, входящий в любую Винду, т.к. есть неотъемлемой частью IE. Создать его в коде можно, только я не помню как Если HTML-код в переменной, то действовать надо так: Отображать произвольный HTML-код в WebBrowser: Private Sub Form_Load() Dim strHTMLText As String WebBrowser1.Navigate2 "about:Blank" DoEvents On Error GoTo WaitAwhileLonger WebBrowser1.Document.body.bgcolor = "yellow" strHTMLText = " WebBrowser1.Document.body.innerhtml = strHTMLText Exit Sub WaitAwhileLonger: DoEvents Resume End Sub Поиск по форуму рулит! |
Страница: 1 |
|