bonjour,
le truc pour conna=EEtre la largeur r=E9elle d'un caract=E8re ou=20
d'un texte, dans une police donn=E9e, pour une taille=20
donn=E9e, etc ... ???
Merci
"lionel" a écrit dans le message de news:07ae01c3dea4$6a79b5f0$
bonjour, le truc pour connaître la largeur réelle d'un caractère ou d'un texte, dans une police donnée, pour une taille donnée, etc ... ??? Merci
lionel
bonjour, merci, en effet ca marche: il s'agit d'un controle utilisateur, donc UserControl.TextWidth ... marche. Mais une chose que je ne comprends pas: si il y a plusieurs TextBox dans le controle, chacun avec sa police, sa taille, .... il n'y a pas de TextWidth rattaché au TextBox ...
-----Message d'origine----- Bonjour/soir,
Tu peux essayer Largeur = Form.TextWidth("MonTexte") Hauteur= Form.TextHeight("MonTexte")
bonjour, le truc pour connaître la largeur réelle d'un
caractère ou
d'un texte, dans une police donnée, pour une taille donnée, etc ... ??? Merci
.
bonjour, merci,
en effet ca marche: il s'agit d'un controle utilisateur,
donc UserControl.TextWidth ... marche.
Mais une chose que je ne comprends pas: si il y a
plusieurs TextBox dans le controle, chacun avec sa
police, sa taille, .... il n'y a pas de TextWidth
rattaché au TextBox ...
-----Message d'origine-----
Bonjour/soir,
Tu peux essayer
Largeur = Form.TextWidth("MonTexte")
Hauteur= Form.TextHeight("MonTexte")
bonjour, merci, en effet ca marche: il s'agit d'un controle utilisateur, donc UserControl.TextWidth ... marche. Mais une chose que je ne comprends pas: si il y a plusieurs TextBox dans le controle, chacun avec sa police, sa taille, .... il n'y a pas de TextWidth rattaché au TextBox ...
-----Message d'origine----- Bonjour/soir,
Tu peux essayer Largeur = Form.TextWidth("MonTexte") Hauteur= Form.TextHeight("MonTexte")
bonjour, le truc pour connaître la largeur réelle d'un
caractère ou
d'un texte, dans une police donnée, pour une taille donnée, etc ... ??? Merci
.
ng
En effet, il faudra, par exemple faire ceci :
Dim fontTemp as StdFont, x as long, y as long
Set fontTemp = USerControl.Font Set UserControl.Font = Text1.Font x = Usercontrol.FontWidth(Text1.Text) 'par exemple y = Usercontrol.FontHeight(Text1.Text) 'par exemple Set Usercontrol.Font=fontTemp Set fontTemp=Nothing
On pourrait alors créer une fonction faisant cela et rétournant les valeurs par des paramètres ByRef ou par un type POINTAPI.
-- Nicolas.
Les outils indispensables :
FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
Merci de répondre sur le groupe pour en faire profiter tout le monde. "lionel" a écrit dans le message de news: 0eba01c3df29$640a0fa0$ bonjour, merci, en effet ca marche: il s'agit d'un controle utilisateur, donc UserControl.TextWidth ... marche. Mais une chose que je ne comprends pas: si il y a plusieurs TextBox dans le controle, chacun avec sa police, sa taille, .... il n'y a pas de TextWidth rattaché au TextBox ...
-----Message d'origine----- Bonjour/soir,
Tu peux essayer Largeur = Form.TextWidth("MonTexte") Hauteur= Form.TextHeight("MonTexte")
bonjour, le truc pour connaître la largeur réelle d'un
caractère ou
d'un texte, dans une police donnée, pour une taille donnée, etc ... ??? Merci
.
En effet, il faudra, par exemple faire ceci :
Dim fontTemp as StdFont, x as long, y as long
Set fontTemp = USerControl.Font
Set UserControl.Font = Text1.Font
x = Usercontrol.FontWidth(Text1.Text) 'par exemple
y = Usercontrol.FontHeight(Text1.Text) 'par exemple
Set Usercontrol.Font=fontTemp
Set fontTemp=Nothing
On pourrait alors créer une fonction faisant cela et rétournant les valeurs
par des paramètres ByRef ou par un type POINTAPI.
--
Nicolas.
Les outils indispensables :
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
Merci de répondre sur le groupe pour en faire profiter tout le monde.
"lionel" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 0eba01c3df29$640a0fa0$a401280a@phx.gbl...
bonjour, merci,
en effet ca marche: il s'agit d'un controle utilisateur,
donc UserControl.TextWidth ... marche.
Mais une chose que je ne comprends pas: si il y a
plusieurs TextBox dans le controle, chacun avec sa
police, sa taille, .... il n'y a pas de TextWidth
rattaché au TextBox ...
-----Message d'origine-----
Bonjour/soir,
Tu peux essayer
Largeur = Form.TextWidth("MonTexte")
Hauteur= Form.TextHeight("MonTexte")
Set fontTemp = USerControl.Font Set UserControl.Font = Text1.Font x = Usercontrol.FontWidth(Text1.Text) 'par exemple y = Usercontrol.FontHeight(Text1.Text) 'par exemple Set Usercontrol.Font=fontTemp Set fontTemp=Nothing
On pourrait alors créer une fonction faisant cela et rétournant les valeurs par des paramètres ByRef ou par un type POINTAPI.
-- Nicolas.
Les outils indispensables :
FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
Merci de répondre sur le groupe pour en faire profiter tout le monde. "lionel" a écrit dans le message de news: 0eba01c3df29$640a0fa0$ bonjour, merci, en effet ca marche: il s'agit d'un controle utilisateur, donc UserControl.TextWidth ... marche. Mais une chose que je ne comprends pas: si il y a plusieurs TextBox dans le controle, chacun avec sa police, sa taille, .... il n'y a pas de TextWidth rattaché au TextBox ...
-----Message d'origine----- Bonjour/soir,
Tu peux essayer Largeur = Form.TextWidth("MonTexte") Hauteur= Form.TextHeight("MonTexte")
bonjour, le truc pour connaître la largeur réelle d'un
caractère ou
d'un texte, dans une police donnée, pour une taille donnée, etc ... ??? Merci
.
lionel
ok compris, merci ...
-----Message d'origine----- En effet, il faudra, par exemple faire ceci :
Dim fontTemp as StdFont, x as long, y as long
Set fontTemp = USerControl.Font Set UserControl.Font = Text1.Font x = Usercontrol.FontWidth(Text1.Text) 'par exemple y = Usercontrol.FontHeight(Text1.Text) 'par exemple Set Usercontrol.Font=fontTemp Set fontTemp=Nothing
On pourrait alors créer une fonction faisant cela et
rétournant les valeurs
par des paramètres ByRef ou par un type POINTAPI.
-- Nicolas.
Les outils indispensables :
FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
Merci de répondre sur le groupe pour en faire profiter
tout le monde.
"lionel" a écrit
dans le message de
news: 0eba01c3df29$640a0fa0$ bonjour, merci, en effet ca marche: il s'agit d'un controle utilisateur, donc UserControl.TextWidth ... marche. Mais une chose que je ne comprends pas: si il y a plusieurs TextBox dans le controle, chacun avec sa police, sa taille, .... il n'y a pas de TextWidth rattaché au TextBox ...
-----Message d'origine----- Bonjour/soir,
Tu peux essayer Largeur = Form.TextWidth("MonTexte") Hauteur= Form.TextHeight("MonTexte")
bonjour, le truc pour connaître la largeur réelle d'un
caractère ou
d'un texte, dans une police donnée, pour une taille donnée, etc ... ??? Merci
.
.
ok compris, merci ...
-----Message d'origine-----
En effet, il faudra, par exemple faire ceci :
Dim fontTemp as StdFont, x as long, y as long
Set fontTemp = USerControl.Font
Set UserControl.Font = Text1.Font
x = Usercontrol.FontWidth(Text1.Text) 'par exemple
y = Usercontrol.FontHeight(Text1.Text) 'par exemple
Set Usercontrol.Font=fontTemp
Set fontTemp=Nothing
On pourrait alors créer une fonction faisant cela et
rétournant les valeurs
par des paramètres ByRef ou par un type POINTAPI.
--
Nicolas.
Les outils indispensables :
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
Merci de répondre sur le groupe pour en faire profiter
tout le monde.
"lionel" <anonymous@discussions.microsoft.com> a écrit
dans le message de
news: 0eba01c3df29$640a0fa0$a401280a@phx.gbl...
bonjour, merci,
en effet ca marche: il s'agit d'un controle utilisateur,
donc UserControl.TextWidth ... marche.
Mais une chose que je ne comprends pas: si il y a
plusieurs TextBox dans le controle, chacun avec sa
police, sa taille, .... il n'y a pas de TextWidth
rattaché au TextBox ...
-----Message d'origine-----
Bonjour/soir,
Tu peux essayer
Largeur = Form.TextWidth("MonTexte")
Hauteur= Form.TextHeight("MonTexte")
-----Message d'origine----- En effet, il faudra, par exemple faire ceci :
Dim fontTemp as StdFont, x as long, y as long
Set fontTemp = USerControl.Font Set UserControl.Font = Text1.Font x = Usercontrol.FontWidth(Text1.Text) 'par exemple y = Usercontrol.FontHeight(Text1.Text) 'par exemple Set Usercontrol.Font=fontTemp Set fontTemp=Nothing
On pourrait alors créer une fonction faisant cela et
rétournant les valeurs
par des paramètres ByRef ou par un type POINTAPI.
-- Nicolas.
Les outils indispensables :
FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
Merci de répondre sur le groupe pour en faire profiter
tout le monde.
"lionel" a écrit
dans le message de
news: 0eba01c3df29$640a0fa0$ bonjour, merci, en effet ca marche: il s'agit d'un controle utilisateur, donc UserControl.TextWidth ... marche. Mais une chose que je ne comprends pas: si il y a plusieurs TextBox dans le controle, chacun avec sa police, sa taille, .... il n'y a pas de TextWidth rattaché au TextBox ...
-----Message d'origine----- Bonjour/soir,
Tu peux essayer Largeur = Form.TextWidth("MonTexte") Hauteur= Form.TextHeight("MonTexte")
bonjour, le truc pour connaître la largeur réelle d'un
caractère ou
d'un texte, dans une police donnée, pour une taille donnée, etc ... ??? Merci
.
.
Driss HANIB
tu peux mettre en invisible un controle picture et tu mets avant de chercher txtwidth pricture.font = MaPolice picture.fontsize=mataille..
et tu auras picture.textwidth(montexte)
et si tu en as beaucoup l'usage, tu te 'bricole une petite focntion du type :
Function TailleTexte(Police a string, TaillePolice as single, Texte) as long
Driss "lionel" a écrit dans le message de news:0a8d01c3df66$944d0680$ ok compris, merci ...
-----Message d'origine----- En effet, il faudra, par exemple faire ceci :
Dim fontTemp as StdFont, x as long, y as long
Set fontTemp = USerControl.Font Set UserControl.Font = Text1.Font x = Usercontrol.FontWidth(Text1.Text) 'par exemple y = Usercontrol.FontHeight(Text1.Text) 'par exemple Set Usercontrol.Font=fontTemp Set fontTemp=Nothing
On pourrait alors créer une fonction faisant cela et
rétournant les valeurs
par des paramètres ByRef ou par un type POINTAPI.
-- Nicolas.
Les outils indispensables :
FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
Merci de répondre sur le groupe pour en faire profiter
tout le monde.
"lionel" a écrit
dans le message de
news: 0eba01c3df29$640a0fa0$ bonjour, merci, en effet ca marche: il s'agit d'un controle utilisateur, donc UserControl.TextWidth ... marche. Mais une chose que je ne comprends pas: si il y a plusieurs TextBox dans le controle, chacun avec sa police, sa taille, .... il n'y a pas de TextWidth rattaché au TextBox ...
-----Message d'origine----- Bonjour/soir,
Tu peux essayer Largeur = Form.TextWidth("MonTexte") Hauteur= Form.TextHeight("MonTexte")
bonjour, le truc pour connaître la largeur réelle d'un
caractère ou
d'un texte, dans une police donnée, pour une taille donnée, etc ... ??? Merci
.
.
tu peux mettre en invisible un controle picture et tu mets avant de chercher
txtwidth pricture.font = MaPolice
picture.fontsize=mataille..
et tu auras picture.textwidth(montexte)
et si tu en as beaucoup l'usage, tu te 'bricole une petite focntion du type
:
Function TailleTexte(Police a string, TaillePolice as single, Texte) as long
Driss
"lionel" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:0a8d01c3df66$944d0680$a101280a@phx.gbl...
ok compris, merci ...
-----Message d'origine-----
En effet, il faudra, par exemple faire ceci :
Dim fontTemp as StdFont, x as long, y as long
Set fontTemp = USerControl.Font
Set UserControl.Font = Text1.Font
x = Usercontrol.FontWidth(Text1.Text) 'par exemple
y = Usercontrol.FontHeight(Text1.Text) 'par exemple
Set Usercontrol.Font=fontTemp
Set fontTemp=Nothing
On pourrait alors créer une fonction faisant cela et
rétournant les valeurs
par des paramètres ByRef ou par un type POINTAPI.
--
Nicolas.
Les outils indispensables :
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
Merci de répondre sur le groupe pour en faire profiter
tout le monde.
"lionel" <anonymous@discussions.microsoft.com> a écrit
dans le message de
news: 0eba01c3df29$640a0fa0$a401280a@phx.gbl...
bonjour, merci,
en effet ca marche: il s'agit d'un controle utilisateur,
donc UserControl.TextWidth ... marche.
Mais une chose que je ne comprends pas: si il y a
plusieurs TextBox dans le controle, chacun avec sa
police, sa taille, .... il n'y a pas de TextWidth
rattaché au TextBox ...
-----Message d'origine-----
Bonjour/soir,
Tu peux essayer
Largeur = Form.TextWidth("MonTexte")
Hauteur= Form.TextHeight("MonTexte")
tu peux mettre en invisible un controle picture et tu mets avant de chercher txtwidth pricture.font = MaPolice picture.fontsize=mataille..
et tu auras picture.textwidth(montexte)
et si tu en as beaucoup l'usage, tu te 'bricole une petite focntion du type :
Function TailleTexte(Police a string, TaillePolice as single, Texte) as long
Driss "lionel" a écrit dans le message de news:0a8d01c3df66$944d0680$ ok compris, merci ...
-----Message d'origine----- En effet, il faudra, par exemple faire ceci :
Dim fontTemp as StdFont, x as long, y as long
Set fontTemp = USerControl.Font Set UserControl.Font = Text1.Font x = Usercontrol.FontWidth(Text1.Text) 'par exemple y = Usercontrol.FontHeight(Text1.Text) 'par exemple Set Usercontrol.Font=fontTemp Set fontTemp=Nothing
On pourrait alors créer une fonction faisant cela et
rétournant les valeurs
par des paramètres ByRef ou par un type POINTAPI.
-- Nicolas.
Les outils indispensables :
FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
Merci de répondre sur le groupe pour en faire profiter
tout le monde.
"lionel" a écrit
dans le message de
news: 0eba01c3df29$640a0fa0$ bonjour, merci, en effet ca marche: il s'agit d'un controle utilisateur, donc UserControl.TextWidth ... marche. Mais une chose que je ne comprends pas: si il y a plusieurs TextBox dans le controle, chacun avec sa police, sa taille, .... il n'y a pas de TextWidth rattaché au TextBox ...
-----Message d'origine----- Bonjour/soir,
Tu peux essayer Largeur = Form.TextWidth("MonTexte") Hauteur= Form.TextHeight("MonTexte")