Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
HTML & foxpro
Message
 
À
12/02/2007 05:50:26
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
Divers
Thread ID:
01194674
Message ID:
01194677
Vues:
9
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.
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform