Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Web browser control on main VFP screen?
Message
De
13/02/2004 09:16:46
 
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00877030
Message ID:
00877073
Vues:
18
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.
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform