//A chaque modification du champs
nPos1 est un entier
nPos2 est un entier
NewValeur est une chaîne
bTrouve est un booléen
SI HLitRecherche(Fichier,Rubrique,MoiMême) ALORS
bTrouve = Vrai
TableAffiche(Table,taCourantPremier)
FIN
nPos1 = 1
nPos2 = MoiMême..Curseur
SI HTrouve(Fichier) ALORS
NewValeur = MoiMême[[ nPos1 A ]]
MoiMême = NewValeur + SansEspace(Fichier.Rubrique[[nPos2 A ]])
MoiMême..Curseur = nPos2
MoiMême..FinCurseur = Taille(MoiMême)+1
FIN
//Touche enfoncé (WM_KEYDOWN) de votre champs
SI _EVE.wParam = 8 ALORS
SI MoiMême..Curseur>1 ALORS
MoiMême = MoiMême[[1 A (MoiMême..Curseur-1)]]
MoiMême..FinCurseur = Taille(MoiMême+1)
MoiMême..Curseur = MoiMême..FinCurseur
ExécuteTraitement(txtRech,trtFinModification)
FIN
FIN
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=12&topic_id=817&post_id=3300