rhumanuss
Messages postés36Date d'inscriptionsamedi 21 mai 2005StatutMembreDernière intervention 2 novembre 2007
-
15 févr. 2006 à 10:25
Gobillot
Messages postés3140Date d'inscriptionvendredi 14 mai 2004StatutMembreDernière intervention11 mars 2019
-
16 févr. 2006 à 21:28
Bonjours à tous.
Voila, j'ai longtemps parcouru le forum et les différents codes sources, mais je ne trouve pas mon bonheur.
Mon problème est assez (visual) basic.En fait, j'ai une listview, mais je n'arrive pas à
1-sélectionner une ligne entière, il ne sélectionne que la première item.Et quand je met le fullrowselect à true, une erreur apparait, me disant "méthode ou membre de données introuvable".
2-Il me met exactement la mê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
Messages postés3140Date d'inscriptionvendredi 14 mai 2004StatutMembreDernière intervention11 mars 201934 16 févr. 2006 à 19:23
peut être avec les APi's ??
grace à 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
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
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
Messages postés36Date d'inscriptionsamedi 21 mai 2005StatutMembreDernière intervention 2 novembre 2007 16 févr. 2006 à 20:42
J'a bien copié ce que tu avais marqué, 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é qui m'intrigue
> pour mettre: Rep = fLVFullRowSelect(ListView1)
pour enlever: Rep = fResetLVFullRowSelect(ListView1)
Je ne sais pas trop à quoi cela correspond, comme pour les API's dailleurs...jgalèèèèèèèèère lol
En tous cas merci de ton aide, je touche presque au but (presque...)
rhumanuss
Messages postés36Date d'inscriptionsamedi 21 mai 2005StatutMembreDernière intervention 2 novembre 2007 16 févr. 2006 à 21:04
Bonne nouvellee cher Danie!!!
Ca ne marche pas.lol. En fait la msgbox "cest bon" saffiche correctement, mais lorsque je sléectionne un élément de ma listview, je n'est que la première item de sélectionnée....encore et encore.
Sincèrement, je ne vois vraiment pas ce qui cloche.