elwingil

Membre
Inscription
3 janvier 2003
Dernière intervention
24 août 2007
Interventions
5
Signature

CLASSE LISTE DE FICHIER RÉCURSIVE

/source/43870-classe-liste-de-fichier-recursive

Cacalex en fait si, si tu donne un chemin qui n'existe pas ou auquel tu n'as pas accés, dir() va retourner une chaine vide et donc on zap la suite, déja testé sur des chemin réseaux ;o) Pour les optimisations suivantes je vais lancer la recherche dans un thread et lever un evenement lors de la fin de la recherche, comme ca je laisse ...

LA VIE ! APPLICATION 3 LOIS DE JOHN H. CONWAY (1969)

/source/26620-la-vie-application-3-lois-de-john-h-conway-1969

'******************************* On affiche la vie 'Form1.gfx.Cls '** Efface le screen gfx '** On affiche les cellules For X = 1 To 100 For Y = 1 To 100 If vie(X, Y) = 1 Then If Form1.gfx.Point(X * 2, Y * 2) &HFF& Then Form1.gfx.ForeColor = &HFF& Form1.gfx.PSet (X * 2, Y * ...

CRÉER UN GROUP DE CONTROL, COMME EN VB6

/source/23299-creer-un-group-de-control-comme-en-vb6

Voila ma nouvelle version - Je definie Public Tab(10) As Control dans la partie declaration global de mon formulaire - Une fonction qui alimente mon tableau d'objet For Nav = 0 To 10 Tab(Nav) = New Label Controls.Add(Tab(Nav)) Tab(Nav).Top = 50 + Nav * 15 Tab(Nav).Left = 50 ...

En effet, par contre je bute pour gerer les evenements d'un membre du tableau specifiquement, des idées?

Je crois que j'ai quelque chose qui se rapproche + de ce qui existait dans VB6 - Je definie Public Tab_label(10) As Control dans la partie declaration global de mon formulaire - Une fonction qui alimente mon tableau d'objet For Nav = 0 To 10 Tab(Nav) = New Label Controls.Add(Tab(Nav)) Tab(Nav)...