Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Wdeah en 16 Febrero 2006, 21:00 pm


Título: Enlace en vb
Publicado por: Wdeah en 16 Febrero 2006, 21:00 pm
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

Título: Re: Enlace en vb
Publicado por: Ironhorse en 16 Febrero 2006, 21:12 pm
En la propiedad MousePointer selecciona 'Custom' y en la propiedad MouseIcon carga el icono que quieras.

Saludos

Título: Re: Enlace en vb
Publicado por: Wdeah en 16 Febrero 2006, 22:00 pm
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??

Título: Re: Enlace en vb
Publicado por: Vitrox en 17 Febrero 2006, 01:00 am
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

Título: Re: Enlace en vb
Publicado por: dPix en 17 Febrero 2006, 01:16 am
Hola, espero que esto te sirva (adjunto el cursor):

Código:
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)

Título: Re: Enlace en vb
Publicado por: Vitrox en 17 Febrero 2006, 01:28 am
dPix, claro!, ese código es el que busca el chaboncito creador del tema, orale, tu si que sabes de VB !
salu2

Título: Re: Enlace en vb
Publicado por: dPix en 17 Febrero 2006, 01:29 am
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

Título: Re: Enlace en vb
Publicado por: Wdeah en 17 Febrero 2006, 11:34 am
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:

Título: Re: Enlace en vb
Publicado por: Ironhorse en 17 Febrero 2006, 21:40 pm
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:
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.MousePointer = 0
Label1.FontUnderline = False
End Sub


Título: Re: Enlace en vb
Publicado por: Wdeah en 18 Febrero 2006, 12:13 pm
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

Título: Re: Enlace en vb
Publicado por: dPix en 18 Febrero 2006, 15:43 pm
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


Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines