voir si le curseur est dans un textboxRésolu

Question

Bonjour ,
Est-il possible de savoir si le curseur ce trouve dans un text box ou pas ??

Merci

ps: j'ai déja recherché sur : curseur dans un text box ou textbox active ou textbox enabled
j' ai pas trouvé

Merci

jmf0 · Accepted Answer

1) La chose ne s'appelle pas "curseur", mais "caret" ! (la terminologie est importante)
2) il est possible que tu aies à t'intéresser (selon ce que tu fais et cherches, que l'on ignore encore...) à :
- l'évènement GotFocus
- la propriété ActiveControl 
Et si tu nous expliquais, plutôt, ce que tu cherches à faire et ton problème (en détails clairs) ?

jmf0 · Answer

Bonjour,

Explique... car pour moi, le curseur n'est jamais "dans" quoi que ce soit, mais "sur" (et sur l'écran) !

petiflamand · Answer

Bonjour jmf0

ce que je veux dire , ces quand tu click dans un textbox tu a le curseur a l'interieur qui clignotte et attend que tu tape sur le clavier

je ne parle pas du curseur de la souris .

jmf0 · Answer

Ah (méfiance...)

Et précise-nous (tu ne l'as pas fait !)  s'il s'agit d'une textbox de ton appli ou d'une appli externe (car ce n'est plus du tout pareil)

petiflamand · Answer

Re,
en clair(enfin jespere )
j' ai 42 textbox a remplir avec des nombres
dans ces 42 textbox il y en a qui seront vide
donc il ce remplice avec 0,00
quand la personne clic dessus et que le caret est dans le textbox il ne doit pas la remplir 
donc j' ai un timer toute les 5 secondes qui vérifie les donnée et qui fait le calcul en même temps, mais les textbox ne peuvent pas etre vide
Donc je fait

If Text2.Text "" Then Text2.Text "0,00"
If Text3.Text "" Then Text3.Text "0,00"
If Text4.Text "" Then Text4.Text "0,00"
If Text5.Text "" Then Text5.Text "0,00"
If Text6 GotFocus Then If Text6.Text "" Then Text6.Text = "0,00"

Mais pour le 6 il faudrais text6 = not gotfocus
mais sa ne marche pas
je sait pas si ces clairs ??

jmf0 · Answer

Je t'ai alors répondu, il me semble ...
Si ta textbox tex6 a le focus, elle est le contrôle actif ...
Bonne chance (j'en ai, je pense, assez dit avec çà !)

petiflamand · Answer

re, 
D'accord avec toi , mais ça ne marche pas
même avec gotfocus

jmf0 · Answer

Tu vas commencer à te réveiller, oui ?
Relis-moi (voir plus haut) et sers-toi de ActiveControl !
C'est un objet et il a des propriétés, parmi lesquelles la propriété Name ...
Ouvre ton aide en ligne sur ce mot et reviens avec du sensé (si tu as une difficulté et en nous montrant ce que tu as écrit après t'être renseigné sur ce qu'est ActiveControl).
Il y a un minimum à tout ...
Au boulot !

cboulas · Answer

Salut,

Et le focus, ça sert à quoi....

Chris...
- La vérité n'est pas ailleurs, elle est sous le nez de chacun, quelques mouvements neuronale permettent de l'entrevoir -
MCPD (webform-winform) / MCSA / MCDST / MCT

jmf0 · Answer

Bonjour, choulas,
Il pourrait s'en servir, avec une variable booléenne générale mise à True au GotFocus et à False au LostFocus, mais c'est inutilement lourd .... l'utilisation simple de la proprité Name de l'objet ActiveContrôle l'affranchit à l'aise d'une telle lourdeur .
Encore faut-il qu'il s'intéresse un peu à ce qu'est cet objet

petiflamand · Answer

Re,

Merci , cela fonctionne maintenent
je fait comme ceci
If ActiveControl.Name <> "Text6" Then If Text6.Text "" Then Text6.Text "0,00"

jmf0 · Answer

Enfin !....
Tu t'es enfin réveillé, je vois

jmf0 · Answer

et ton 1ème Then If est tout simplement un And

petiflamand · Answer

Re jmf0,
J' ai encore une petite question si tu veu bien
comme j'en ai 42 de textbox je ne sait pas faire quelque chose du genre 

For i = 1 To 42
If ActiveControl.Name text(i) And Text(i) "" Then Text(i).Text = "0,00"
Next i

pour le moment j' ai fait 42 lignes
Mais si je peu racourcir porquoi pas

jmf0 · Answer

Deux seules réponses : (et tu vas fouiller dans ton aide en ligne, cette fois-ci, hein ...)

- réponse intelligente : création d'un GROUPE DE CONTROLES INDEXES (et tu pourras alors de référer à leur index, comme tu le fais....
- réponse moins intelligente (beaucoup moins) : Controls("toto" & n) se réfère au contrôle nommé toto12 si n = 12

Prends maintenant ta tête entre tes mains et bosse à nouveau .... (fastoche)

Voir si le curseur est dans un textbox

15 réponses

Votre réponse

Discussions similaires