[Gambas-user-fr] =?iso-8859-1?q?Petit_probl=E8me?=

[Fabien B. <gam...@gm...>]

DIM hTabStrip AS TabStrip
DIM hTab AS .Tab

hTab =3D hTabStrip [ Index AS Integer ]
 Return a tab virtual object from its index.

heu dabord on ne peu pas utiliser de type commen=E7ant par un point...

comment je fait pour enum=E9rer le contenu d'un tabstrip ?

voici la fonction :

PUBLIC SUB SetObservers(hClass AS Object, hCont AS Container)
  DIM hCtrl AS Object
  DIM hOBS AS Observer
  DIM hTab AS Container
  FOR EACH hCtrl IN hCont.Children
    IF hCtrl IS TextBox THEN=20
      hOBS =3D NEW Observer(hCtrl)
      object.Attach(hOBS, hClass, "OBS")
    ENDIF
    IF hCtrl IS Container THEN SetObservers(hClass, hCtrl)
    IF hCtrl IS TabStrip THEN=20
      FOR EACH hTab IN hCtrl
        'hCtrl =3D hCtrl[i]
        SetObservers(hClass, hTab)
      NEXT
    ENDIF
   =20
  NEXT
 =20
 =20
END