Discussion :

[dmoluc]

Bonjour à Tous,

Cela fait un bail que je ne suis pas venu chercher de l'aide, mais ce matin je bute sur un problème, sans doute simple, mais pourtant sans trouver comment m'y prendre.
J'ai recréer la palette des 56 couleurs VB avec des picturebox et voici le code pour chaque bouton

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
Public Sub PictureBox1_Click()
On Error GoTo erreur
 
Call adresse 'j'appel le code qui détermine la ligne avec la colonne de début et de fin du coloriage 
 
For C = C To F ' C = colonne de début, F colonne de fin dans la procédure "adresse"
frmMain.MSFlexGrid1.Col = C
frmMain.MSFlexGrid1.Row = Ligne
 
 
frmMain.MSFlexGrid1.CellBackColor = Picture1.BackColor 'je colore les cellules du Flexgrid avec la couleur du picturbox sur lesquel je click
Next C
 
 
 
erreur:
 
End Sub

Existe-t-il un moyen plus simple que de répéter mon code 56 fois avec une boucle sur l’événement click des picturebox ? J'avoue que je suis un peu perdu

Merci pour votre aide

cordialement

[pc75]

Bonjour,

Surement avec un tableau de contrôles.

[dmoluc]

Merci je vais étudier ça...

[ProgElecT]

Salut

Une variante, avec un seul PictureBox.
Créer une image de damier de 56 couleurs souhaitées qui sera chargé dans Picture1, et ce

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
Option Explicit
'Pour lire la couleur du pixel sous le curseur
Private Declare Function GetPixel Lib "gdi32" _
(ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long
Dim Couleur As Long
 
Private Sub Form_Load()
Shape1.FillStyle = 0 'solid
Shape1.Move 60, 60, 315, 315
Shape2.FillStyle = 0 'solid
Shape2.Move Shape1.Left + Shape1.Width + 15, 60, 315, 315
Picture1.ScaleMode = vbPixels
Picture1.Move 60, Shape1.Top + Shape1.Height + 15
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Shape1.FillColor = GetPixel(Picture1.hdc, X, Y)
End Sub
Private Sub Picture1_Click()
Couleur = Shape1.FillColor
Shape2.FillColor = Couleur
End Sub

Shape1 permet de vérifier les couleurs balayées en pasant sur le PictureBox, Shape2 permet de confirmer la couleur sélectionnée au moment du clique sur le PictureBox, et enfin la variable Couleur contient la valeur à indiquer dans ton MSFlexGrid1.

[dmoluc]

merci comme d'habitude ton code marche impeccable