fullrowselect et grilines===help

Question

Bonjours &#224; tous.
Voila, j'ai longtemps parcouru le forum et les diff&#233;rents codes sources, mais je ne trouve pas mon bonheur.
Mon probl&#232;me est assez (visual) basic.En fait, j'ai une listview, mais je n'arrive pas &#224;
1-s&#233;lectionner une ligne enti&#232;re, il ne s&#233;lectionne que la premi&#232;re item.Et quand je met le fullrowselect &#224; true, une erreur apparait, me disant "m&#233;thode ou membre de donn&#233;es introuvable".
2-Il me met exactement la m&#234;me erreur pour le listview.gridLines = true

J'ai beau chercher, je ne trouve pas.Si qqun pouvait me filer un coup de pouce...merci

Gobillot · Answer

t'as pas la bonne version

Microsoft Windows Common Controls 6.0  (au moins SP4)

Daniel

rhumanuss · Answer

Et comment puis je faire pour avoir la bonne??

rhumanuss · Answer

Je viens regarder, elle est s&#233;lectionn&#233;e. c'est la sp6.
J'avoue que je ne comprend pas tout...

Gobillot · Answer

et &#231;a appara&#238;t dans les propri&#233;t&#233;s ?

sinon v&#233;rifie la version MSCOMCTL.OCX

ou t&#233;l&#233;charge

Daniel

rhumanuss · Answer

et bien oui, elel est s&#233;lectionn&#233;e et elle appara&#238;t.lol.

Gobillot · Answer

ben alors &#231;a doit marcher

dans Form_Load

   ListView1.FullRowSelect = True

   ListView1.GridLines = True


j'ai essay&#233; dans tous les sens, avec tous les param&#232;tres possibles

impossible de provoquer une erreur 

bizarre !


Daniel

rhumanuss · Answer

ba oui, c'est bisard.Mon code est:

With ListView_SupprPiece_Affichage
        .View = view.Details
        .FullRowSelect = True
        '.LabelEdit = True
        .GridLines = True
        .HideColumnHeaders = False
        .ColumnHeaders.Add , , "N&#176; Pi&#232;ce"
        .ColumnHeaders.Add , , "Nom Fournisseur"
        .ColumnHeaders.Add , , "R&#233;f&#233;rence"
        .ColumnHeaders.Add , , "Type de la pi&#232;ce" '
        .ColumnHeaders.Add , , "Caract&#233;ristiques"
        .ColumnHeaders.Add , , "Type de mat&#233;riaux"
        .ColumnHeaders.Add , , "Coefficient"
        .ColumnHeaders.Add , , "Hauteur"
        .ColumnHeaders.Add , , "Profondeur"
        .ColumnHeaders.Add , , "Largeur"
        .ColumnHeaders.Add , , "Prix HT"
        .ColumnHeaders.Add , , "Prix TTC"
        .ColumnHeaders.Add , , "Date d'ajout"
End With

c'est peut etre un probl&#232;me au niveau du view.Details.....jen e sais pas trop

rhumanuss · Answer

J&#233; t&#233;l&#233;charg&#233; un autre  MSCOMCTL.OCX, mais ca ne marche toujours pas....


a la place de .view = view.details, j'avais mis lvwReport, mais rien y fait....

Gobillot · Answer

&#231;a a l'air bon sauf view.Details que je sais pas ce que c'est.View lvwReport ou .View 3  c'est mieux

mais m&#234;me sans ou avec autre chose &#231;a provoque m&#234;me pas d'erreur





Daniel

rhumanuss · Answer

Et bien le monde est encore rempli de nombreux mist&#232;res.....
Merci qd m&#234;me.Si un flash te survien, tu m'fait signe.
ciao

Gobillot · Answer

peut &#234;tre avec les APi's ??

grace &#224; 2 fonctions:

pour mettre:     Rep =  fLVFullRowSelect(ListView1)


pour enlever:    Rep = fResetLVFullRowSelect(ListView1)



Private Const LVM_FIRST As Long = &H1000
Private Const LVM_SETEXTENDEDLISTVIEWSTYLE As Long = LVM_FIRST + 54
Private Const LVM_GETEXTENDEDLISTVIEWSTYLE As Long = LVM_FIRST + 55
Private Const LVS_EX_FULLROWSELECT As Long = &H20

Private Declare Function apiSendMessageLong Lib "user32" _
   Alias "SendMessageA" _
   (ByVal hwnd As Long, _
   ByVal Msg As Long, _
   ByVal wParam As Long, _
   ByVal lParam As Long) _
   As Long

Private Function fLVFullRowSelect(LV As Control) As Boolean
      Dim lngStyle As Long

   lngStyle  = apiSendMessageLong(LV.hwnd, LM_GETEXTENDEDLISTVIEWSTYLE, 0&, 0&)
                                       
   If lngStyle And LVS_EX_FULLROWSELECT Then
      fLVFullRowSelect =  True
   Else      fLVFullRowSelect (apiSendMessageLong(LV.hwnd, LVM_SETEXTENDEDLISTVIEWSTYLE, LVS_EX_FULLROWSELECT, True) 0)
   End If
End Function

Private Function fResetLVFullRowSelect(LV As Control) As Boolean
      Dim lngStyle As Long

   lngStyle  = apiSendMessageLong(LV.hwnd, LVM_GETEXTENDEDLISTVIEWSTYLE, 0&, 0&)

   If lngStyle And LVS_EX_FULLROWSELECT Then      fResetLVFullRowSelect Not (apiSendMessageLong(LV.hwnd, LVM_SETEXTENDEDLISTVIEWSTYLE, LVS_EX_FULLROWSELECT, 0) 0)
   Else
      fResetLVFullRowSelect = True
   End If
End Function

rhumanuss · Answer

J'a bien copi&#233; ce que tu avais marqu&#233;, mais je ne sais pas trop comment ca marche.
En tous cas, il ne me marque pas d'erreur, mais je ne dois pas savoir comment ca fonctionne.
c'est ce que tu as marqu&#233; qui m'intrigue
> pour mettre:     Rep = fLVFullRowSelect(ListView1)
        pour enlever:    Rep = fResetLVFullRowSelect(ListView1)
Je ne sais pas trop &#224; quoi cela correspond, comme pour les API's dailleurs...jgal&#232;&#232;&#232;&#232;&#232;&#232;&#232;&#232;&#232;re lol
En tous cas merci de ton aide, je touche presque au but (presque...)

Gobillot · Answer

c'est pour lancer la fonction

&#231;a envoit un SendMessage &#224; la ListView pour ajouter le style LVS_EX_FULLROWSELECT

mais s'il y est d&#233;j&#224; &#231;a ne fait rien





Dim Rep As Long

Rep = fLVFullRowSelect(ListView1)

if Rep Then MsgBox "c'est bon"



ou directement:

If fLVFullRowSelect(ListView1) Then MsgBox "C'est bon"





Daniel

rhumanuss · Answer

Bonne nouvellee cher Danie!!!
Ca ne marche pas.lol. En fait la msgbox "cest bon" saffiche correctement, mais lorsque je sl&#233;ectionne un &#233;l&#233;ment de ma listview, je n'est que la premi&#232;re item de s&#233;lectionn&#233;e....encore et encore.
Sinc&#232;rement, je ne vois vraiment pas ce qui cloche.

Gobillot · Answer

il l'a pas fait le SendMessage ... je parie

parce que tu l'as d&#233;j&#224; !!

r&#233;installer Vb ... &#224; tes riques et p&#233;rils 


Daniel

Fullrowselect et grilines===>help

15 réponses