VB6 フォーム上のサイズ「twip」をピクセル変換する。

VB6のフォーム関連のサイズはtwipという単位だが

画像などを貼付けたい場合、なかなか厄介だ。

横幅方向のtwipをピクセルに換算する場合は

VBフォーム上のサイズ(twip)＊0.01＊モニタのdpi／TwipsPerPixelX

という換算式で割り出せる。

0.01はtwipが0.01mm単位なのでmmに割り戻す定数。

モニタのdpiはモデルごとに多少違うので、スペックから

調べると良い。

TwipsPerPixelX（高さの場合Y）はVB6のメソッドであり

これによって得られた数値を代入すれば良い。

例えば、VBフォーム上ので500twipのサイズにぴったりな

画像の幅は何ピクセルか。

モニタのdpiは96、TwipsPerPixelXが15だったと仮定すると

計算式は下記のようになる。

500[twip]＊0.01＊96[dpi]／15[TwipsPerPixelX]＝32[pixel]

なんか面倒だなぁ。