Peut tu nous filer un projet avec le probleme.
J'utilise pas mal les fleches pour naviger dans les listes et je n'ai
jamais rencontré ce probleme. Est ce que tu as du code qui s'éxecute
quand tu changes de sélection ? Dans ce cas que se passe t
Le 29 mai 08 à 18:07, Sébastien Debiève a écrit :
Merci pour votre aide. J'ai adapté le code, mais le problème est
toujours là :-(
Il continue a en sélectionner 2.
Sébastien
Le 29-mai-08 à 16:41, Thierry NAUZE a écrit :
Le 29 mai 08 à 18:15, Sébastien Debiève a écrit :
Cher moi, cela fait toujours 2 sélections quand je navigue dans ma
listbox à l'aide des touches du clavier. :-(
Sébastien
Le 29-mai-08 à 16:06, Antoine Crêtaux a écrit :
Il vous suffit de vous placez dans l'event keydown de la listr
et de faire un simple
me.ListIndex=-1
Perso, dans l'évènement KeyDown, j'utilise ce code (à adapter, bien
évidemment) :
dim id as string
if me.ListIndex >=0 then
if asc(key)=31 then ' Flèche bas
if me.listindex<me.listCount-1 then
' Lecture d'une valeur dans la nouvelle ligne
' A noter l'utilisation de me.listindex+1 et non de
me.listindex
id=me.cell(me.listindex+1,1)
' ACTION dans le cas présent
if val(id)>0 and pIndex<>id then
activeLePersonnage(id)
' Après l'action, je repasse le focus à la liste, pour
réactiver les flèches.
me.SetFocus
end
else
beep
end
' Dans l'autre sens.
elseif asc(key)=30 then ' Flèche haut
if me.ListIndex >0 then
id=me.cell(me.listindex-1,1)
if val(id)>0 and pIndex<>id then
activeLePersonnage(id)
me.SetFocus
end
else
beep
end
end
end
Cordialement,
--
Thierry NAUZE
Saint-Denis de la Réunion
Cordialement
Antoine Crêtaux
antoine at cretaux dot fr
|