Discussion :

[Pierre-Ernest]

Bonjour à tous
Je crée par code une série de labels qui sont des noms de vidéos qu'on pourra visionner en cliquant dessus. Pour le moment, je butte sur le problème suivant :
Les textes des labels sont représentés par les lignes successives d'un fichier texte.
Les labels sont bien créés, mais seulement une petite partie du nom des vidéos apparait sur le formulaire. J'ai pourtant mis l'autosize du label à "false" et j'élimine les sauts de ligne éventuels sur le critère "length" de la ligne.
Je ne comprend pas pourquoi seulement le début du nom apparait sur mon formulaire.
Quelqu'un peut-il m'aider ?

Voici mon code :

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
Private Sub CliquerPourVoirLaListeDesChapitresToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CliquerPourVoirLaListeDesChapitresToolStripMenuItem.Click
        Me.BackColor = Color.Pink
        Me.BackgroundImage = Nothing
        Titre.Visible = True
        'My.Computer.FileSystem.OpenTextFileReader("D:\DVD\ListeDesChapitres.txt")
        Dim Lecteur As New StreamReader("D:\DVD\ListeDesChapitres.txt")
        Dim Longueur As Integer
        Dim Ligne As String
 
        Do
            Ligne = Lecteur.ReadLine
            If Lecteur.ReadLine = Nothing Then Exit Do
            Longueur = Ligne.Length
            Dim Etiq As New Label
            Etiq.AutoSize = False
            If Longueur <> 0 Then
                Etiq.Name = "Chapitre" & i.ToString
                Etiq.Font = Font
                Etiq.Text = Ligne
                'MsgBox("# " & Ligne & " #")
                Etiq.Width = Longueur
                Etiq.Top = 50 + 20 * i
                Etiq.Left = 100
                Controls.Add(Etiq)
                i += 1
            End If
        Loop 'Until Lecteur.ReadLine = Nothing
        Lecteur.Close()
 
    End Sub

[Jean-Philippe André]

Salut,

la largeur d'un contrôle n'est pas exprimé dans la même unité que le nombre de caractères d'un fichier ou d'une chaîne de caractères. Cela explique tes dimensions ne correspondent pas à ce que tu t'attends.

Ton code n'est pas contre pas du VBA mais du VB.Net, aussi je me questionne sur le bon emplacement de ta demande.

[Pierre-Ernest]

En ce qui concerne VBA au lieu de VB.net je suis entièrement d'accord. Mais ce n'est pas moi qui l'ai déplacé. C'est Escartefique. Je ne savais pas comment lui signaler son erreur puisqu'il était précisé sur le mail de NE PAS REPONDRE ...
Pour ce qui concerne mon problème, je comprend qu'il s'agit d'unités, mais je ne sais toujours pas comment résoudre le pb.
Je ne sais pas non plus s'il faut écrire un intitulé dans le présent message, ou non... J'essaye sans.

[Jean-Philippe André]

Ok,

mon petit doigt me dit qu'en utilisant simplement la propriété (Label.)AutoSize tu trouveras ton bonheur...