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:
puis je redessine ma liste a l'ouverture de ma from:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Avec un module comme ca
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Je pense avoir fait correctement en fonction de l'aide mais ca marche pas .
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Si vous pouvez dites moi pourquoi svp.
Merci
Partager