Внедрение HTML

10.12.2009, 02:48. **Показов** 1437. **Ответов** 1

Студворк — интернет-сервис помощи студентам

Возможно ли внедрить в Label HTML(/blabla.html) документ чтобы он отображался как HTML а не как текст?
Или проще, возможно ли внедрить в программу окошко браузера, чтобы background был прозрачным, либо его вообще небыло?

P.S. я чайник )

@BasicMan · 10.12.2009, 11:12

Как написать свой Web - броузер на Visual Basic 6

При помощи средств, которые имеются в системе проектирования VB6, вы можете любое созданное вами приложение наделить возможностью в любой момент входить в Интернет и обращаться к любой его Web-странице. Это, в свою очередь, дает вашему приложению независимость от свойств броузера пользователя - вы всегда точно будете знать, как отображается ваша любимая страница в вами созданном броузере. В общем, напиши сою "оперу", или хотя бы песню…

Для начала в меню Project на панели Components на странице Controls найдите строку Microsoft Internet Controls. Отметьте эту строку флажком и щелкните Ok. В результате этих манипуляций инструмент WebBrowser появиться на вашей панели Toolbox. Пиктограмма этого инструмента похожа на изображение глобуса.

Теперь WebBrowser нужно разместить на вашей экранной форме. Т.к. его предназначение - отображать содержание Web-страниц, позаботьтесь о том, чтобы это окно в мир Интернет не было бы слишком маленьким, иначе посматривать страницы будет не очень просто, хотя, автоматически появляющиеся полосы прокрутки все равно вам позволят это сделать. Справедливо заметить, что если вы не собираетесь написать броузер, который должен составить конкуренцию, например IE, а всего лишь как средство независимой доставки пользователя вашего приложения к заинтересовавшей его страничке, тогда для его работы понадобиться написать всего одну строчку программного кода:

Visual Basic
1
WebBrowser1.Navigate "http://www.любимая_страница.ru/"

Navigate - это метод, применяемый к WebBrowser. Единственным параметром этого метода является адрес той страницы Интернет, с которой начнется ваше путешествие по сети.
Пример рабочего кода:

Visual Basic
1
2
3
4
5
6
Dim Adres As String
 
Private Sub Command1_Click()
Adres = "http://www.любимая страница.ru/"
WebBrowser1.Navigate Adres
End Sub

Здесь сигналом к запуску служит клик командной кнопки, соответственно, эту кнопку нужно так же поместить на форму, а свойству Caption можно присвоить значение, например " любимая страница". Переменная Adres строковая, содержит полный адрес страницы в Интернете. Бывает так, что загрузка страницы происходит очень долго - а деньги как говориться капают. По этому, желательно обеспечить принудительную остановку загрузки пользователем. Это можно сделать так. Создаем вторую кнопку, свойству Caption присваиваем значение "Stop" и пишем код:

Visual Basic
1
2
3
Private Sub Command2_Click()
WebBrowser1.Stop
End Sub

Для создания многофункционального броузера конечно, использование кнопок для каждого адреса - это не лучшее решение. В этом случае можно использовать комбинированное окно списка -ComboBox, где еще на этапе проектирования можно внести сколько угодно адресов в поле List (получится типа "избранное"), и корректировать их в процессе работы броузера уже в самом окне списка. Сделать это можно примерно так:

Visual Basic
1
2
3
4
5
6
Private Sub Command1_Click()
Dim Ind As Integer
Ind = Combo1.ListIndex
Adres = Combo1.List(Ind)
WebBrowser1.Navigate Adres
End Sub

Комбинированное окно списка -ComboBox можно расположить в самом верху формы, выбор адреса производится кликом на кнопку со стрелкой вниз. Откроется весь список адресов, из которого кликом кнопки мыши можно выбрать любой и терпеливо ждать конца загрузки.
Процедура, которая может пригодиться при проектировании своего Web - броузера. Она относиться к событию DocumentComplete -
успешному завершению загрузки. Пример простейшего применения:

Visual Basic
1
2
3
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
MsgBox "Загрузка произведена"
End Sub

А вот как можно используя метод LocationName отображать название текущего адреса в заголовке вашего web-броузера:

Visual Basic
1
2
3
Private Sub WebBrowser1_DownloadComplete()
Me.Caption = WebBrowser1.LocationName
End Sub

Каждый Web-броузер имеет такие кнопки как "Назад", "Вперед", "Обновить" и "Домой".
Вот как можно это реализовать с помощью соответствующих методов:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Command3_Click()
On Error Resume Next
WebBrowser1.GoBack 'В Caption этой кнопки напишите "Назад"
End Sub
 
Private Sub Command4_Click()
On Error Resume Next
WebBrowser1.GoForvard 'В Caption этой кнопки напишите "Вперед"
End Sub
 
Private Sub Command5_Click()
WebBrowser1.Refresh 'В Caption этой кнопки напишите "Обновить"
End Sub
 
Private Sub Command6_Click()
On Error Resume Next
WebBrowser1.GoHome 'В Caption этой кнопки напишите "Домой"
End Sub

Для надежной работы этих кнопок включен обработчик ошибок , т.к. к примеру если вы нажали кнопку "Назад", а эта была первая страница и назад двигаться некуда, то работа приложения завершится с ошибкой, то же и для кнопки "Вперед", если вы не откатывались "Назад".

Ну, вот кратенько и все. Внешний вид вашего броузера, различные необходимые элементы, такие как полоса процесса загрузки или StatusBar - все оставляю на милость проектировщика, на его буйную фантазию.
http://www.easycoding.org/?showpage=22&where=vb

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .

Hummel

	Внедрение HTML 10.12.2009, 02:48. Показов 1437. Ответов 1 Метки нет (Все метки) Возможно ли внедрить в Label HTML(/blabla.html) документ чтобы он отображался как HTML а не как текст? Или проще, возможно ли внедрить в программу окошко браузера, чтобы background был прозрачным, либо его вообще небыло? P.S. я чайник )