Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 2
Ir a la página 1, 2  Siguiente
 
TextLabel Y Los Hipervinculos.
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje TextLabel Y Los Hipervinculos. 
 
Hola.

En un TexLabel puse lo siguiente:
<p><a>#WEBSITE#</a></p>
<p><a>#EMAIL#</a></p>

Donde #WEBSITE# y #EMAIL# son reales.

El tema es que al dar click en ellos no se produce la apertura del navegador o el gestor de correo electrónico.

¿Alguien sabe como se hace?

Saludos.
 



 
tincho - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: TextLabel Y Los Hipervinculos. 
 
Puedes usar los objetos:

1) WebView
Public Sub Form_Open()

   WebView1.Html = "<HTML><BODY>Este es un Hipervinculo a el <A HREF='http://foro.gambas-es.org'>Foro gambas-es.org</a></body></html>"

End



2) MessageBox:
Public Sub Form_Open()

   Message.Info("Este es un Hipervinculo al <A HREF='http://foro.gambas-es.org'>Foro gambas-es.org</a>")

End

 



 
última edición por vuott el Domingo, 08 Enero 2017, 03:14; editado 1 vez 
vuott - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: TextLabel Y Los Hipervinculos. 
 
También puedes usar un htEdit con el ShowControls = False. Podrás añadir los enlaces que quieras y el aspecto es el mismo    
 




===================
No podemos regresar
 
shordi - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: TextLabel Y Los Hipervinculos. 
 
Gianluigi, miembro del foro italiano, señala que una otra posibilidad es usando el objeto "URLLabel" y activando los Componentes gb.desktop y gb.desktop.x11 .

Exemplum:

Public Sub Form_Open()

  URLLabel1.Link = "http://gambaswiki.org/wiki"

  URLLabel1.Text = "Yo no soy Pythonista !"

End

 



 
última edición por vuott el Lunes, 09 Enero 2017, 12:00; editado 1 vez 
vuott - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: TextLabel Y Los Hipervinculos. 
 
shordi escribió: [Ver mensaje]
puedes usar un htEdit


Desculpa, shordi, que objeto es htEdit ?  default_eusa_think
 



 
vuott - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: TextLabel Y Los Hipervinculos. 
 
vuott escribió: [Ver mensaje]


Desculpa, shordi, que objeto es htEdit ?  default_eusa_think


Es uno de los controles que subí en éste hilo https://foro.gambas-es.org/viewtopic.php?f=5&t=4220 (El que lleva las letras azules grandes abajo a la derecha de la imagen)
Permite editar html sencillo y añadir url e imágenes. Puedes poner o quitar los controles que lleva y dejarlo como un textarea... en la última versión hasta le puse corrector ortográfico (aunque no recuerdo si es la que hay en el foro o no).
 




===================
No podemos regresar
 
última edición por shordi el Lunes, 09 Enero 2017, 18:27; editado 1 vez 
shordi - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: TextLabel Y Los Hipervinculos. 
 
vuott escribió: [Ver mensaje]
Gianluigi, miembro del foro italiano, señala que una otra posibilidad es usando el objeto "URLLabel" y activando los Componentes gb.desktop y gb.desktop.x11

Probé este método, pero el color del resaltado no quedaba agradable con el fondo dark, así que descarte este control. Me lo apunto para otras aplicaciones, tal vez para los módulos de creación de controles por código para editar registros de bases de datos.

Gracias.
 



 
tincho - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: TextLabel Y Los Hipervinculos. 
 
shordi escribió: [Ver mensaje]
También puedes usar un htEdit con el ShowControls = False. Podrás añadir los enlaces que quieras y el aspecto es el mismo    

Si se podría, pero en la prueba que hice no queda bien porque el tema dark no se lleva bien con este control y hay que cambiar el color a mano, pero luego si alguien usa el programa con un tema claro tendrá un problema parecido. Así que tampoco me parece lo mas versátil este método.

Gracias.
 



 
tincho - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: TextLabel Y Los Hipervinculos. 
 
Finalmente he usado los controles TextLabel para el texto normal y ToolButton para los vínculos. En estos últimos  les puse en el evento clic el código para que abra una web o envíe un email, según sea el caso, mediante el componente gb.desktop.

  Dim txa As TextLabel
  Dim tob As ToolButton
'......
 txa = New TextLabel(pnl)
'......
tob = New ToolButton(pnl) As "Url"
'......
 


Public Sub Url_Click()
'......
  Select strType
    Case "email"
      Desktop.SendMail(stxAddress,,, strSubject)
    Case "web"
      Desktop.Open(strUrl)
  End Select
'......
 


Este post lo había iniciado para resolver algunas mejoras del formulario "About" de un gestor de contactos que estoy haciendo y que en cuanto tenga listo lo subiré a github.

Gracias a los dos por las respuestas.

Saludos.
 



 
tincho - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: TextLabel Y Los Hipervinculos. 
 
Citar:
no queda bien porque el tema dark no se lleva bien con este control y hay que cambiar el color a mano,...

El control es negro sobre blanco y sigue solo los enlaces. Si quieres cambiar el color de fondo es una línea de código... con tu solución necesitas crear un botón y una función entera para controlar el click... en fin, para gustos los colores.

Suerte
 




===================
No podemos regresar
 
shordi - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes Como Imprimir En Un TextLabel El Contenido... zhero_Crack Controles/Librerías/Componentes 4 Lunes, 08 Noviembre 2010, 19:53 Ver último mensaje
zhero_Crack
No hay nuevos mensajes Como Resaltar Un Texto En TextLabel. tincho Controles/Librerías/Componentes 2 Lunes, 01 Abril 2019, 17:38 Ver último mensaje
cogier
 

Publicar nuevo tema  Responder al tema  Página 1 de 2
Ir a la página 1, 2  Siguiente

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno


 
Lista de permisos
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario



  

 

cron