OVH Cloud OVH Cloud

N° de ligne avec methode AddItem ???

1 réponse
Avatar
mosquitout
Bonjour,
Je séche sur un petit pb. Je rempli une MshFlexGrid dans une boucle.
Dans cette boucle, je fais un test et en fonction du resultat
j'affiche dans une colonne une image. Pour afficher cette image,
j'utilise la methode Cellpicture. Pour utiliser cette methode, je dois
connaitre le N° de colonne (ça c'est bon) et le N° de ligne = Pb.
Voici mon code :

Do While Not Rst01.EOF
Msh.AddItem Rst01!Id & vbTab & vbTab & Rst01!nom
if Rst01!Enservice = False Then
Msh.Col = 1
Msh.Row = Msh.Rows
Set Msh.CellPicture = LoadPicture(App.Path + "\img.gif")
End If
Rst01.MoveNext
Loop

Msh.Rows correspond bien au bon numero de ligne mais utiliser comme
ça, VB n'aime pas !!! ??? alors la question est comment recuperer et
utiliser le N° de ligne ?
Si quelqu'un a une idée, merci

1 réponse

Avatar
Christophe QUEVAL
Bonjour,

Non, Rows correspond au nombre de lignes et non pas au numéro (ex Rows = 5
pour Row de 0 à 4).

Christophe

"Mosquitout" a écrit dans le message de
news:
Bonjour,
Je séche sur un petit pb. Je rempli une MshFlexGrid dans une boucle.
Dans cette boucle, je fais un test et en fonction du resultat
j'affiche dans une colonne une image. Pour afficher cette image,
j'utilise la methode Cellpicture. Pour utiliser cette methode, je dois
connaitre le N° de colonne (ça c'est bon) et le N° de ligne = Pb.
Voici mon code :

Do While Not Rst01.EOF
Msh.AddItem Rst01!Id & vbTab & vbTab & Rst01!nom
if Rst01!Enservice = False Then
Msh.Col = 1
Msh.Row = Msh.Rows
Set Msh.CellPicture = LoadPicture(App.Path + "img.gif")
End If
Rst01.MoveNext
Loop

Msh.Rows correspond bien au bon numero de ligne mais utiliser comme
ça, VB n'aime pas !!! ??? alors la question est comment recuperer et
utiliser le N° de ligne ?
Si quelqu'un a une idée, merci