none
Listbox RRS feed

  • Question

  • Je voudrait afficher dans un listbox :

    sur la gauche : le nom de fichiers,

    sur la droite : la date et l'heure de création.

    comment faire en sachant que l'addition d'espaces ne donne pas de bons résultats compte tenu de la largeur des caractères ?

    mardi 7 novembre 2006 18:09

Réponses

  • par exemple

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

    Dim Repertoire As New IO.DirectoryInfo("d:\temp")

    Dim RepInfo As IO.FileSystemInfo() = Repertoire.GetFileSystemInfos()

    For Each Element As IO.FileSystemInfo In RepInfo

    If TypeOf Element Is IO.FileInfo Then

    Me.ListBox1.Items.Add(CType(Element, IO.FileInfo).Name + vbTab + CType(Element, IO.FileInfo).CreationTime.ToLongDateString)

    End If

    Next Element

    End Sub

    samedi 11 novembre 2006 08:10

Toutes les réponses

  • par exemple

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

    Dim Repertoire As New IO.DirectoryInfo("d:\temp")

    Dim RepInfo As IO.FileSystemInfo() = Repertoire.GetFileSystemInfos()

    For Each Element As IO.FileSystemInfo In RepInfo

    If TypeOf Element Is IO.FileInfo Then

    Me.ListBox1.Items.Add(CType(Element, IO.FileInfo).Name + vbTab + CType(Element, IO.FileInfo).CreationTime.ToLongDateString)

    End If

    Next Element

    End Sub

    samedi 11 novembre 2006 08:10
  • Je propose la solution suivante :

    - mettre une police non proportionnelle sur le listbox : genre courriernew

    - remplir la liste par (par exemple) :

    CType(Element, IO.FileInfo).Name.PadRight(25) & CType(Element, IO.FileInfo).CreationTime.ToLongDateString

    Ce qui donne de meilleurs résultats visuels que d'ajouter une ou plusieurs tabulations.

    jeudi 18 octobre 2007 06:42