Discussion :

[méphistopheles]

Bonjour

j'aimerais dans une combobox (où autre s'il existe un moyen plus aproprié) proposer à l'utilisateur de choisir une couleur. le problème, est que je n'arrive pas à afficher un carré de couleur à coté où à colorer un élément de la liste.

si vous avez une solution...

merci

[ouskel'n'or]

Hello le fiston de satan,

Zaza avait une solution que tu devrais pouvoir trouver dans ses réponses... il y a longtemps. Elle parlait de RichTextBox, ce me semble, il devrait bien exister un richComboBox. Un ocx permettait de les avoir.
Je t'ai dit tout ce que je savais. Regarde tout de même si tu n'as pas RICHTX321.OCX.

Bonne chance

A+


Pour ton pb d'octet, je ne comprends pas ton pb

[méphistopheles]

merci, je vais chercher...

[zazaraignée]

Salut

J'opterais plutôt pour le CommonDialog avec la méthode ShowColor. Mais c'est une question de point de vue. La liste déroulant est pratique en ceci que ça évite à l'utilisateur d'ouvrir et fermer une boîte de dialogue à chaque fois qu'il a besoin d'une couleur...

As-tu regardé du côté des composants. J'y jète en ce moment un coup d'oeil.

À bientôt. Sinon: Joyeux Noël!

Et à ouskel: Noyeux Joël!

[méphistopheles]

Bonjour zazaraignée (aime beaucoup ton déguisement)

non, je ne veut pas utiliser le comondialog qui créee une fenetre. en fait, j'ai déja les constantes de couleurs mais je cherche la liste déroulante.
pas beaucoup eu le temps de chercher depuis mon dernier post.

sinon, joyeux noel à toi et à ouskel.

[ProgElecT]

Bonjour

Une facon rendant la selection de couleur restreinte pour l'utilisateur du programme

dans une form
1 MSHFlexGrid
1 Label

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
32
33
34
35
36
37
Option Explicit
Dim T As Integer
Dim CouL As OLE_COLOR
Private Sub Form_Load()
Label1 = ""
Label1.Height = 435: Label1.Left = 900: Label1.Top = 60: Label1.Width = 675
 
MSHFlexGrid1.Rows = 23: MSHFlexGrid1.Cols = 1
MSHFlexGrid1.FixedRows = 0: MSHFlexGrid1.FixedCols = 0
MSHFlexGrid1.Left = 30: MSHFlexGrid1.Height = (MSHFlexGrid1.RowHeight(0) * 6) + 60  ' 825
MSHFlexGrid1.ColWidth(0) = 800
MSHFlexGrid1.Width = MSHFlexGrid1.ColWidth(0) + 60
MSHFlexGrid1.Col = 0
MSHFlexGrid1.ToolTipText = "cliquer sur une couleur"
Me.Height = MSHFlexGrid1.Top + MSHFlexGrid1.Height + 450
Me.Width = Label1.Left + Label1.Width + 120
'***toutes les lignes si dessus peuvent être defini au moment de la création
' de l'interface utilisateur ***********
' création du choix selectif de couleur par le concepteur du programme
For T = 0 To MSHFlexGrid1.Rows - 1
 MSHFlexGrid1.Row = T
 Select Case T
  Case 0: CouL = &HFFFFFF: Case 1: CouL = &HC0C0C0: Case 2: CouL = &H0&
  Case 3: CouL = &HC0C0FF: Case 4: CouL = &HFF&: Case 5: CouL = &H80&
  Case 6: CouL = &HC0E0FF: Case 7: CouL = &H80FF&: Case 8: CouL = &H4080&
  Case 9: CouL = &HC0FFFF: Case 10: CouL = &HFFFF&: Case 11: CouL = &H8080&
  Case 12: CouL = &HC0FFC0: Case 13: CouL = &HFF00&: Case 14: CouL = &H8000&
  Case 15: CouL = &HFFFFC0: Case 16: CouL = &HFFFF00: Case 17: CouL = &H808000
  Case 18: CouL = &HFFC0C0: Case 19: CouL = &HFF0000: Case 20: CouL = &H800000
  Case 21: CouL = &HFFC0FF: Case 22: CouL = &HFF00FF: Case 23: CouL = &H800080
 End Select
 MSHFlexGrid1.CellBackColor = CouL
Next T
End Sub
Private Sub MSHFlexGrid1_RowColChange()
Label1.BackColor = MSHFlexGrid1.CellBackColor
End Sub

Salut

[jacma]

non, je ne veut pas utiliser le comondialog qui créee une fenetre. en fait, j'ai déja les constantes de couleurs mais je cherche la liste déroulante.

Bonjour
Regardes dans MSDN la rubrique "Scénario du contrôle RichTextBox: changement des propriétés Fonts, FontSize et FontColor"

[méphistopheles]

désolé jacma, je n'ais pas msdn. pourrais-tu préciser?

merci

[jacma]

J'ai relu (plus attentivement et complètement) le post. A ma première réponse, je m'étais focalisé sur la réponse d'ouskel'n'or qui parlait du choix de couleurs pour une RichTextBox. Mais si j'ai bien compris maintenant, c'est simplement une liste adaptée que tu recherche pour afficher et choisir les couleurs voulues. Une ListView devrait faire l'affaire (en option liste), puisque elle affiche des icônes.
J'espère que j'ai visé juste ce coup-ci
Mes excuses.

[leroissejp]

Bonjour,
méphistopheles, un moyen simple que j'ai utilisé, un contrôle Frame avec des OptionButtons et leurs propriété BackColor et un CommandButton pour ouvrir et fermer le Frame, de façon à imiter un Combobox.

jpleroisse

[méphistopheles]

Merci à tous.

j'ai résolu mon problème avec une image combo (merci ouskel).



salut

[parp1]

Bonjour a tous, je reveille ce post de derriere les fagots.(On moins ca prouve que je cherche.)

Enfait je souhaiterai faire apparement comme méphistopheles. A savoir un combo box avec une couleur dans chaque "CASE"

Bon apparement méphistopheles a resolu son probleme, cependant, je ne comprends pas comment il a fait.

Si quelqu'un avait la bonté de m'expliquer, deja ce qu'on appel un Image Combo.

Merci d'avance.

[ProgElecT]

ce qu'on appel un Image Combo

deja il faut rajouter le composant (Ctrl + T)
cocher : Microsoft windows Common Controls 6.0 (MSCOMCTL.OCX), resultat, plusieur controls dont le ImageCombo et souvant l'assossiation avec le ImageList.

Le contrôle ImageCombo est une version de la zone de liste modifiable Windows standard capable de gérer des images. Une image peut être affectée à chaque élément de la partie liste du contrôle.

[parp1]

Merci ProgElecT, Sincere salutations.

je Devrais m'en sortir maintenant.

[zazaraignée]

Sinon, j'ai concocté un OCX qui affiche une palette des 216 couleurs 'Browser proof' du Web. Si ça t'intéresse, tu dis.

Tu peux aussi utiliser un ListView jumelé à un txtBox et un bouton. Mais c'est plus complèxe à gérer que le ImageCombo.

La liste de couleurs doit bien exister quelque part. En tout cas, elle existe sous Delphi.