Discussion :

[moilou2]

Bonjour, j'ai un formulaire avec des images. Quand je clic sur une image j'ai des labels qui s'affichent.

Pour faire bien () j'ai placé sur évenement mousemouve sur chaque label, pour que label pointé par la souris devienne bleu (Voir pièce jointe) le code suivant:

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
Private Sub txt_RG_Chaufferie_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
Dim ctl As Control
 
For Each ctl In Me.Controls
    Select Case Left(ctl.Name, 6)
        Case "txt_RG"
            ctl.BackColor = 16777215
 
    End Select
Next ctl
 
Me.txt_RG_Chaufferie.BackColor = 15912868
 
End Sub

Le problème c'est que en dessous de mes lables j'ai un cercle noir (voir les annexes) et quand je me déplace dans mes labels sa clignotte a moitié et je vois le cercle noir en dessous.

Ya t-il une solution pour ne pas voir le cercle?

[Arkham46]

bjr

- tu peux essayer avec des textbox au lieu des étiquettes
les étiquettes avec A03 ça a tendance à scintiller si les étiquettes ne sont pas liées à un contrôle

- tu peux aussi essayer de tester la couleur avant de la changer :

Code :

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

if ctl.BackColor <> 16777215 then ctl.BackColor = 16777215

sinon à chaque mouvement de la souris je crois que le formulaire est redessiné même s'il n'y a pas de changement de couleur

[moilou2]

Re et merci pour ton aide.

J'intègre le code comme suit?

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
Private Sub txt_RG_Chaufferie_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
Dim ctl As Control
 
For Each ctl In Me.Controls
    Select Case Left(ctl.Name, 6)
        Case "txt_RG"
            ctl.BackColor = 16777215
 
    End Select
Next ctl
 
If ctl.BackColor <> 16777215 Then ctl.BackColor = 16777215
Me.txt_RG_Chaufferie.BackColor = 15912868
 
End Sub

Sinon pour ce qui est de remplacer les labels par des txtBox je vais essayé

[moilou2]

Re, j'ai essayé de remplacé des labels par des txtBox, mais sa ne change rien. Merci quand même pour le tuyaux!

[Arkham46]

je voyais plutôt ça comme ça :

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
 
Private Sub txt_RG_Chaufferie_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
Dim ctl As Control
 
For Each ctl In Me.Controls
    Select Case Left(ctl.Name, 6)
        Case "txt_RG"
            if ctl.BackColor <> 16777215 then ctl.BackColor = 16777215
 
    End Select
Next ctl
 
If Me.txt_RG_Chaufferie.BackColor <> 15912868
Me.txt_RG_Chaufferie.BackColor = 15912868
End If
 
End Sub

[moilou2]

Tu veut dire:

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
Private Sub txt_RG_Chaufferie_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
Dim ctl As Control
 
For Each ctl In Me.Controls
    Select Case Left(ctl.Name, 6)
        Case "txt_RG"
            If ctl.BackColor <> 16777215 Then ctl.BackColor = 16777215
 
    End Select
Next ctl
 
If Me.txt_RG_Chaufferie.BackColor <> 15912868 Then
Me.txt_RG_Chaufferie.BackColor = 15912868
End If
 
End Sub

[moilou2]

Re, bon ba écoute, j'ai étendu sa a tous mes labels, mais sa ne change rien...

Il va falloir trouver autre chose