Hi Naomi
First time works like a charm. It's the second selection that doesn't work. It sticks on first selection.
here's a functioning program with actual websitesif you'd like to paste it into a sample program.
Press the first selection for google.
Then redo only this time select Foxforum, the webbrowser remains on Google.
k
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
proc netter
do case
case bar()=1
site = "http://www.google.ca/"
DO NETUP
DO SIGNOFF
case bar()=2
site = "http://foxforum.com/"
DO NETUP
DO SIGNOFF
case bar()=3
site = "http://www.levelextreme.com/"
DO NETUP
DO SIGNOFF
case bar()=4
clear
deactivate popup mnubef
return
endcase
PROC NETUP
PUBLIC ox
ox=NEWOBJECT("myformx")
BINDEVENT(_screen,"resize",ox,"resize")
ox.show
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
thisform.txtURL.valid
PROCEDURE resize
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
PROCEDURE txtURL.valid
thisform.oweb.navigate(this.value)
ENDDEFINE
DEFINE CLASS cweb as olecontrol
oleclass="shell.explorer.2"
PROCEDURE refresh
nodefault
ENDDEFINE