Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Web browser control on main VFP screen?
Message
From
13/02/2004 09:16:46
 
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
00877030
Message ID:
00877073
Views:
19
VFP screen does not allow to add ActiveX controls.
However you can deceive it by placing ActiveX control inside a container:
_Screen.AddObject("ScreenBrowser", "ScreenBrowser")
_Screen.ScreenBrowser.Visible = .T.
_Screen.ScreenBrowser.SetFocus()
_Screen.ScreenBrowser.Browser.Navigate("www.levelextreme.com")

DEFINE CLASS ScreenBrowser AS Container
  BorderWidth = 0
  
  ADD OBJECT Browser AS OLECONTROL
  
  PROCEDURE Init
    BINDEVENT(_Screen, "Resize", This, "scr_Resize")
    This.scr_Resize()
  ENDPROC 
  
  PROCEDURE scr_Resize
    This.Move(0, 0, _Screen.Width, _Screen.Height)
    This.Browser.Move(0, 0, _Screen.Width, _Screen.Height)
  ENDPROC 
ENDDEFINE 
This example will ask you to choose OLE class - select explorer control. To avoid this define ScreenBrowser class in visual class library.
/A new technology turns into completely outdated stuff before you have a time to read "Getting Started..." section.
/If there are some "system programmers" then others are unsystematic.
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform