Discussion :

[Takahitekun]

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

[Pol63]

il faut faire un new button à chaque tour de boucle pour avoir un bouton par film

sinon en plus cours tu peux faire :

Code :

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

1
2
3
4
5
6
 
for each ligne as string in system.io.file.readalllines("chemin du fichier")
  dim b as new button
  b.text = ligne
  me.FlowLayoutPanel1.controls.Add(b)
next

il faut donc ajouter un flowlayoutpanel, qui sert à éviter de gérer le positionnement des controles

[Takahitekun]

Merci de ta réponse ça marche niquel

[Danyel]

Merci de penser au bouton si tel est le cas.