Discussion :

[ClubberGuy]

je veux faire apparaitre dans une nouvelle feuille (Form2) un nombre de TextBox égal au nombre saisi sur le textbox de la form 1 mais je sais pas trop comment m y prendre et merci ^^

[ProgElecT]

Salut

Dans ton Form2 tu mes 1 premier TextBox avec index pour créer un groupe de contrôle, lors de l'appel à ce Form2 fait depuis Form1, dans la procédure Load du Form2 tu ajoutes autant de TextBox (-1) que la demande TextBox de Form1.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Form_Load()
'dans le Form2
 
Dim Nbr As Integer
Dim T As Integer
 
Nbr = Form1.TextSaisis.Text 'recuperation de l'information provenant du Form1
For T = 1 To Nbr - 1
   Load TextBox1(T)
   TextBox1(T).Move TextBox1(T - 1).Left, TextBox1(T - 1).Top + TextBox1(T - 1).Height + 60, _
   TextBox1(T - 1).Width, TextBox1(T - 1).Height
   TextBox1(T).Visible = True
Next T
 
End Sub

[ClubberGuy]

Merci

[ClubberGuy]

par contre j ai une erreur de compilation sur le private sub form load ^^' et j ai pas su comment le faire sachant que j ai changé les trucs

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Form_Load()
 
Dim Nbr As Integer
Dim T As Integer
 
Nbr = Form1.TextBox2.Text 
For T = 1 To Nbr - 1
   Load TextBox1(T)
   TextBox1(T).Move TextBox1(T - 1).Left, TextBox1(T - 1).Top + TextBox1(T - 1).Height + 60, _
   TextBox1(T - 1).Width, TextBox1(T - 1).Height
   TextBox1(T).Visible = True
Next T
End Sub

j ai pas trop compris ce que tu as ecris avant le code ^^' (je débute en VB)

[ProgElecT]

Dans ton Form2 tu mes 1 premier TextBox avec index pour créer un groupe de contrôle

Au moment de la création du Form2, aprés la dépose du TextBox1, dans sa propriété Index, tu y mes un zéro, cela signifie que tu veux créer un groupe de contrôle.

[ClubberGuy]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Form2_Load()
 
Dim Nbr As Integer
Dim T As Integer
 
Nbr = Val(Form1.TextBox2.Text)
Label1.Caption = Nbr
For T = 1 To Nbr - 1
   Load textbox1(T)
   textbox1(T).Move textbox1(T - 1).Left, textbox1(T - 1).Top + textbox1(T - 1).Height + 60
   textbox1(T - 1).Width , textbox1(T - 1).Height
   textbox1(T).Visible = True
   textbox1(T).ZOrder = 0
Next T
End Sub

Sur la form2 sa ne m affiche rien et je sais pas pk ^^' donc si tu peux m aider je t en serai reconnaissant