Como defino un link dentro de un formulario

[acmc]

Buen día Foxeros,

Dentro de un formulario quiero incluir un par de links a unas paginas de consulta, pero no se como definir el texto, para q solo al darle el click en el texto en automatico lo mande a dicho link, alguna sugerencia?

Salu2!!

[Osvaldo Gambarte]

Por ejemplo, esto lo podes poner dentro del CLICK de un boton:

poExplorer = CreateObject("InternetExplorer.Application") 

poExplorer.Navigate("http://www.google.com") 

poExplorer.Visible=.T.

Atte.

Osvaldo

---

De: publice...@googlegroups.com <publice...@googlegroups.com> en nombre de acmc <impre...@gmail.com>
Enviado: miércoles, 21 de diciembre de 2016 16:06
Para: Comunidad de Visual Foxpro en Español
Asunto: [vfp] Como defino un link dentro de un formulario

 

[Angel Perez]

Gracias Osvaldo..  esa sería una opción, yo estaba buscando emular algo como en excel, donde pones el texto y al darle click sobre el te abre el explorador con el dato del texto, esto sería por ejemplo para las paginas web de los clientes, cargar el dato y cuando se requiera solo darle click, pero no se si se pueda así

Salu2

El 21 de diciembre de 2016, 11:04, Osvaldo Gambarte <ogam...@hotmail.com> escribió:

Por ejemplo, esto lo podes poner dentro del CLICK de un boton:

poExplorer = CreateObject("InternetExplorer.Application") 

poExplorer.Navigate("http://www.google.com") 

poExplorer.Visible=.T.

Atte.

Osvaldo

---

De: publicesvfoxpro@googlegroups.com <publicesvfoxpro@googlegroups.com> en nombre de acmc <impre...@gmail.com>

Enviado: miércoles, 21 de diciembre de 2016 16:06
Para: Comunidad de Visual Foxpro en Español
Asunto: [vfp] Como defino un link dentro de un formulario

[Luis Maria Guayan]

Mira este breve ejemplo con el control Hyperlink de VFP:


PUBLIC goMiFormulario
goMiFormulario = CREATEOBJECT("MiFormulario")
goMiFormulario.SHOW(1)
RETURN

DEFINE CLASS MiFormulario AS FORM
  CAPTION = "Ejemplo de objeto Hyperlink"

  ADD OBJECT MiEnlace AS HYPERLINK

  ADD OBJECT MiEtiqueta AS LABEL WITH ;
    LEFT = 50, TOP = 50, AUTOSIZE = .T. , ;
    CAPTION = "http://comunidadvfp.blogspot.com", FORECOLOR = RGB(0,0,255), ;
    FONTUNDERLINE = .T., MOUSEPOINTER = 15

  PROCEDURE MiEtiqueta.CLICK
    THISFORM.MiEnlace.NAVIGATETO("http://comunidadvfp.blogspot.com")
  ENDPROC
ENDDEFINE

Luis María Guayán
Tucumán, Argentina
_______________________________
Comunidad Visual FoxPro en Español
http://comunidadvfp.blogspot.com

El 21/12/16 a las 13:06, acmc escribió:

[Angel Perez]

Muchas gracias Maestro.. es lo q estaba buscando  Salu2!!