** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Evitar parapadeo de controles
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoEvitar parapadeo de controles

 Responder Responder
Autor
Mensaje
Dany Solis Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 23/Octubre/2010
Localización: Cd. Juarez Méx
Estado: Sin conexión
Puntos: 852
Enlace directo a este mensaje Tema: Evitar parapadeo de controles
    Enviado: 24/Agosto/2021 a las 17:20
Que tal a todos,

Estoy diseñando el formulario principal de mi aplicacion estoy usando los botones de comando con imagenes y texto:

  • En el evento MouseMove del boton cambio el texto del boton
  • En el vento MouseMove Detail regreso a su estado original el texto del boton

Todo bien hasta aqui el problema es que en el evento MouseMove Detail los botones no dejan de parpadear mientras muevo el mouse dentro del formulario.

Hay alguna forma de evitar estos parpadeos o minimizarlos?

Estoy usando O365 de 64 BITS

Saludos

DS
Donde hay educación, no hay distinction de clases. (Confusio)

Dany Solis
Arriba
xavi Ver desplegable
Administrador
Administrador
Avatar
Terrassa-BCN

Unido: 10/Mayo/2005
Localización: Catalunya ||||
Estado: Sin conexión
Puntos: 13995
Enlace directo a este mensaje Enviado: 27/Agosto/2021 a las 12:10
En el MouseMove del detail evalúa si ya se está mostrando el texto adecuado y solo haces el cambio cuando no lo dice. 


Xavi, un minyó de Terrassa

Mi web
Arriba
Dany Solis Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 23/Octubre/2010
Localización: Cd. Juarez Méx
Estado: Sin conexión
Puntos: 852
Enlace directo a este mensaje Enviado: 28/Agosto/2021 a las 21:11
Gracias Xavi, use al final un control imagen y dos labels quedando el codigo asi:

Private Sub Detail_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

    If Me.lblT1.Visible = False Then
        Me.lblT1.Visible = True
        Me.lblSub1.Visible = False
    End If
    
    If Me.lblT2.Visible = False Then
        Me.lblT2.Visible = True
        Me.lblSub2.Visible = False
    End If
    
    If Me.lblT3.Visible = False Then
        Me.lblT3.Visible = True
        Me.lblSub3.Visible = False
    End If
    
    If Me.lblT4.Visible = False Then
        Me.lblT4.Visible = True
        Me.lblSub4.Visible = False
    End If
        
End Sub

Private Sub lblT1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

    If Me.lblT1.Visible = True Then
       Me.lblT1.Visible = False
       Me.lblSub1.Visible = True
    End If
     
End Sub

Private Sub lblT2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

    If Me.lblT2.Visible = True Then
       Me.lblT2.Visible = False
       Me.lblSub2.Visible = True
    End If
    
End Sub

Private Sub lblT3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

    If Me.lblT3.Visible = True Then
       Me.lblT3.Visible = False
       Me.lblSub3.Visible = True
       
    End If
    
End Sub

Private Sub lblT4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

    If Me.lblT4.Visible = True Then
       Me.lblT4.Visible = False
       Me.lblSub4.Visible = True
    End If
    
End Sub

Gracias por la pista, saludos.

DS
Donde hay educación, no hay distinction de clases. (Confusio)

Dany Solis
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable