Listbox vb
Résolu
Xynder59
Messages postés
48
Date d'inscription
lundi 13 octobre 2003
Statut
Membre
Dernière intervention
13 septembre 2007
-
6 mars 2005 à 22:43
cs_amaussa Messages postés 10 Date d'inscription dimanche 6 mars 2005 Statut Membre Dernière intervention 19 novembre 2005 - 13 mars 2005 à 17:52
cs_amaussa Messages postés 10 Date d'inscription dimanche 6 mars 2005 Statut Membre Dernière intervention 19 novembre 2005 - 13 mars 2005 à 17:52
5 réponses
Xynder59
Messages postés
48
Date d'inscription
lundi 13 octobre 2003
Statut
Membre
Dernière intervention
13 septembre 2007
6 mars 2005 à 23:21
6 mars 2005 à 23:21
Xynder 59
tabulation en dehors de ma listbos c a dire ?!
tabulation en dehors de ma listbos c a dire ?!
Gobillot
Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
34
6 mars 2005 à 23:03
6 mars 2005 à 23:03
oui si tu met des tabulations en dehors de la ListBox tu peux avoir une colonne cachée.
Daniel
Daniel
Gobillot
Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
34
6 mars 2005 à 23:29
6 mars 2005 à 23:29
on peut simuler des colonnes dans une ListBox en lui indiquant la position des tabulations, et si la position est plus grande que la taille de la Listbox, la colonne sera présente mais cachée.
Const LB_SETTABSTOPS = &H192
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
Dim Tabstop() As Long
ReDim Tabstop(2)
Tabstop(0) = 0
Tabstop(1) = 30
Tabstop(2) = 60
Call SendMessage(List1.hwnd, LB_SETTABSTOPS, 2, Tabstop(0))
List1.AddItem "AAA" & vbTab & "BBB" & vbTab & "CCC"
Daniel
Const LB_SETTABSTOPS = &H192
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
Dim Tabstop() As Long
ReDim Tabstop(2)
Tabstop(0) = 0
Tabstop(1) = 30
Tabstop(2) = 60
Call SendMessage(List1.hwnd, LB_SETTABSTOPS, 2, Tabstop(0))
List1.AddItem "AAA" & vbTab & "BBB" & vbTab & "CCC"
Daniel
Xynder59
Messages postés
48
Date d'inscription
lundi 13 octobre 2003
Statut
Membre
Dernière intervention
13 septembre 2007
6 mars 2005 à 23:30
6 mars 2005 à 23:30
laisse tombé g trouvé....
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
cs_amaussa
Messages postés
10
Date d'inscription
dimanche 6 mars 2005
Statut
Membre
Dernière intervention
19 novembre 2005
13 mars 2005 à 17:52
13 mars 2005 à 17:52
Si tu as trouve bravo, tu peu faire partager ta solution?
Amaussa
Amaussa
