OVH Cloud OVH Cloud

zone de texte

2 réponses
Avatar
maria
Bonjour, est-il possible dans une zone de texte, lorsqu'on=20
clic dedans cette zone pourrait m'apparaitre plus grande=20
(pour que je puisse y entrer plusieurs lignes de texte) et=20
une fois que l'on sort de cette zone elle revient =E0 une=20
taille normale sur le formulaire. C'est qu'=E9crire du texte=20
dans une boite trop petite on ne voit pas bien, donc je la=20
ferait agrandir lors de la saisi et reprendre sa position=20
normale apr=E8s la saisie?

merci beaucoup

2 réponses

Avatar
didierM
Salut, il faut que tu mettes ce style de procédure dans l'évenement sur focus :

Private Sub Text0_GotFocus()
Me.Text0.Width = Me.Text0.Width + 1000
Me.Text0.Height = Me.Text0.Height + 1000
End Sub

et ce type dans l'évenement Perte du focus :

Private Sub Text0_LostFocus()
Me.Text0.Width = Me.Text0.Width - 1000
Me.Text0.Height = Me.Text0.Height - 1000
End Sub

Text0 est ton control text que tu veut faire varié
Width pour la largeur, Height pour la hauteur, la valeur de 1000 et un
exemple, à toi d'adapter à ta convenance.

"maria" wrote:

Bonjour, est-il possible dans une zone de texte, lorsqu'on
clic dedans cette zone pourrait m'apparaitre plus grande
(pour que je puisse y entrer plusieurs lignes de texte) et
une fois que l'on sort de cette zone elle revient à une
taille normale sur le formulaire. C'est qu'écrire du texte
dans une boite trop petite on ne voit pas bien, donc je la
ferait agrandir lors de la saisi et reprendre sa position
normale après la saisie?

merci beaucoup



Avatar
Raymond [mvp]
Bonjour.

Il existe des api pour limiter et étendre les contrôles textes.
voir la page : http://access.vba.free.fr/limittext.htm

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"didierM" a écrit dans le message de
news:
Salut, il faut que tu mettes ce style de procédure dans l'évenement sur
focus :

Private Sub Text0_GotFocus()
Me.Text0.Width = Me.Text0.Width + 1000
Me.Text0.Height = Me.Text0.Height + 1000
End Sub

et ce type dans l'évenement Perte du focus :

Private Sub Text0_LostFocus()
Me.Text0.Width = Me.Text0.Width - 1000
Me.Text0.Height = Me.Text0.Height - 1000
End Sub

Text0 est ton control text que tu veut faire varié
Width pour la largeur, Height pour la hauteur, la valeur de 1000 et un
exemple, à toi d'adapter à ta convenance.

"maria" wrote:

Bonjour, est-il possible dans une zone de texte, lorsqu'on
clic dedans cette zone pourrait m'apparaitre plus grande
(pour que je puisse y entrer plusieurs lignes de texte) et
une fois que l'on sort de cette zone elle revient à une
taille normale sur le formulaire. C'est qu'écrire du texte
dans une boite trop petite on ne voit pas bien, donc je la
ferait agrandir lors de la saisi et reprendre sa position
normale après la saisie?

merci beaucoup