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
En la propiedad MousePointer selecciona 'Custom' y en la propiedad MouseIcon carga el icono que quieras.
Saludos
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??
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
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. (http://www.cool-web.de/galerie/pointer/images/harrow.cur)
dPix, claro!, ese código es el que busca el chaboncito creador del tema, orale, tu si que sabes de VB !
salu2
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
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:
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
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
Me alegro que te haya funcionado el código al final, como decía Ironhorse, el tema esta en que tu no puedes definir NotOnMouseOver asi que jugamos con los objetos en los que el cursor se mueve.
Un saludo,
dPix