Visual Basic - Imagen al pasar

Life is soft - evento anual de software empresarial
 
Vista:

Imagen al pasar

Publicado por Sakio (4 intervenciones) el 13/10/2004 21:54:14
Hola, me gustaria que me ayudarais a crear lo siguiente: Al pasar el raton sobre un boton o al poerlo encima(Sin pulsarlo) aparezca una imagen en un Picture Box.
Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Imagen al pasar

Publicado por miguel (1042 intervenciones) el 13/10/2004 23:41:20
Puedes hacerlo de esta forma:
Cargamos la imagen y hacemos visible el control para que cada vez que se pasa el mouse sobre el boton se ejecute.
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.Visible = True
Picture1.Picture = LoadPicture("C:\005.jpg") 'Ruta de tu Imagen
End Sub
'Hacemos invisible el PictureBox
Private Sub Form_Load()
Picture1.Visible = False
End Sub
'Hacemos invisible el PictureBox
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.Visible = False
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Imagen al pasar

Publicado por Ruri (583 intervenciones) el 14/10/2004 04:04:45
Lo primero que haces es declarar un objeto a nivel módulo, así:

Private picMove as Picture

En el evento Form_Load cargas la imagen

Set picMove = LoadPicture("c:\....") 'Vos sabrás donde tienes la imagen

A continuación, en el evento mousemove del botón, o lo que sea, cargás la imagen en el picture

if Button=0 then
Set Picture1.Picture=PicMove
Else
Set Picture1.Picture=Nothing
End if

Por último en el evento MouseMove del formulario limpiás la imagen

Set Picture1.Picture=Nothing

Espero que te sirva
Saludos Ruri
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar