pb pour alignées des entrées dans une listbox

Version imprimable

Bonjour.

J'ai trouvé dans la faq un code d' Alexandre Lokchine pour ce problème,
mais je n'arrive pas à le faire fonctionner.
Quelqu'un pourrait il me dire ce qui ne va pas .

je remplie ma liste comme ça:

Code:

1
2
3
4
5
6
7
   For y = 0 To 10000
        If Cmbpremierchoix().Text = r.Offset(a, 1).Value Then
            frmresultat!List1.AddItem r.Offset(a, 0).Value & vbTab & r.Offset(a, 1).Value & vbTab & r.Offset(a, 2).Value & vbTab & r.Offset(a, 3).Value & vbTab & r.Offset(a, 4).Value & vbTab & r.Offset(a, 5).Value & vbTab & r.Offset(a, 6).Value & vbTab & r.Offset(a, 7).Value & vbTab & r.Offset(a, 8).Value
        End If
    a = a + 1
        If r.Offset(a, 1).Value = "" Then Exit For
    Next y

puis je redessine ma liste a l'ouverture de ma from:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Private Sub Form_Paint()
    'ce tableau va contenir les positions des tabulations (ce qui equivaut
    'à la largeur des colonnes
   ReDim TabStop(0 To 7) As Long
 
    'on positionne les tabulations
    TabStop(0) = 10
    TabStop(1) = 50
    TabStop(2) = 105
    TabStop(3) = 200
    TabStop(4) = 100
    TabStop(5) = 100
    TabStop(6) = 100
    TabStop(7) = 100
 
    'on efface puis on réinitialise les tabulations
    Call SendMessage(List1.hwnd, LB_SETTABSTOPS, 0&, ByVal 0&)
    Call SendMessage(List1.hwnd, LB_SETTABSTOPS, 3, TabStop(0))
    List1.Refresh
End Sub

Avec un module comme ca

Code:

1
2
3
4
5
6
 
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
                                    (ByVal hwnd As Long, ByVal wMsg As Long, _
                                    ByVal wParam As Long, lParam As Any) As Long
 
Public Const LB_SETTABSTOPS = &H192

Je pense avoir fait correctement en fonction de l'aide mais ca marche pas .
Si vous pouvez dites moi pourquoi svp.
Merci

22/11/2006, 22h56
ProgElecT

Citation:

pour alignées des entrées dans une listbox

Sa veut dire quoi ?
22/11/2006, 23h17
ThierryAIM

Citation:

Envoyé par ProgElecT

Sa veut dire quoi ?

Ca veut dire aligner des données dans une ListBox sur des tabulateurs !
http://vb.developpez.com/faq/?page=Controles#listcol

>>zx10 : vu ton code, j'ai un doute : VB6 ou VBA ?
c'est quoi r ?
23/11/2006, 17h08
zx10

Bonjour,
C'est du vb6 mon code.
Le r vient de ma feuille excel là ou sont les informations.
Ma listbox se remplie normallement avec toutes mes informations mais ça donne à peu prés ça:

xxx xxxx xxxxx xxxxxxxx xxxx
xxx xxxx xxxx xxxx xxxxxx
xxx ssss ssss sssss ssssss

Et je voudrais que chaque séries soit alignées du genre:

xxx xxxx xxxx xxxxxxxx xxxx
xxx xxxx xxxx xxxx xxxxxxxxx
xxx ssss ssss sssss ssssss

Donc je pensais a utiliser le code d' Alexandre Lokchine pour définir la largeur de chaque colonne.
Ou est ce que je dois me servir d'un autre controle ?
Merci.

Bonjour,

je pense avoir trouver quelque chose.
Par contre quelqu'un peut il me dire ce que j'ai fait lol.
Code:

1 2 3 4 Call SendMessage(List1.hwnd, LB_SETTABSTOPS, 0&, ByVal 0&) Call SendMessage(List1.hwnd, LB_SETTABSTOPS, 3, TabStop(0)) List1.Refresh
remplacer par :
Code:

1 2 3 4 Call SendMessage(List1.hwnd, LB_SETTABSTOPS, 0&, ByVal 0&) Call SendMessage(List1.hwnd, LB_SETTABSTOPS, 1, TabStop(0)) List1.Refresh
j'ai remplacé le 3 par 1 et ca marche , c'est bien mais pouvez vous me dire pourquoi.
Merci
j'attends un peu avant de mettre résolu.
Merci encore.

23/11/2006, 19h30
zx10

:aie:
Désolé mais ca marche pas non plus apres plus verification.
Mon probleme reste entier.
Merci de votre aide.