Discussion :

[cristof56]

Bonjour à tous,

J'ai créé une combobox en dynamique mais je n'obtient pas de 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
 
Set cbbx = CreateControl(nomformulaire, acComboBox)
name_ClickEventProc:
With cbbx
  .Name = nom_ctrl
  .SpecialEffect = 0
  .BackStyle = 1
  .BackColor = 16777215
  .BorderColor = 0
  .BorderStyle = 1
  .FontName = "Verdana"
  .FontSize = 10
  .RowSourceType = "Liste des valeurs"
  .RowSource = "0;1;2;3;4;5"
  .Width = 610
End With

cette fonction créé la combobox mais pas le label.
Comment faire pour créer un label associé à ce controle.

Merci d'avance

[pgz]

Bonjour.

Il faut créer l'étiquette en l'attachant à la combobox, du genre :

Code :

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

Set MyLabel = CreateControl(NomFormulaire, acLabel, acDetail, nom-ctrl)

Bon courage,

PGZ