Users AD ds une combobox.

Zarakio Messages postés 1 Date d'inscription lundi 18 juin 2007 Statut Membre Dernière intervention 19 juin 2007 - 19 juin 2007 à 11:13
cs_Exploreur Messages postés 4822 Date d'inscription lundi 11 novembre 2002 Statut Membre Dernière intervention 15 novembre 2016 - 19 juin 2007 à 11:28
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

2 réponses

lolokun Messages postés 1241 Date d'inscription mardi 10 octobre 2006 Statut Membre Dernière intervention 27 août 2013 6
19 juin 2007 à 11:20
Bonjour,

Regarde du côté de Additem pour ajouter des lignes à une listbox.
listbox.additem userlist.item(i) dans ta boucle.
0
cs_Exploreur Messages postés 4822 Date d'inscription lundi 11 novembre 2002 Statut Membre Dernière intervention 15 novembre 2016 14
19 juin 2007 à 11:28
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

 
0