Home •  Forum •  FAQ •  Search •  Recent Topics •  Memberlist •  Register •  Log in 
Forum » Gambas » General

TextLabel Y Los Hipervinculos.

Reply to topic

Goto page 1, 2  Next

tincho
Quote
Posts: 2565
Sunday, 08 January 2017, 00:26
Subject: 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.

Profile PM  
vuott
Quote
Posts: 2086
Sunday, 08 January 2017, 03:13
Subject: 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

Last edited by vuott on Sunday, 08 January 2017, 03:14; edited 1 time in total
Profile PM  
shordi
Quote
Posts: 4982 Location: Albacete
Monday, 09 January 2017, 10:30
Subject: 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

Profile PM  
vuott
Quote
Posts: 2086
Monday, 09 January 2017, 11:23
Subject: 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

Last edited by vuott on Monday, 09 January 2017, 12:00; edited 1 time in total
Profile PM  
vuott
Quote
Posts: 2086
Monday, 09 January 2017, 17:58
Subject: Re: TextLabel Y Los Hipervinculos.
shordi escribió: [Ver mensaje]
puedes usar un htEdit


Desculpa, shordi, que objeto es htEdit ? default_eusa_think

Profile PM  
shordi
Quote
Posts: 4982 Location: Albacete
Monday, 09 January 2017, 18:26
Subject: 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).

Last edited by shordi on Monday, 09 January 2017, 18:27; edited 1 time in total
Profile PM  
tincho
Quote
Posts: 2565
Tuesday, 10 January 2017, 13:16
Subject: 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.

Profile PM  
tincho
Quote
Posts: 2565
Tuesday, 10 January 2017, 13:36
Subject: 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.

Profile PM  
tincho
Quote
Posts: 2565
Tuesday, 10 January 2017, 13:52
Subject: 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.

Profile PM  
shordi
Quote
Posts: 4982 Location: Albacete
Tuesday, 10 January 2017, 17:45
Subject: 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

Profile PM  
Reply to topic
Goto page 1, 2  Next

Page 1 of 2


  
You cannot post new topics
You cannot reply to topics
You cannot edit your posts
You cannot delete your posts
You cannot vote in polls
You cannot attach files
You can download files
You cannot post calendar events

   

This is a "Lo-Fi" version of our main content. To view the full version with more information, formatting and images, please click here.

Powered by Icy Phoenix based on phpBB
Design by DiDiDaDo

Generation Time: 0.1285s (PHP: -33% SQL: 133%)
SQL queries: 26 - Debug Off - GZIP Enabled