navigation listview AbsolutePosition

Question

mes cher(e)s ami(e)s

j'ai un problème avec ma listview, j'arrive pas a me déplacé avec ses enregistrement 

message erreur impossible d'affecter à une propriété en lecture seule


Private Sub cmdDNext_Click()
If Not rs.EOF Then
  rs.MoveNext
 If rs.EOF Then Exit Sub
  txtNumero.Text = rs("Numéro")
  txtNomPatient.Text = rs("Nom")

ListPatients.SelectedItem.Selected(rs.AbsolutePosition) = True 

Dim abspos As Integer
ListPatients.SelectedItem.Selected(rs.FindNext) = True
Debug.Print abspos

  txtDCurent.Text = "Articolul " & rs.AbsolutePosition + 1 & " din " & rs.RecordCount
End If

End Sub

LIBRE_MAX · Answer

Salut,
l' erreur n' a rien avoir avec AbsolutePosition.


ListPatients.ListItems(rs.AbsolutePosition).Selected = ListPatients.ListItems(rs.AbsolutePosition).EnsureVisible

                         	
<hr />
... Y'en a même qui disent qu'ils l'ont vu voler.

LIBRE_MAX · Answer

ListPatients.ListItems(rs.AbsolutePosition).Selected = 
ListPatients.ListItems(rs.AbsolutePosition).EnsureVisible

j' espère que cette fois c' est plus misible

LIBRE_MAX · Answer

Apparement non!
Cet éditeur commence à me fatiguer avec ces retour de lignes
insensé ..

Renfield · Answer

euh... c'est lié à l'HTML... longue phrase sans espace = mot => pas de césure
donc ben, il te colle ca sur deux lignes...

bien qu'il vaille mieux utiliser la propriété Key que l'index de l'Item, tu peux faire comme te le suggère LIBRE_MAX :

With ListPatients.ListItems(rs.AbsolutePosition)
    .Selected = True
    .EnsureVisible 
End With

LIBRE_MAX · Answer

Bonjour Renfield,
non, 
With ListPatients.ListItems(rs.AbsolutePosition) 
    .Selected = True
    .EnsureVisible 
End With
Provoquera la même erreur.
En effet,
-On peut tester sur l' élément selectionné,
If ListPatients.ListItems(rs.AbsolutePosition).Selected=True Then
-Ou on peut récupèrer l' index de l' élément sélectionné,

Mais on peut pas lui affecter la valeur True pour le sélectionner.
D' ou, 
With ListPatients.ListItems(rs.AbsolutePosition) 
    .Selected = .EnsureVisible  
End With

De plus EnsureVisible permet de sélectionner une ligne même si elle n' est pas visible et la fait remonter au bas de la liste.
 
ps: faire attention à AbsolutePosition.
ça sera plutot AbsolutePosition+1
<hr />
... Y'en a même qui disent qu'ils l'ont vu voler.
/PRE>

Renfield · Answer

le AbsolutePosition commence effectivement à 0, alors que la collection d'Items commence à l'index 1.

par contre, je ne suis pas d'accord avec ta démarche concernant le .Selected.

tu ne fais toi même rien d'autre que modifier la valeur de .Selected, lui affectant la valeur renvoyée par EnsureVisible (donc True, si l'opération a fonctionné)

donc pas d'erreur pour nos deux codes, leur résultat est identique...

Navigation listview AbsolutePosition

6 réponses

Votre réponse

Discussions similaires