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