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
|