Qui avait le Focus

[XanorK]

Bonjour à tous,

Voici ma derniere question de l'année :
J'ai un USF avec une 12aine de Textbox et Combobox et un seul bouton.
J'ai besoin que la sub lancée par le bouton "sache" où était le focus juste avant que le bouton soit Actionné (soit par un Clic, sa Propriété defaut sur True, ou par son accelerator).

Ou autrement dit, quel controle AVAIT le focus avant le bouton ?


Merci de votre aide et bon reveillon si on ne se revoit pas sur ce forum d'ici la 😉



XanorK

 

[Pierrot93]

Re : Qui avait le Focus

Bonsoir Xanork

petit idée au passage, peut être utiliser la propriété "Tag", la valorisant lors d'un click sur un controle, et boucle sur les autres controles pour tester sur quel controle cette propriété était non vide...

bonne soirée
@+

 

[myDearFriend!]

Re : Qui avait le Focus

Bonsoir XanorK, Pierrot93, le Forum,

Si tu attribues une valeur False à la propriété TakeFocusOnClick de ton CommandButton, ton TextBox ou ComboBox en cours ne perdra plus le focus par appui sur le dit bouton.
Si tu souhaites quand même connaître le contrôle qui a le focus au moment de cliquer sur le bouton, tu peux l'obtenir comme ça :

[SIZE=2]    MsgBox ActiveControl.Name[/SIZE]

Cordialement,

Meilleurs Voeux à toutes et tous.

 

[Pierrot93]

Re : Qui avait le Focus

Re Xanork, Bonjour Didier

bien joué Didier, comme d'habitude..... bon réveillon à tous

@+

 

[XanorK]

Re : Qui avait le Focus

Bonjour Pierrot93, myDearFriend, le Forum,


TakeFocusOnClick n'est pas totalement satisfaisant car, comme son nom l'indique, cela ne fonctionne qu'avec le clic. Pas avec l'accelerator ou la propriété Défault du bouton.

Je m'en suis sorti avec les Tag mais cela été la misere car, d'apres l'explorateur d'objet, findcontrol ne fonctionne qu'avec les commandbars (pas les controls)
il y'a donc fallut que j'ecrive une fonction spécifique :

Function TrouveRepere()
    If TextBox1.Tag = "Repere" Then FocusPrecedent = 0
    If TextBox2.Tag = "Repere" Then FocusPrecedent = 1
    If Tex....

En tout cas, merci a tous les deux et bon reveillon a tous !



XanorK