Отображение HTML на экранной форме
Материал из GedeminWiki
(Различия между версиями)
SYSDBA (обсуждение | вклад) |
SYSDBA (обсуждение | вклад) |
||
| Строка 6: | Строка 6: | ||
Напишем обработчик события OnClick для кнопки usrg_Btn: | Напишем обработчик события OnClick для кнопки usrg_Btn: | ||
| − | < | + | <syntaxhighlight lang="vbnet"> |
Option Explicit | Option Explicit | ||
Sub usrg_BtnOnClick(ByVal Sender) | Sub usrg_BtnOnClick(ByVal Sender) | ||
| Строка 17: | Строка 17: | ||
End Sub | End Sub | ||
| − | </ | + | </syntaxhighlight> |
По нажатию на кнопку в поле веб браузера будет отображаться фраза "Привет из Гедымина!" и загружаться изображения с сайта компании Golden Software. | По нажатию на кнопку в поле веб браузера будет отображаться фраза "Привет из Гедымина!" и загружаться изображения с сайта компании Golden Software. | ||
Версия 20:50, 7 декабря 2011
Для отображения HTML странички следует воспользоваться компонентом TWebBrowser. Создадим чистую форму и расположем на ней два компонента:
- usrg_WB типа TWebBrowser
- usrg_Btn типа TButton
Напишем обработчик события OnClick для кнопки usrg_Btn:
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
По нажатию на кнопку в поле веб браузера будет отображаться фраза "Привет из Гедымина!" и загружаться изображения с сайта компании Golden Software.
