Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Utiliser une list box a pls colonne

1 réponse
Avatar
john.ambou
Bonjour,

Est ce que quelqu'un pourrais me donner un exemple pour utiliser une
list box avec pls colonne c a d par exemple ecrire le nom de chaque
personne dans une colonne et la ville ou il habite dans un autre comme
ceci :

Maxime beauvais
Daniel Cergy
Charles sarcelles


Merci de votre aide

Johnson

1 réponse

Avatar
Picalausa François
Hello,

Le plus simple pour ce faire est d'employer un contrôle ListView (cocher la
référence à Microsoft Windows Common Controls 6.0).
Ensuite, on peut obtenir une telle liste de la sorte:
Private Sub Form_Load()
ListView1.View = lvwReport

ListView1.ColumnHeaders.Add , , "Prénom"
ListView1.ColumnHeaders.Add , , "Nom"

ListView1.ListItems.Add(, , "Maxime").ListSubItems.Add , , "beauvais"
ListView1.ListItems.Add(, , "Daniel").ListSubItems.Add , , "Cergy"
ListView1.ListItems.Add(, , "Charles").ListSubItems.Add , , "sarcelles"
End Sub

Si le contrôle s'apelle ListView1

La gestion de colonnes dans une listbox est moins simple, mais peut être
effectuée:
Option Explicit

Private Declare Function SendMessage _
Lib "user32" _
Alias "SendMessageA" _
( _
ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any _
) _
As Long

Private Const LB_SETTABSTOPS As Long = &H192

Private Sub Form_Load()
Dim Tabs(1) As Long

'Taille de colonnes
Tabs(0) = 40
SendMessage List1.hwnd, LB_SETTABSTOPS, 1, Tabs(0)

List1.AddItem "Maxime" & vbTab & "beauvais"
List1.AddItem "Daniel" & vbTab & "Cergy"
List1.AddItem "Charles" & vbTab & "sarcelles"
End Sub

--
Picalausa François
a écrit dans le message de news:

Bonjour,

Est ce que quelqu'un pourrais me donner un exemple pour utiliser une
list box avec pls colonne c a d par exemple ecrire le nom de chaque
personne dans une colonne et la ville ou il habite dans un autre comme
ceci :

Maxime beauvais
Daniel Cergy
Charles sarcelles


Merci de votre aide

Johnson