accéder a .selectedindex sur un Control

Salut

J'ai un tableau  de Forms.Control ( avec dedans des combobox , des checkbox , ...)

je veux utiliser dans certain cas la properties .selectedindex qui existe sur les combo , mais comment l'atteindre puisse que j'ai des Control .

exemple simplifié avec combo = un combobox et message = un autre type de controle

Dim i AsByte
Dim controle(5) As Control
controle(1) = Combo
controle(2) = message
For i = 1 To 2
   If (controle(i).GetType.ToString = "System.Windows.Forms.ComboBox") Then
   ' controle(1).selectedItem = 5
   ' Combo.SelectedIndex = 5
   EndIf
NextJe suis sur de ne pas avoir bien compris l'héritage des classes.
Ca marche bien sur avec dim contole(2) as combobox, mais dans ma liste , il n'y a pas que des combobox donc je veux utiliser un tableau de Control.


Merci d'avance

 

Tu développes finalement sous quoi ?

C'est quoi, sous VB6,  GetType.ToString  ?

 

Salut,

c'est pas du VB6 mais du VB DotNet...

@++

---

Pourquoi passer par des chaines ?

If Controle(i).GetType Is GetType(System.Windows.Forms.ComboBox) Then
 ...

__________
Kenji

Salut

Enumérer les ComboBox :
For each c as Combobox in Me.controls
   c.selecteditem = ...
Next

Enumérer tout, les traiter selon les types en utilisant la technique de Charles et un Cast :
For each c as control in me.controls
  If GetType(c) is Combobox then
    dim cb as ComboBox
    cb = CType(c, ComboBox)
    cb.selectedindex = ...
  elseif GetType(c) is CheckBox then
   'idem...
  else
   'pour les autres
  end if
Next

Y'a peut-être des fautes de frappes, j'ai tappé direct dans la FreeTextBox...

---

Julien.

Bon attends je suis un peu nul ce soir ^^
La première technique ne marche pas car il va essayer de caster par exemple tes checkbox en combobox, ce qui va provoquer une erreur.
La deuxième technique est bonne mais le test de type est mauvaise. A la place de

If GetType(c) is Combobox then

Utilise

If TypeOf c is ComboBox Then

Nettement mieux...

Bonne soirée !

---

Julien.

Merci à tous

Quand on débute , il n'y pas mieux que vous

Super