Form1() : Form1(0) Form1(1) Fenêtre tableau.

Résolu
lunnorey Messages postés 39 Date d'inscription dimanche 11 octobre 2009 Statut Membre Dernière intervention 9 mai 2015 - 22 déc. 2011 à 11:22
lunnorey Messages postés 39 Date d'inscription dimanche 11 octobre 2009 Statut Membre Dernière intervention 9 mai 2015 - 23 déc. 2011 à 00:18
Bonjour,

Je souhaiterai savoir s'il existe un moins de lancer la même fenêtre plusieurs fois est que l'on puisse modifier une variable dans l'une d'elle.

Exemple de Faux Code :
        Form2.Show(0)
        Form2.TextBox1.Text = "test1"
        Form2.Show(1)
        Form2.TextBox1.Text = "test2"

Merci D'avance.

8 réponses

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 72
22 déc. 2011 à 11:35
oui

bête tableau d'objet

Dim f as Form2
f = New Form2
f.Show(0)
f.TextBox1.Text = "test1"

f = New Form2
f.Show(0)
f.TextBox1.Text = "test2"


Renfield - Admin CodeS-SourceS - MVP Visual Basic & Spécialiste des RegExp
3
Utilisateur anonyme
22 déc. 2011 à 19:35
Bonsoir,

Fais donc une List(Of Form2)
Ajoute (add) tes instances de Form2
Tu pourras ensuite les énumérer.
3
Utilisateur anonyme
22 déc. 2011 à 20:56
dim maliste as new list(of form2)
Dim f as Form2
f = New Form2
maliste.add(f)
f.show

Puis l'énumération :
for each fen as form2 in maliste ...
3
lunnorey Messages postés 39 Date d'inscription dimanche 11 octobre 2009 Statut Membre Dernière intervention 9 mai 2015 3
22 déc. 2011 à 11:45
Je sais pas ce que l'on ferai sans vous.
Merci
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
lunnorey Messages postés 39 Date d'inscription dimanche 11 octobre 2009 Statut Membre Dernière intervention 9 mai 2015 3
22 déc. 2011 à 13:58
Autres chose,

Je souhaiterai savoir comment les différentiés pour changé la variable.

Exemple faux code:
    Dim f As Form2

    Private Sub Button1_Click() Handles Button1.Click
        f = New Form2
        f.Show()
        f.TextBox2.Text = "Fen1"

        f = New Form2
        f.Show()
        f.TextBox2.Text = "Fen2"
    End Sub

    Private Sub Button2_Click() Handles Button2.Click
        For Each fen As Form2 In f '<--

                'Il me dit évidemment que f n'est pas un type de collection

            If fen.TextBox2.Text = "Fen1" Then
                fenfen.TextBox1.Text = TextBox1.Text
            End If
        Next
    End Sub


Merci d'avance.
0
lunnorey Messages postés 39 Date d'inscription dimanche 11 octobre 2009 Statut Membre Dernière intervention 9 mai 2015 3
22 déc. 2011 à 17:09
Je suis désolé mes pour que les gens regarde la page il ne faut pas que la question soit validé, mais quant le problème sera résolut je vous remettrai votre Réponde accepté. (ou si personne ne répond)

Merci Pour votre compréhension.
0
lunnorey Messages postés 39 Date d'inscription dimanche 11 octobre 2009 Statut Membre Dernière intervention 9 mai 2015 3
22 déc. 2011 à 19:56
Pouvez-vous me montrer un exemple s'il vous plait.
Merci d'avance.
0
lunnorey Messages postés 39 Date d'inscription dimanche 11 octobre 2009 Statut Membre Dernière intervention 9 mai 2015 3
23 déc. 2011 à 00:18
Merci a vous pour votre aide.
0