VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日: 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


- 関連一覧ツリー (★ をクリックするとツリー全体を一括表示します)

- 返信フォーム (この記事に返信する場合は下記フォームから投稿して下さい)

- VBレスキュー(花ちゃん) - - Web Forum -