Отображение HTML на экранной форме
Материал из GedeminWiki
(Различия между версиями)
SYSDBA (обсуждение | вклад) (Новая страница: «Для отображения HTML странички следует воспользоваться компонентом TWebBrowser. Создадим чистую…») |
SYSDBA (обсуждение | вклад) |
||
| Строка 15: | Строка 15: | ||
Doc.Body.InnerHTML = _ | Doc.Body.InnerHTML = _ | ||
| − | |||
End Sub | End Sub | ||
Версия 20:49, 7 декабря 2011
Для отображения HTML странички следует воспользоваться компонентом TWebBrowser. Создадим чистую форму и расположем на ней два компонента:
- usrg_WB типа TWebBrowser
- usrg_Btn типа TButton
Напишем обработчик события OnClick для кнопки usrg_Btn:
<sourcehighlight lang="vbnet"> Option Explicit Sub usrg_BtnOnClick(ByVal Sender)
Dim WB, Doc
Set WB = Sender.OwnerForm.GetComponent("usrg_WB")
Set Doc = WB.Document
Doc.Body.InnerHTML = _
End Sub </sourcehighlight>
По нажатию на кнопку в поле веб браузера будет отображаться фраза "Привет из Гедымина!" и загружаться изображения с сайта компании Golden Software.
