FoxPro/Visual FoxPro - Ayuda con esto Hyperlink

   
Vista:

Ayuda con esto Hyperlink

Publicado por Oscar Ramirez (78 intervenciones) el 20/10/2007 22:27:41
Hola, necesito hacer un boton en un formulario cuando le de clic me lleve a una pagina Web que es la ayuda del sistema se que se hace con el control Hyperlink y ya tengo el tipo de boton de la clase pero no se cual es la funcion para parametrizar en boton
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Ayuda con esto Hyperlink

Publicado por Ernesto Hernandez (4632 intervenciones) el 21/10/2007 04:22:06
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="www.msn.com",autocomplete=3
ADD OBJECT cmdRefresh as commandbutton WITH caption="\<Refresh",left=400,height=20
ADD OBJECT cmdBack as commandbutton WITH caption="\<Back",left=475,height=20
ADD OBJECT cmdForward as commandbutton WITH caption="\<Forward",left=550,height=20
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)
PROCEDURE cmdRefresh.click
thisform.oweb.refresh
PROCEDURE cmdBack.click
try
thisform.oweb.goback()
CATCH
endtry

PROCEDURE cmdForward.click
try
thisform.oweb.goForward()
CATCH
endtry
ENDDEFINE

DEFINE CLASS cweb as olecontrol
oleclass="shell.explorer.2"
PROCEDURE refresh
nodefault
ENDDEFINE
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Ayuda con esto Hyperlink

Publicado por Plinio (7771 intervenciones) el 23/10/2007 02:20:47
En el click del boton podrias tener algo como
pagina= CREATEOBJEC('hyperlink')
pagina.NavigateTo('google.com')
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Ayuda con esto Hyperlink

Publicado por Ernesto Hernandez (4632 intervenciones) el 23/10/2007 23:17:52
tbien funciona
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar