投稿日 | : 2005/04/12(Tue) 09:22 |
投稿者 | : sora |
URL | : |
タイトル | : Re^2: FontSizeについて |
早速のお返事ありがとうございます。m(__)m
FontSizeをカウントダウンしながらTextWidthで調べていくと、
TextWithは1行の長さを返すので、見えにくいぐらい小さいFontSizeになってしまうんです。(;-;)
2行にしたらもっと大きなFontSizeでも可能なはずなんですが・・・。
今はLenで文字の長さを取得して、Textに入る文字数を超えたら
FontSizeを変更するようにしています。
<例>
if Len(Text1.Text) > 12 then
Text1.FontSize = 10
End if
if Len(Text1.Text) > 15 then
Text1.FontSize = 9
End if
この方法だとTextBoxやLabelに対して各々記述しないといけないので、
何かいい方法は無いかと・・・。(;^-^A