Discussion :

[Tortille]

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.

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

Y aurait-il un moyen d'empêcher ce scintillement ?

Merci d'avance pour vos suggestions.

[bertiny]

N'est-ce pas l'effet au survol du bouton? As-tu essayé de modifier simplement les propriétés du bouton, voir aussi le format sur l'effet lumière.

[Tortille]

Bonjour,
Bertiny merci pour ta réponse, je ne sais pas ce que c'est l'effet lumière, alors j'ai réduit au strict minimum mon formulaire où les boutons scintillent et j'ai zippé la base, comme ça tu vois exactement ce que je veux dire, c'est les boutons vue(i) qu'il faut survoler et ce sont les autres boutons (factices car ils n'ont pas de code dans ce formulaire) qui scintillent.

Fichier Zip : Db_Image.zip

C'est pas le gros scintillement, mais dans mon vrai formulaire qui est plein écran et qui à trois fois plus de boutons, c'est désagréable.

Bien cordialement

[Tortille]

Bonjour,
J'ai remarqué que le scintillement se produit quand je change le Contrôle Source (.Picture) du contrôle image ImgVue dans les lignes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Me!ImgVue.Picture = Application.CurrentProject.Path & "\v1.png"
'et
Me!ImgVue.Picture = Application.CurrentProject.Path & "\v1.png"

il m'est venu l'idée de créer 4 contrôles images superposés ImgVue1, ..., ImgVue4 avec chacun le chemin de l'image qu'ils doivent afficher dans leur Contrôle Source

Puis rendre visible que le contrôle image désiré au survol de la souris (Sub AfficheVue)

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
Option Compare Database
Option Explicit
'
Dim m_Vue As Integer
 
Private Sub bas_v1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If m_Vue <> 1 Then AfficheVue 1
End Sub
Private Sub bas_v2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If m_Vue <> 2 Then AfficheVue 2
End Sub
Private Sub bas_v3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If m_Vue <> 3 Then AfficheVue 3
End Sub
Private Sub bas_v4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If m_Vue <> 4 Then AfficheVue 4
End Sub
 
Sub AfficheVue(Vx As Integer)
Dim I As Integer
    For I = 1 To 4
        If I = Vx Then Me("ImgVue" & I).Visible = True Else Me("ImgVue" & I).Visible = False
    Next I
    m_Vue = Vx
End Sub
 
Private Sub EntêteFormulaire_Click()
    AfficheVue 0
End Sub

Pour 4 images cette bidouille fonctionne, je la déconseille pour 50 images !

Ci joint dans la bd, les 2 formulaires, celui qui scintille et celui avec 4 images qui ne scintille plus.

Je cherche une solution plus Pro, et comprendre pourquoi il y a scintillement dans le Formulaire 1 de la bd, merci par avance.

[micniv]

Bonsoir, Tortille,
Je me disais bien que du côté de la bibliotheque GDI+ d'Arkham, il y avait quelque chose à faire pour evtier le scintillement.
Vois le formulaire tortille_2 dans la bd jointe.

CDLT

[Tortille]

Bonjour Micniv,
C'est super ta solution, la bibliotheque GDI+ d'Arkham est vraiment super aussi.
Ah! c'est mieux que mon bidouillage.
Pour essayer de comprendre ce qui cloche dans la solution de départ, c'est a dire un contrôle image dans l'entête du formulaire au quel j'affecte une image en survolant un bouton.
Que fait le formulaire ? Quand je vois ce scintillement, je pense de suite à un Me.Requery.
Et après pourquoi dans ta solution ne scintille pas ?
Si j'examine les diffirences :

On part tous les deux d'un contrôle image
Je charge l'image dans le contrôle et je l'affiche

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me!ImgVue.Picture = CurrentProject.Path & "\v1.png"

Tu charges l'image dans le contrôle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 oGdi.OpenFile (CurrentProject.Path & "\v1.png")

Puis tu l'affiches

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

oGdi.RepaintControl ImgVue, , , True

la différence entre les 2 codes c'est que de mon côté, je suppose qu'Access recourt au Requery pour afficher l'image que je luis demande
tandis que de ton côté Access est berné, il ne s'aperçoit pas que tu affiches une image différente dans le contrôle image.

En tout cas je prends car ça ne rajoute qu'une ligne au code au lieu des 4 contrôles images (pour mon cas), et là ce sera difficile de faire mieux.

1000 merci Micniv.
Bien cordialement

[micniv]

Merci de ton appréciation Tortille.

Sur ce simple chargement d'image, on voit bien la puissance de GDI+ (et de master Arkham !), en effet.
Bonne suite