WebGadgetSetBody
Sub WebGadgetSetBody(ByVal pIWebBrowser As Integer Ptr,ByVal text As String)
Устанавливает HTML код текущей страницы между тегами Body. В Linux устанавливает HTML код всей страницы
pIWebBrowser - указатель на объект браузера
text - текст, содержащий Html код
Windows , Linux
#Include "window9.bi"
Dim Shared As Integer event
Dim Shared As Any Ptr bra
Dim Shared As HWND hwnd
Dim Shared As String URL
#Ifdef __FB_WIN32__
Var style = WS_VSCROLL Or WS_HSCROLL
Var ExStyle = WS_EX_CLIENTEDGE
URL = "<b>FreeBasic</b>"
#Else
Var style = 0
Var ExStyle = 0
URL = "<html><head><title></title></head><body><b>FreeBasic</b></body></html>"
#EndIf
hwnd=OpenWindow("WebGadget",10,10,800,600) : CenterWindow(hwnd)
bra=WebGadget(1,10,50,760,500,"about:blank",style,ExStyle)
ButtonGadget(3,10,10,80,20,"SetHTML")
Do
event=WaitEvent()
If Event=EventClose Then
End
ElseIf Event=EventGadget Then
Select Case EventNumber
Case 3
WebGadgetSetBody(bra,URL)
End Select
EndIf
Loop
Created with the Personal Edition of HelpNDoc: Free iPhone documentation generator