Vous n'avez pas le choix: il faut intercepter la touche Tab (en
général, ce qui n'est pas standard à un élément est à coder soi-même).
Dans l'événement "CellKeyDown" (un exemple):
dim x As integer 'Colonne
dim y As integer 'Ligne
if asc(key)=9 then
y=row
x=column
x=x+1 'Prochaine colonne
if x=me.ColumnCount then 'Si on dépasse la dernière colonne...
x=0 'on recommence à la première...
y=y+1 '...on va à la ligne suivante...
if y=me.ListCount then '...et, si on dépasse la dernière ligne...
y=0 '...on revient au début
end if
end if
me.EditCell y,x 'On entre en mode d'édition...
me.ActiveCell.SelStart=0 '...et on sélectionne...
me.ActiveCell.SelLength=len(me.ActiveCell.Text) '...tout le
texte de la cellule.
end if
return true 'De plus, on empêche la touche tabulation de déplacer
aussi le "focus" au prochain élément.
Le 26 juil. 06 à 00:28 Matin, Alain Legarcon a écrit:
Bonjour,
Quelqu'un peut-il me dire comment je peux ,dans un listbox, me
déplacer d'une cellule éditable à une autre avec la touche
"tabulation". (J'aimerais éviter d'avoir à gérer les frappes
clavier et détecter la touche Tab)
Pour l'instant cela me fait passer au contrôle suivant (ce qui doit
être le fonctionnement "normal")
|