WebGadgetGetURL

Синтаксис

Function WebGadgetGetURL(ByVal pIWebBrowser As Integer Ptr) As String

Описание

Получает текущий адрес страницы

Параметры

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

Платформы

Windows , Linux

Пример

#Include "window9.bi"
#Ifdef __FB_WIN32__
Var style = WS_VSCROLL Or WS_HSCROLL
Var Exstyle = WS_EX_CLIENTEDGE
#Else
Var style = 0
Var Exstyle = 0
#EndIf
Dim As Integer event
Dim As HWND hwnd
Dim As Any Ptr bra
hwnd = OpenWindow("WebGadget",10,10,800,600) : CenterWindow(hwnd)
bra=WebGadget(1,10,50,760,500,"http://www.freebasic.net/",style,Exstyle)
ButtonGadget(3,10,10,50,20,"Get")
Do
  event=WaitEvent()
  If Event=EventClose Then
     End
  ElseIf  Event=EventGadget Then
     Select Case EventNumber
        Case 3
           MessBox("",WebGadgetGetURL(bra))
     End Select
  EndIf
Loop

Created with the Personal Edition of HelpNDoc: Free iPhone documentation generator