Отображение HTML на экранной форме
Материал из GedeminWiki
(Различия между версиями)
SYSDBA (обсуждение | вклад) |
SYSDBA (обсуждение | вклад) |
||
| Строка 1: | Строка 1: | ||
| − | Для отображения HTML странички следует воспользоваться компонентом TWebBrowser. Создадим чистую форму и расположем на ней два компонента: | + | Для отображения HTML странички следует воспользоваться компонентом '''TWebBrowser'''. Создадим чистую форму и расположем на ней два компонента: |
| − | # usrg_WB типа TWebBrowser | + | # '''usrg_WB''' типа '''TWebBrowser''' |
| − | # usrg_Btn типа TButton | + | # '''usrg_Btn''' типа '''TButton''' |
| − | Напишем обработчик события OnClick для кнопки usrg_Btn: | + | Напишем обработчик события '''OnClick''' для кнопки '''usrg_Btn''': |
<syntaxhighlight lang="vbnet"> | <syntaxhighlight lang="vbnet"> | ||
| Строка 20: | Строка 20: | ||
</syntaxhighlight> | </syntaxhighlight> | ||
| − | По нажатию на кнопку в поле веб браузера | + | По нажатию на кнопку в поле веб браузера отобразится фраза "Привет из Гедымина!" и загрузится изображение с сайта компании Golden Software. |
====См. также==== | ====См. также==== | ||
Версия 10:29, 8 декабря 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 = _ "<h1>Привет из Гедымина!</h1><p/><img src=""http://gsbelarus.com/gs/images/gs/2007/d6.jpg"" width=""200"" />" End Sub
По нажатию на кнопку в поле веб браузера отобразится фраза "Привет из Гедымина!" и загрузится изображение с сайта компании Golden Software.
