Enlace en vb

Iniciado por Wdeah, 16 Febrero 2006, 21:00 PM

0 Miembros y 1 Visitante están viendo este tema.

Wdeah

hola, antes que nada perdon por lo que voy a preguntar, pero soy nuevo en esto :S
lo que quiero hacer es como si fuera un <a href=""... en html

osea, un label que diga algo, y al pasar el mouse por encima se subraye el contenido y aparezca la "manito" como puntero.. y al hacer click valla hacia una url, lo de la url ya lo pude hacer, pero que se subraye y aparezca la manito no :( encima busque todos los iconos que hay en la propiedad
MouseIcon y no aparecio la manito..
saludos

Ironhorse

En la propiedad MousePointer selecciona 'Custom' y en la propiedad MouseIcon carga el icono que quieras.

Saludos
Pégense una vuelta por Cracton :)

Wdeah

si, eso se como hacerlo, pero lo que yo quiero es que el pasar sobre el label, el cursor sea el predefinido por el usuario para ese tipo de evento.. me explico??

Vitrox

estoy intentando entenderte, pero noo... si te explicaras,como se dijo en el post anterior, esa forma te diria yo, pero parece que quieres ir mas lejor, explicate mejo...
salu2 :D
El Conocimiento es poder, el poder es Superioridad

dPix

#4
Hola, espero que esto te sirva (adjunto el cursor):

Private Sub Form_Load()
'Tan solo tienes que cargar harrow.cur en MouseIcon de las propiedades
'del label.
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.MousePointer = 0
Label1.FontUnderline = False
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.FontUnderline = True
Label1.MousePointer = 99
End Sub



Pincha aquí para descargar el cursor.

Vitrox

dPix, claro!, ese código es el que busca el chaboncito creador del tema, orale, tu si que sabes de VB !
salu2
El Conocimiento es poder, el poder es Superioridad

dPix

Vitrox, gracias! Me ha supuesto 30 segundos de programación, jajaja, espero que al menos sea eso lo que busca, ya nos contará el mismo!

Salu2,

dPix

Wdeah

sisisis :D pero como hago para que cuando el mouse sale fuera del label salga el subrayado?
no encontre la el atributo mouseover, intente con mouseup y down pero no funco  ;D

:rolleyes:

Ironhorse

No hay un evento para cuando el cursor 'sale' del control, lo que puedes hacer es 'mirar' si está sobre otro objeto, por eso te postearon este codigo:


Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.MousePointer = 0
Label1.FontUnderline = False
End Sub


Pégense una vuelta por Cracton :)

Wdeah

Me sirvio el codigo  :D.
una pregunta, alguien sabria que responderme en este post?
http://foro.elhacker.net/index.php/topic,109542.0.html
Gracias