VB.Net Écrire dans un Textbox qui est actif (focus)
cs_JeffC1977
Messages postés928Date d'inscriptionvendredi 10 novembre 2000StatutMembreDernière intervention23 septembre 2023
-
4 déc. 2007 à 20:56
Utilisateur anonyme -
5 déc. 2007 à 15:03
Salut à tous...
Je cherche et je cherche mais je ne trouve pas...
J'ai 4 textbox et un chekbox.
Je veux que si, par exemple, mon focus est dans mon textbox1 et que je coche mon chekbox alors ca écrit la lettre T à l'intérieur du textbox1.
Si par contre mon curseur est dans le textbox2 alors si j'appuis sur mon chekbox ca va écrire le lettre T dans le textbox2 et ainsi de suite...
Comment faire pour écrire une lettre dans la textbox actif ?????
Si tu coche une checkbox, c'est elle qui aura alors le focus.
Donc, ca ne sera pas possible de cette manière.
Ce qu'il faut faire ; quand une textbox prend le focus, (son événement Enter), il faut que tu mette une variable de type TextBox LeSender, et quand tu agit sur ta checkbox, taVariable.Text "T";
Je sais pas si je suis clair (surment pas je dirais (fin de journée ))
__________
Kenji
Vous n’avez pas trouvé la réponse que vous recherchez ?
cs_JeffC1977
Messages postés928Date d'inscriptionvendredi 10 novembre 2000StatutMembreDernière intervention23 septembre 20234 5 déc. 2007 à 13:20
Ou bien...
C'est possible de créé une procédure/une fonction pour qu'à chaque fois que je change de textbox une variable est modifier et ensuite si je clique sur mon checkbox alors il mets un T là ou le textbox a le focus.
Sauf que j'ai aucune idée de comment coder pour quand chque fois que le cursuer change de textebox alors entre dans cette procédure.
Public Focus as Integer
If textbox1.focus Then
Focus = 1
elseif textbox2.focus Then
Focus = 2
.....
Private
Sub chk_T_CheckStateChanged(
ByVal sender
As System.Object,
ByVal e
As System.EventArgs)
Handles chk_T.CheckStateChanged
If focus = 1 then
textbox1.Text = textbox1.Text &
"T"
textbox1.SelectionStart = textbox1.Text.Length + 1
Private Sub TextBox_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) _
Handles TextBox1.GotFocus, TextBox2.GotFocus, TextBox3.GotFocus, TextBox4.GotFocus
FocusTextBox = CType(sender, TextBox)
End Sub
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
FocusTextBox.Text = "T"
End Sub, ----
(Coloration syntaxique automatique par Kenji)