Bonjours à tous !

Je rencontre actuellement un soucis dans mon code VB, j'ai donc un fichier films.txt qui contient 25 films avec leur description, titre ect... et donc mon code est la pour récupérer les 25 titres des films et que chacun doit apparaitre dans un bouton ( soit ici 25 boutons ) mais rien ne s'affiche et j'aimerai donc savoir d'où vient mon erreur et si vous aviez quelque chose à me proposer pour que mon code soit plus optimal. En vous remerciant d'avance !

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Dim i As Integer
        Dim a As New IO.StreamReader("films.txt", True)
        Dim maLigne As String
        Dim obj As New Button
 
 
 
        While a.Peek > 0
            maLigne = a.ReadLine
            'a.items.add(Split(maLigne, ";")(i))
 
        End While
        For i = 0 To 25
 
            If i < 5 Then
                obj.Top = 50
                obj.Left = 50 + (200 * i)
 
            Else
                If i < 10 Then
                    obj.Top = 150
                    obj.Left = 50 + (200 * (i - 5))
                Else
                    If i < 15 Then
                        obj.Top = 250
                        obj.Left = 50 + (200 * (i - 10))
                    Else
                        If i < 20 Then
                            obj.Top = 350
                            obj.Left = 50 + (200 * (i - 15))
                        Else
                            If i < 25 Then
                                obj.Top = 450
                                obj.Left = 50 + (200 * (i - 20))
 
                            End If
                        End If
                    End If
                End If
            End If
            obj.Name = "obj" & i
 
            obj.Height = 50
            obj.Width = 200
            obj.Text = obj.Name
            Me.Controls.Add(obj)
 
        Next
 
    End Sub
End Class