WebGadgetRefresh

Синтаксис

sub WebGadgetRefresh(ByVal pIWebBrowser As Integer Ptr)

Описание

Обновляет текущую страницу

Параметры

pIWebBrowser - указатель на объект браузера

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Dim Shared As Integer event
Dim Shared As Any Ptr bra
Dim Shared As HWND hwnd
#Ifdef __FB_WIN32__
Var style = WS_VSCROLL Or WS_HSCROLL
Var ExStyle = WS_EX_CLIENTEDGE
#Else
Var style = 0
Var ExStyle = 0
#EndIf
hwnd=OpenWindow("WebGadget",10,10,800,600) : CenterWindow(hwnd)
bra=WebGadget(1,10,50,760,500,"http://www.mneniya.ucoz.ru/",style,ExStyle)
ButtonGadget(3,10,10,50,20,"Prev")
ButtonGadget(4,70,10,50,20,"Next")
ButtonGadget(5,130,10,50,20,"Update")
Do
  event=WaitEvent()
  If Event=EventClose Then
     End
  ElseIf  Event=EventGadget Then
     Select Case EventNumber
        Case 3
           WebGadgetGoBack(bra)
        Case 4
           WebGadgetGoForward(bra)
        Case 5
           WebGadgetRefresh(bra)
     End Select
  EndIf
Loop

Created with the Personal Edition of HelpNDoc: Create iPhone web-based documentation