Création d'une série de textBox avec une code en vb.net

Version imprimable

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

Code:

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

19/05/2012, 21h47
hunteshiva
Bonjour,
il manque le code pour ajouter la texBox au formulaire :mrgreen:

un truc du genre

Code:

Form1.add(MaTextBox)

et ton code est mal géré:
Code:

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

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
19/05/2012, 22h21
chouchachaimouta

1 pièce(s) jointe(s)

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

Salut

Code:

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

19/05/2012, 22h52
chouchachaimouta

Merci