Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Put a web browser on your desktop
Message
 
To
25/02/2010 14:41:39
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
01451027
Message ID:
01451046
Views:
45
>i have simply used: ox.hide
>(which means all things are still active i realze.)
>
>k

OK, that works for me:
do netted
activate popup mnubef
SITE = " "

proc netted
DEFINE POPUP mnubef relative COLOR SCHEME 6 FROM 3,55  FONT 'tahoma',11 ;
 
DEFINE Bar 1 of mnuBef PROMPT 'Google'
DEFINE Bar 2 OF mnuBef PROMPT 'FoxForum'
DEFINE Bar 3 OF mnuBef PROMPT 'Universal thread'
DEFINE Bar 4 OF mnuBef PROMPT 'Return to Menu' 
On Selection Popup mnubef Do netter WITH BAR()

proc netter(lnBar)
site = []
do case
   case lnBar=1
        site = "http://www.google.ca/"
   case lnBar=2
        site = "http://foxforum.com/"
   case lnBar=3
       site = "http://www.levelextreme.com/"
   case lnBar=4
       clear
       deactivate popup mnubef
       return
ENDCASE
NetUp(site)
RETURN


PROC NETUP(lcSite)
     IF NOT TYPE("m.ox.Name") == [C]
        PUBLIC ox
        ox=NEWOBJECT("myformx")
        BINDEVENT(_screen,"resize",ox,"resize")
        ox.show
     ENDIF
     ox.txtURL.Value = m.site
     ox.txtURL.Valid()
     
RETURN
 

 

DEFINE CLASS myformx as Form

      ADD OBJECT txtURL as textbox WITH width=400,value=SITE

      ADD OBJECT oweb as cweb WITH top=30,;
      width=800,;
      height=800,;
      alwaysonbottom=.t.,;
      allowoutput=.f.,;
      titlebar=0

      PROCEDURE init
            this.oweb.width=thisform.Width
            thisform.resize
            this.oweb.height=thisform.height-thisform.txtURL.height-2
      ENDPROC

      PROCEDURE resize
            IF TYPE("this.oWeb.Name") == [C]
               thisform.Width   =_screen.Width
               thisform.Height  =_screen.height
               this.oweb.top    = 30
               this.oweb.height = thisform.Height-100
               this.oweb.width  = thisform.width-thisform.left
            ENDIF
      ENDPROC

      PROCEDURE txtURL.valid
            thisform.oweb.navigate(this.value)
      ENDPROC

ENDDEFINE

DEFINE CLASS cweb as olecontrol

      oleclass="shell.explorer.2"

      PROCEDURE refresh
            nodefault
      ENDPROC

ENDDEFINE

PROCEDURE SignOFF
    ***** Put your code here
RETURN
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