[VB6] Composer un LONG avec TextBox et Label

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

Code:

---

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:

---

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

Citation:

---

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

avec &

en effet avec des & ca va nickel , thx

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 ??

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:

---

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 !

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:

---

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

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 ;) )

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
++