Discussion :

[bubu92]

Bonjour a tous,

juste une ListView (MS common controls 6.0) sur une Form.
Faire une Listview pas trop large de maniere a forcer
la création d'une ScrollBar horizontale.
Mettre la Listview en mode "Report".

Dans le Form.Load, j'insere ce ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Form1.ListView1.ColumnHeaders.Add , , "Colonne1"
Form1.ListView1.ColumnHeaders.Add , , "Colonne2"
 
Form1.ListView1.ListItems.Add , , "Texte suffisamment long pour forcer la création d'une scrollbar horizontale"
 
Call SendMessage(Form1.ListView1.hwnd, LVM_SETCOLUMNWIDTH, 0, ByVal LVSCW_AUTOSIZE_USEHEADER)

Puis, dans un bouton, ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Form1.ListView1.top = 0

Puis, dans un module :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Global Const LVM_FIRST As Long = &H1000
Global Const LVM_SETCOLUMNWIDTH As Long = LVM_FIRST + 30
Global Const LVSCW_AUTOSIZE_USEHEADER As Long = -2
 
Declare Function SendMessage Lib _
  "user32" Alias "SendMessageA" _
  (ByVal hwnd As Long, _
  ByVal wMsg As Long, _
  ByVal wParam As Long, _
  lParam As Any) As Long

Au démarrage, la ScrollBar horizontale fonctionne
correctement. Mais si je click sur le bouton pour déplacer
la ListView, la ScrollBar horizontale ne reagit plus.

J'ai essayé de faire ensuite un "Refresh", sans succès...

[bubu92]

Je pense voir résolu le problème en masquant
puis en ré-affichant la ScrollBar :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ShowScrollBar Form1.ListViewHisto.hwnd, SB_HORZ, False
ShowScrollBar Form1.ListViewHisto.hwnd, SB_HORZ, True

Dans un module :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Global Const SB_HORZ As Long = 0
 
Declare Function EnableScrollBar Lib "user32.dll" (ByVal hwnd As Long, _
ByVal wSBflags As Long, ByVal wArrows As Long) As Long