tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板) [ツリー表示へ]   [Home]
一括表示(VB.NET VB2005)
タイトル印刷時のフォントサイズ
記事No7767
投稿日: 2008/07/04(Fri) 15:38
投稿者さく

サンプルを見て、印刷のレイアウトをしています。

Dim blackPen As New Pen(Color.Black, 0.2)   '線の太さを0.2に
Dim f As New Font("MS ゴシック",11)
・・・・


格子状に線を引き、その枠内に、テキストボックスの文字を入れます。
今、フォントのサイズを11にしていますが、テキストボックスの入力文字数によっては、
フォントサイズを10にしたり、9にしたりしたいんです。

10文字まで→11pt
11〜14文字→10pt
15〜18文字→9pt
・・・・・という感じです。EXCELでいうところの、「縮小して全体を表示する」というのがほしいのですが・・・
いいバランスで表示したいんです。枠は30個くらいあります。

何かいい方法はないでしょうか。
宜しくお願い致します。

[ツリー表示へ]
タイトルRe: 印刷時のフォントサイズ
記事No7770
投稿日: 2008/07/04(Fri) 20:31
投稿者花ちゃん
System.Drawing.Graphics.MeasureString メソッド で調べる事ができませんか?

.NET Framework version 2.0 以降なら TextRenderer.MeasureText メソッド で

TextRenderer.MeasureText(IDeviceContext, String, Font, Size, TextFormatFlags)
TextFormatFlags に TextFormatFlags.NoPadding を指定してやれば、余白を
含まない、文字列のサイズが取得できます。


[初めにお読み下さい]内の 6.掲示板ご利用に際し より抜粋
http://hanatyan.sakura.ne.jp/hazimeni.htm#keijiban 

4. 投稿後の対応
  (1) 投稿後は、時々チェックし回答(レス)があった場合は速やかに返信しましょう。
   よく退社時や休日前に投稿して、そのままにしておく人がいますがもってのほかです。
   回答された方は、回答に対する再質問なりが来ていないかをチェックされている事を
   お忘れなく、何かの都合で速やかに返事が出来なければ質問時に×日以降でないと
   返事ができません等と付け加えておいて下さい。

[ツリー表示へ]
タイトルRe^2: 印刷時のフォントサイズ
記事No7773
投稿日: 2008/07/07(Mon) 09:04
投稿者さく
お返事ありがとうございます。
遅くなってすみません。
>TextRenderer.MeasureText メソッド
調べてみます。
どうもありがとうございます。

[ツリー表示へ]