plusieurs instances de la meme form

Question

Message :
salut tt le monde voila, le pb que j'ai c'est que je veux cr&#233;er plusieurs form depuis une form mod&#233;le,j'ai essay&#233; :dim frm1 as new frm
sauf que le problem c'est que je ne connais pas le nombre de form que je dois declarer au debut je veux que ca soit dynamique chaque fois que je clique sur un boutton je cr&#233;e une form/*merci d'avance*/

yass235

Utilisateur anonyme · Answer

Bonjour,

Example de tableau dynamique

Dim TabForm() As Form
Dim NbForm As Integer

Private Sub Button_Click()
  Dim frm As New Form1
  
  ReDim Preserve TabForm(NbForm)
  Set TabForm(NbForm) = frm
  NbForm = NbForm + 1
  
  frm.Show
End Sub

Kenji
<hr size="2" width="100%">
Merci de cliquer sur "R&#233;ponse accept&#233;e" si une r&#233;ponse vous convient.

cs_Jack · Answer

Salut
La m&#233;thode est presque bonne.
Il suffit de lui attribuer un Index pour que ce soit complet.
Un exemple dans un projet compos&#233; de Form1 avec un bouton Command1 et Form2 qu'on va dupliquer :

Option Explicit


Dim Formes() As Form2
Dim monIndex As Integer


Private Sub Form_Load()
    monIndex = 0
End Sub


Private Sub Command1_Click()
    ReDim Preserve Formes(monIndex)
    Set Formes(monIndex) = New Form2
    Formes(monIndex).Show
    monIndex = monIndex + 1
End Sub


Le New se met au moment du Set, pas du Dim

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

cs_Jack · Answer

Charles :
Compliqu&#233; de faire un tableau avec une instance indirecte (de frm).
A mon avis, &#231;a ne sert &#224; rien si on dimensionne le tableau directement 'As Form2'.

Utilisateur anonyme · Answer

Oui, tu a tout &#224; fait raison, je n'y avais pas pens&#233;.

De plus, pour vb6 (que je ne pratique plus trop &#224; cause du .net), il ne faut pas remettre le type quand on fait un Redim ?

Private Sub Command1_Click()
    ReDim Preserve Formes(monIndex) As Form2
    Set Formes(monIndex) = New Form2
    Formes(monIndex).Show
    monIndex = monIndex + 1
End Sub

Kenji

cs_Jack · Answer

Ce n'est pas obligatoire.
Tu ne fais que toucher &#224; la quantit&#233; m&#233;moire, mais pas au type, donc c'est sous-entendu.
Ta syntaxe est plus compl&#232;te.

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

jpleroisse · Answer

Bonsoir,



Private Sub Command1_Click()

   Dim intX As Integer

   Dim frmNew(1 To 1) As New Form1

   For intX = 1 To 1

      frmNew(intX).Show

      frmNew(intX).WindowState = vbMinimized

      ' Pour cr&#233;er des feuilles en taille r&#233;duite

      ' sans qu'elles soient d'abord bri&#232;vement

      ' affich&#233;es en taille normale, inversez

      ' l'ordre des deux lignes pr&#233;c&#233;dentes.

   Next

End Sub



jpleroisse



Si une r&#233;ponse vous convient, cliquez R&#233;ponse Accept&#233;e.

yass235 · Answer

merci tt le monde pour vos reponses mais au fait j'ai essay&#233; un truc et ca march&#233; par % a mon application c'est que je suis entrain de concvoir une application de chat et j'ai pu identifi&#233; les forms par % a leur caption
Load New Frm_chat
For Each f In Forms
If f.Caption = "" Then
    f.Show
End If
Next

yass235

Plusieurs instances de la meme form

7 réponses

Discussions similaires