Pour ajouter au commentaire de Michel, si tu veux utiliser l'activex WebBrowser, tu peut l'utiliser comme ceci.
Public oform1
oform1=Newobject("form1") oform1.Show Return Define Class form1 As Form DoCreate = .T. Caption = "Form1" Name = "Form1" Add Object olecontrol1 As OleControl With ; Top = 12, ; Left = 24, ; Height = 217, ; Width = 313, ; Name = "Olecontrol1", ; OleClass = "Shell.Explorer.2" Procedure Init This.LockScreen = .T. This.olecontrol1.Object.Navigate("www.atoutfox.com") Endproc Enddefine
Mike Gagnon
|