kibayasiの日記： 宛 MSのフォントまわり通

VB2005の印刷まわりをやってるわけだが、
これがまた謎でして・・・

==============================

'PrintDocument1_PrintPageの中身
'フォント
Dim f As Font
f = New Font("ＭＳ 明朝", 12)

'1文字の幅を取得
Dim dx As Integer
dx = e.Graphics.MeasureString("0", f).Width

==============================

この時のｄｘは１４を返すんだけど、
"0"の部分の文字列を増やすと摩訶不思議現象になる。

"01"の場合は、２３
"012"の場合は、３１
"0123"の場合は、４０
"01234"の場合は、４８
である。
プロポーショナルのフォントにしてるわけではないんだけど、
1文字の幅と思って使うと変になるのだ。
当然、文字と文字の間のスペースってのがあるんだろうけど、
それなら増えてもよさそうなもんだが、
逆に減っていくのだ。
だから、"0123456789"と10文字にすると、９１を返す
もし1文字の幅が１４だとして計算すると、
10文字だと１４０になると思うもんだけど、そうならない。
法則的なものを感じるとすると、
＋９、＋８、＋９、＋８という増え方をしてるということか。。
１４＋９＋８＋９＋８＋９＋８＋９＋８＋９＝９１
正直　意味がわからん。。
だれか納得のいく説明をしてほしい。
俺の脳みそじゃ無理。(-_-;)

こたえ

[Anonymous Coward]

Graphics.MeasureString メソッド (String, Font) [microsoft.com]より"解説"から引用

MeasureString メソッドは独立した文字列で使用するようにデザインされており、グリフの突出に対応するための少量の余白を文字列の前後に含めます。また、DrawString メソッドはグリフのポイントを調整して表示品質を最適化するため、MeasureString で報告されるよりも狭い範囲に文字列が表示される可能性があります。(たとえば、書式設定されたテキストを実装するときに) レイアウト内の隣接する文字列に適したメトリックを取得するには、MeasureCharacterRanges メソッドを使用するか、または StringFormat を受け取る MeasureString メソッドのうちの 1 つを使用し、GenericTypographic を渡します。また、Graphics の TextRenderingHint が AntiAlias である必要があります。

最初の１文字に余裕が見込んであるんだな。きっと。

Re:こたえ

[kibayasi (3045)]

情報ありがとうございます。
参考にさせていただきます。m(_ _)m