Listbox

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 ?

Answer 1

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

Answer 2

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.