Discussion :

[chouchachaimouta]

Bonjour, J'espére que vous pouvez m'aider voila mon probléme : j'ai la code suivante

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
16
17
18
19
20
21
22
23
24
25
26
27
28
 
    Dim N As Integer
 
    Private Sub Lool_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Lool.TextChanged
        N = CInt(Lool.Text)
        'Dim TextBox As New System.Windows.Forms.TextBox()
        'TextBox.Left = 100
        ' TextBox.Top = 100
        '  Controls.Add(TextBox)
        '   TextBox.Text = N
        '    TextBox.Name = "textbox" & i
        For i = 1 To N
            Dim TextBox(i) As System.Windows.Forms.TextBox
            'Dim TextBox As New System.Windows.Forms.TextBox()
            Controls.Add(TextBox(i))
            'TextBox(i).Left = 100
            'TextBox(i).Top = i + 100
            Dim x As Integer
            Dim Y As Integer
            x = 100 * i
            Y = 100 * i
            TextBox(i).Left = x
            TextBox(i).Top = Y
            TextBox(i).Name = "Textbox" & i
            TextBox(i).Text = i
        Next i
 
    End Sub

normalement elle marche mais malheureussement il ne fonctionne pas

[hunteshiva]

Bonjour,
il manque le code pour ajouter la texBox au formulaire

un truc du genre

Code :

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

 Form1.add(MaTextBox)

et ton code est mal géré:

Code :

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

1
2
3
4
5
6
' ...
For i = 1 To N
    Dim TextBox(i) As System.Windows.Forms.TextBox
    ' ...
Next
' ...

ce serait plutot

Code :

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

1
2
3
4
5
6
7
8
' ...
Dim TextBox(N) As System.Windows.Forms.TextBox
 
For i = 0 To N-1
 
    ' ...
Next
' ...

Dans ton code, à chaque tour de boucle tu crée un tableau de TextBox qui grandi à chaque tour, mais dont tu ne te sert que d'une a chaque fois...


PS: désolé pour ce semi-Code je suis en week-end
PPS: si tu a trouvé, met ton code qui fonctionne

[chouchachaimouta]

J'ai changé la code même probléme . voil une imprime écran de ce probléme

[shayw]

Salut

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
16
Private listtextbox As New List(Of TextBox)
    Private Sub lool_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles lool.TextChanged
        Dim num As Integer
        If Integer.TryParse(DirectCast(sender, TextBox).Text, num) Then
            For iter = 0 To num - 1
                Dim mytextbox As New TextBox
                With mytextbox
                    .Location = New Point((iter + 1) * 100, (iter + 1) * 100)
                    .Name = "textbox" & (iter + 1).ToString
                    .Text = (iter + 1).ToString
                End With
                listtextbox.Add(mytextbox)
                Me.Controls.Add(mytextbox)
            Next
        End If
    End Sub

[chouchachaimouta]

Merci