Bonjour,
Mes boutons de commande qui sont dans l'entête du formulaire scintillement 1 coup quand j'affiche une image par le survol du bouton Cmd1 ou Cmd2.
Y aurait-il un moyen d'empêcher ce scintillement ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31 Option Compare Database Option Explicit Dim m_Vue As Integer Private Sub Cmd1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If m_Vue = 1 Then Exit Sub Else If Me!ImgV.Visible = false Then Me!ImgV.Visible = True m_Vue = 1 ' pour exécuter le code qu'une fois End If Me!ImgV.Picture = Application.CurrentProject.path & "\Img1.png" End Sub Private Sub Cmd2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If m_Vue = 2 Then Exit Sub Else If Me!ImgV.Visible = false Then Me!ImgV.Visible = True m_Vue = 2 ' pour exécuter le code qu'une fois End If Me!ImgV.Picture = Application.CurrentProject.path & "\Img2.png" End Sub Private Sub EntêteFormulaire_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Me!ImgV.Visible = True Then Me!ImgV.Visible = False m_Vue = 0 ' pour exécuter le code au survol de Cmd1 ou de Cmd2 End If End Sub
Merci d'avance pour vos suggestions.
Partager