Enlace en vb

[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

[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

[dPix]

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

Código [Seleccionar] Expandir

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

[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 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 

[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:

Código [Seleccionar] Expandir


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


[Wdeah]

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