Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
HTML & foxpro
Message
From
12/02/2007 06:14:55
 
 
To
12/02/2007 05:50:26
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Miscellaneous
Thread ID:
01194674
Message ID:
01194677
Views:
8
This message has been marked as the solution to the initial question of the thread.
>yes in VFP form. I just want 1 button on the form and when it is clicked it opens a web browser n displays lets say a google page. Thanx
>
>Bilal
oForm = CREATEOBJECT([Form1])
oForm.Show(1)


DEFINE CLASS form1 AS form


    DoCreate = .T.
    Name = "Form1"
    Height = 400
    Width  = 402
    ADD OBJECT olecontrol1 AS olecontrol WITH ;
        Top = 1, ;
        Left = 1, ;
        Height = 300, ;
        Width = 400, ;
        Name = "oleWebBroser",;
        oleClass = [Shell.Explorer.2]


    ADD OBJECT command1 AS commandbutton WITH ;
        Top = 320, ;
        Left = 1, ;
        Height = 27, ;
        Width = 400, ;
        Caption = "Click to load Google", ;
        Name = "Command1"




    PROCEDURE command1.Click
        thisform.oleWebBroser.Navigate2([http://www.google.com])
    ENDPROC
ENDDEFINE
No error handling is included in that example.
Against Stupidity the Gods themselves Contend in Vain - Johann Christoph Friedrich von Schiller
The only thing normal about database guys is their tables.
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform