Discussion :

[Lucas42]

Bonjour , je suis en train de faire une page de propriété pour mon Control ActiveX , j'ai declaré comme variable

Code :

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

Public couleur_ouvert as string

lorsque j'incorpore cette variable à ma page de propriété , celle si apparait à l'ecran sous forme d'un text box , et les lignes de codes associé à celle ci sont :

Code :

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

SelectedControls(0).couleur_ouvert = txtcouleur_ouvert.Text

Jusque là c tout bon , mais je suis obliger d'ecrire dans ma TextBox l'intégralité de ma chaine de caractére

RGB(255,0,0) si je desire du rouge par exemple

or j'aimerai ecrire en label " RGB( " ainsi que les " , " et " ) " et via 3 textbox , laisser le choix à l'utilisateur pour les 3 couleurs qui compose le RGB , soit rouge , vert , bleu....
donc comment associer les 3 labels et les 3 textbox pour en faire un STRING ??
Je sais que pour recuperer le text d'un text box , c'est : TextBox.Text
celui d'un label , c'est : Label1.Caption ..
mais comment les lier ??

merci d'avance

[jmfmarques]

avec &

[Lucas42]

en effet avec des & ca va nickel , thx

[Lucas42]

non en fait c'était pas un string , mais un LONG qu'il fallait que j'utilise , mais c 'est bien pareil pour lier les .text et .caption , c'est grace à un & , non ??

[jmfmarques]

Tu prends un chemin curieux, là, vois-tu ?
En parfaite "désharmonie" avec la philosophie même de ton outil !...
N'ajoute aucun message ici (on ne va pas recommencer, hein ?)
Attends que je revienne avec ce qu'il te convient, s'il te plait !
NE TOUCHE PAS TON CLAVIER !

voilà :
fais un petit projet avec, sur une form un commandbutton command1 et un label label1
et ce code :

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
Private Type CHOOSECOLOR
  lStructSize As Long
  hwndOwner As Long
  hInstance As Long
  rgbResult As Long
  lpCustColors As String
  Flags As Long
  lCustData As Long
  lpfnHook As Long
  lpTemplateName As String
End Type
Private Declare Function CHOOSECOLOR Lib "comdlg32.dll" Alias "ChooseColorA" (pChoosecolor As CHOOSECOLOR) As Long
Private Sub Command1_Click()
   Dim couleur As Long
  couleur = ShowColor(Me)
  Label1.BackColor = couleur
End Sub
Public Function ShowColor(forma As Form) As Long
  ReDim customcolors(0 To 16 * 4 - 1) As Byte
  Dim i As Integer
  For i = LBound(customcolors) To UBound(customcolors)
      customcolors(i) = 0
  Next i
  Dim cc As CHOOSECOLOR
  Dim Custcolor(16) As Long
  Dim lReturn As Long
  cc.lStructSize = Len(cc)
  cc.hwndOwner = forma.hWnd
  cc.hInstance = App.hInstance
  cc.lpCustColors = StrConv(customcolors, vbUnicode)
  If CHOOSECOLOR(cc) <> 0 Then
    ShowColor = cc.rgbResult
    customcolors = StrConv(cc.lpCustColors, vbFromUnicode)
  Else
    ShowColor = -1
  End If
End Function

Lance, chois une couleur, clique OK et comprends !

[Lucas42]

euh , oui et ?? en quoi cela repond à ma question ?? car ton programme est "bien" fonctionne mais est EXTREMENENT long , avec ca c'est pareil

Code :

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

1
2
3
4
5
Private Sub Command1_Click()
CommonDialog1.Flags = &H1& Or &H8&
CommonDialog1.ShowColor
Label1.BackColor = CommonDialog1.Color
End Sub

je t'accorde car toi tu n'utilise pas une fonction qui utilise la librairie windows , tandis que moi oui . mais c equivalent

donc je comprend ton "enervement" sur le forum , mais c'est que je n'est pas eu le tps de poster un message pour dire que c'etait resolu ^^

merci

[jmfmarques]

Tout simplement, Lucas, c'est ainsi que l'on propose les couleurs !
C'est également ainsi que sont faites les fenêtres de tous les contrôles vb pour les propriétés BacColor et ForeColor !
Question de technicité... celle qu'a choisie VB !

On ne mesure pas, Lucas, l'efficacité d'un code à sa longueur, mais à son efficacité et sa rapidité !
Le passage par une API augmente considérablement cette rapidité et rend totalement indépendante ton application !
Le passage par le contrôle Commondialog est une autre paire de manche (nombreux incidents, d'une machine à l'autre, si je m'en tiens aux sujets ouverts encore récemment à ce propos sur ce forum )

[Lucas42]

je suis d'accord JMFMARQUES , mais au début , vu que mon patron avait mis RGB(red,green,blue) il fallait bien que je permette à l'utilisateur de saisir les valeur associé a red , green , blue , mais en cherchant sur le net , j'ai trouver comment appeller la pallette de couleur , qui est d'une part , plus simple , et plus conviviale .

Aprés je pense pas que le tps de réaction entre ton et mon programme soit perceptible .....

mais je vais qd mm l'analyser et l'utiliser , car je prefere utiliser directement la librairie que d'etre obliger de passer par un controle ... maintenant je vais me gratter le crane pour comprendre ton prog

merci encore
++