[Gambas-user] Re: Gambas-user digest, Vol 1 #78 - 3 msgs

[BODARD Fabien]

Salut Benoit



J'essais par ce projet la classe collection sur un array mais.....
A priori ça ne marche par saurait me dire tu pourquoi?
et est il possible de stocker un array dans un array?

merci :)

Fabien

PS Il sagit d'une form avec un bouton et un text box
Test de la collection avec textbox1
 Mais elle me renvois toujour la dernère entrée

' Gambas class file

PRIVATE Field AS NEW Array
PRIVATE coll AS NEW Collection

STATIC PUBLIC SUB Main()
  
  DIM hForm AS Form
  hForm = NEW FTest
  hForm.Show
  
  
  
END

PUBLIC SUB _New()
  
  Charge
  
END

PUBLIC SUB Charge()
DIM iPrev AS Integer
DIM i AS Integer
DIM j AS Integer
FOR j = 1 TO 20
  Field.Clear
  FOR i  = 1 + iPrev TO 20 + iPrev
    Field.add(i)
  PRINT i
  NEXT 
  coll.add(Field, LTrim(Str(j)))
  iPrev = i 
NEXT
END

PUBLIC SUB Button1_Click()

  TRY Message.Info(coll[TextBox1.text][2])

END