Visual Basic - mouse move

Life is soft - evento anual de software empresarial
 
Vista:

mouse move

Publicado por fabian perez (8 intervenciones) el 14/06/2002 18:18:49
como hago para que cuando pase el mouse sobre un boton que ya programe me muestre un label sin parpadear solo una vez, y que cuando no este señalando el boton desaparezca el label
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:mouse move

Publicado por Harold Valdivia (104 intervenciones) el 15/06/2002 21:51:31
Hola es sencillo:
Declara una variable Cont a nivel del form

Private sub form_ load
Cont=0
label1.visible=false
end sub

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

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If cont >= 2 Then
Exit Sub
Else
Label1.Visible = True
cont = cont + 1
End If
cont = 0
End Sub

Listo ahora ejecuta el programa y pasealo por el command
se muestra la etiqueta
ahora pasealo por el form
se oculta la etiqueta


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:mouse move

Publicado por César Ornelas (55 intervenciones) el 16/06/2002 06:28:28
La idea esta bien pero seria mejor sustitur el contador por un boolean

Option explicit
Dim Visible as boolean

Private sub form_ load
Visible = false
label1.visible= False
end sub

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

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Visible=False Then
Visible=True
Label1.Visible = True
End If
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