Imprimir página | Cerrar ventana

Evitar parapadeo de controles

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=86095
Fecha de impresión: 19/Abril/2024 a las 14:42


Tema: Evitar parapadeo de controles
Publicado por: Dany Solis
Asunto: Evitar parapadeo de controles
Fecha de publicación: 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


Respuestas:
Publicado por: xavi
Fecha de publicación: 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

http://www.llodax.com" rel="nofollow - Mi web

Publicado por: Dany Solis
Fecha de publicación: 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


Imprimir página | Cerrar ventana