.Template

Date: 02-16-2022

Return to Index

 
'Compilable Example:  (Jose Includes)
#Compile Exe
#Dim All
%Unicode = 1
%UseWebBrowser = 1            ' // Use the WebBrowser control
#Include Once "CWindow.inc"   ' // CWindow class
%IDC_WebBrowser = 1001
 
Function PBMain
   Local hDlg As Dword, pWindow As IWindow
   Dialog New Pixels, 0, "WebBrowser", , , 600, 400, %WS_OverlappedWindow To hDlg
   pWindow = Class "CWindow"
   pWindow.AddWebBrowserControl(hDlg, %IDC_WEBBROWSER, "http://www.powerbasic.com",NOTHING, 0, 0, 600,400)
   Dialog Show Modal hDlg, Call DlgProc
End Function
 
CallBack Function DlgProc() As Long
End Function
 
'gbs_01307
'Date: 05-11-2013   

created by gbSnippets
http://www.garybeene.com/sw/gbsnippets.htm