Au fait quand on fait une sélection dans la listbox, cela charge une
URL dans un HTMLViewer. J'ai l'impression que c'est le HTMLViewer qui
créé le bug.
Je vais essayé de vite faire pour demain un exemple, mais c'est très
simple à reproduire. Dans le projet :
-Une listbox, avec 3 sélections par exemple, une sélection qui charge
une URL différente
-Un HTMLViewer pour charger l'url et ensuite naviguer avec les flèches
et le bug est reproduit
Sébastien
Le 29-mai-08 à 20:17, Antoine Crêtaux a écrit :
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
|