ScrollBar dans un listview & probleme dimension champs

Question

Bonjour a tous,

Je cherche comment faire en sort que ma scrollbar vertical de ma listview soit toujour visible.

autre probleme, m'a premier  ligne me donne ex: al.... normalement sa aurai du etre allo

j'ai fais me.scalemode = 3 dans mon form mais sa donne rien

merci
pour vos reponse

DraaFil

Gobillot · Answer

al... &#231;a vient de la colonne qui est trop petite.









Private Const SB_HORZ = 0

Private Const SB_VERT = 1

Private Const SB_BOTH = 3



Private Declare Function ShowScrollBar Lib "user32" (ByVal hwnd As Long, ByVal wBar As Long, ByVal bShow As Long) As Long



Private Sub Form_Load()

 - - - - - - - - - - 

 Me.Show

'example by Matthew Gates (Puff0rz@hotmail.com)

 ShowScrollBar ListView1.hwnd, SB_VERT, True

End Sub

Daniel

Gobillot · Answer

la taille de la colonne d&#233;pend du Scalemode de la Forme.









tu peux la mettre:

- dans les propri&#233;t&#233;s de la ListView

- dans le code en implicite

   ListView1.ColumnHeaders.Add , , "NOM"

- dans le code en explicite:

  ListView1.ColumnHeaders.Add , , "NOM", 100





je me suis demand&#233;, pourquoi on n'avait pas des dimensions exactes:

100 pixels --> 100,0064 

r&#233;ponse:

MsgBox ScaleX(ListView1.ColumnHeaders(1).Width, vbPixels, vbHimetric)

100,0064 -->  2646 (unit&#233; m&#233;trique valeur enti&#232;re)

Daniel

DraaFil · Answer

daniel, pourrais-tu m'expliquer ton code, car j'ai fait un copier ,coller dans mon form et sa change rien.

Merci

Gobillot · Answer

tu veux dire pour la ScrollBar ?

c'est parce que j'ai fait tous les ajouts avant

sinon je crois bien qu'il faut le refaire apr&#232;s chaque s&#233;rie d'ajouts

le nbLignes c'est le nombre de Lignes apparents (a d&#233;terminer)

pas obligatoire mais inutile parce la vrai ScrollBar va appara&#238;tre normalement.

tient c'est pas la m&#234;me ScrollBar !!!





 Private Sub Form_Load()
    ListView1.ColumnHeaders.Add , , "NOM", 100


    ListView1.ColumnHeaders.Add , , "PRENOM", 100





    ListView1.ListItems.Add , , "blablabla4"


    ListView1.ListItems.Add , , "blablabla2"


    ListView1.ListItems.Add , , "blablabla3"


    ListView1.ListItems.Add , , "blablabla4"

'   etc ...




' &#224; mettre &#224; la fin  

    Me.Show

' &#224; voir si n&#233;cessaire de mettre un DoEvents

    DoEvents

     ShowScrollBar ListView1.hwnd, SB_VERT, True

 End Sub


Private Sub CmdAjout_Click()
    ListView1.ListItems.Add , , "xxxxx1"

    ListView1.ListItems.Add , , "xxxxx2"


    ListView1.ListItems.Add , , "xxxxx3"

'   etc ...



    If ListView1.ListItems.Count < nbLignes Then
        DoEvents

        ShowScrollBar ListView1.hwnd, SB_VERT, True

        End If

End Sub


Daniel

Gobillot · Answer

s'il y a pas assez de Lignes, tu peux peut &#234;tre en rajouter
suffisamment pour faire appara&#238;tre la vrai ScrollBar, soit des espaces,
soit chr$(160)

    ListView1.ListItems.Add , , " "

    ou

    ListView1.ListItems.Add , , Chr$(160)



le probl&#232;me c'est que si la ListView est tri&#233;e, elles vont se placer en haut ( donc pas bon)

et s'il y a des ajouts &#224; faire, il faudra g&#233;rer les fausses lignes (pas si facile)

Daniel

ScrollBar dans un listview & probleme dimension champs

5 réponses

Discussions similaires