WebGadgetGoForward

Синтаксис

Sub WebGadgetGoForward(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
Dim Shared As String URL
#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)
StringGadget(2,160,10,540,25,"http://www.mneniya.ucoz.ru/")
SetGadgetFont(2,LoadFont("Arial",12,,1))
ButtonGadget(3,10,10,50,20,"Prev")
ButtonGadget(4,70,10,50,20,"Next")
ButtonGadget(5,720,10,50,20,"Go")
function navigate() As Integer
  If WebGadgetState(bra)<>0 Then
     If URL<>WebGadgetGetURL(bra) Then
        URL=WebGadgetGetURL(bra)
        setgadgettext(2,URL)
     EndIf
  EndIf
  Return TRUE
End Function
SetTimer(hwnd,1,100, Cast(Any Ptr,@navigate))
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
           dim as Ustring sz = GetGadgetText(2)
           #ifdef UNICODE
              WebGadgetNavigate(bra,**sz)
           #else
              WebGadgetNavigate(bra,sz)
           #EndIf
     End Select
  EndIf
Loop

Created with the Personal Edition of HelpNDoc: Create HTML Help, DOC, PDF and print manuals from 1 single source