A l'aide, please, je deviens fou... !!! :)

Question

Bonjour,

J'ai un petit problème "d'apparition de fenètres"...

En plus clair :

Sur un projet de popup, j'ai voulu ajoutter un splash screen afin de laisser le temps aux diverses fenètres de s'ouvrire simplement par :

Set Form = New Form1
Form.Left = Me.Left + 375
Form.Top = Me.Top + 375

Le nombre de fenètres ouvertes et le texte qu'elles contiennent est déterminé par un fichier .ini

Donc :

For i = 1 To LireINI("Rubrique", "Parametre")
   Set Form = New Form1
   Form.Left = Me.Left + 375
   Form.Top = Me.Top + 375
   Form.Hide
   Form.Text1.Text = LireINI("Rubrique", "Texte" & i)
Next i

Et j'aimerai savoir si c'est possible à la fin de l'execution de tout ca de trouver un moyen de faire apparaitre toutes ces nouvelles Form1 !!!  :(

Dans le style :

For i = 1 To LireINI("Rubrique", "Parametre")
   Set Form = New Form1
   Form.Left = Me.Left + 375
   Form.Top = Me.Top + 375
   Form.Hide
   Form.Text1.Text = LireINI("Rubrique", "Texte" & i)
Next i

[... tout ce qui reste à faire]

Apparition des Form1

Merci de votre aide...  :)

cs_DARKSIDIOUS · Answer

Et bien : Form1(index).Show

DARK SIDIOUS

[Responsable de la rubrique API du site www.ProgOtoP.net]

echo200 · Answer

Oh p***** c'était sous mes yeux et g pas été foutu de voire ça  O.o

Eh bien merci  :)  Tu sauve mon tube d'aspirine qui est déjà bien entammé  ;)

cs_DARKSIDIOUS · Answer

De rien, ce fut un plaisir ;-) Et puis, comme çà, ton tube d'aspirine n'y passeras pas ;-)

DARK SIDIOUS

[Responsable de la rubrique API du site www.ProgOtoP.net]

echo200 · Answer

Hum... rectification, l'objet Form ne supporte pas les Index
:-/

Une autre suggéstion ?

A l'aide, please, je deviens fou... !!! :)

4 réponses

Discussions similaires