Users AD ds une combobox.

Question

En fait g codé une commande ki me permet de lister tous mes utimisateur dans une text box... pas pratique pour les sélectionner et les modifier. Qqn peut me dire comment faire pour les stocker ds une combo box ou une list box.


Merci d'avance.

PS: voici mon code avec la textbox.


Dim UserList 
As
New ArrayList


UserList = getUsersOU("Mon OU"
, 
"Mon login"
, 
"Mon mdp"
)



Dim
 i 

As



Integer








For
 i = 0 

To
 UserList.Count - 1ComboBox2.Text = ComboBox2.Text & (


CStr
(UserList.Item(i))) & ControlChars.CrLf


Next






End



Sub

lolokun · Answer

Bonjour,

Regarde du côté de Additem pour ajouter des lignes à une listbox.
listbox.additem userlist.item(i) dans ta boucle.

cs_Exploreur · Answer

Salut,

Dimi 
As
Integer

For i = 0 To UserList.Count - 1 
ComboBox2.Additem 
CStr (UserList.Item(i)) & ControlChars.CrLf 

Next

A+
Exploreur

 Linux a un noyau, Windows un pépin

Users AD ds une combobox.

2 réponses

Votre réponse

Discussions similaires