サンプル投稿用掲示板 VB2005 〜 用トップページ VB6.0 用 トップページ
- 日時： 2010/03/27 01:03
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[描画・画像][フォント][基本コード] *
* キーワード：vbPixels,解像度,画素,スケールモード,ScaleMode,ポイント,Twips,インチ *
***********************************************************************************
-----------------------------------------------------------------------------------
記事No ： 5889
投稿日 ： 2007/07/20(Fri) 15:24
投稿者 ： 花ちゃん
-----------------------------------------------------------------------------------
72ポイント＝１インチ
1ポイント＝1/72インチ
1 インチ ＝ 72 ポイント ＝ 1440 twip
1mm ＝ 56.7twip
1ピクセル＝15twip(画面の解像度による）
1ポイント＝0.3528mm
1インチ＝25.4mm
1twip＝0.01763668mm
12ポイント＝240twip ＝12/72インチ＝4.23mm
ＭＳ 明朝 及び ＭＳ ゴシック
文字ポイント 半角幅 全角幅
９ ９０ １８０
１０ １０５ １９５
１１ １２０ ２２５
１２ １２０ ２４０
１４ １５０ ２８５
１６ １６５ ３１５
１８ １８０ ３６０
２０ ２１０ ４０５
幅の単位＝twip
フォントサイズ＝.75 ポイント飛び（10ポイント=9.75ポイントで 11ポイント=10.5ポイントです）
VB6.0 には、ScaleX、ScaleY メソッド と言う単位変換のメソッドが用意されている
object.ScaleX (width, fromscale, toscale)
object.ScaleY (height, fromscale, toscale)
引数
width/height オブジェクトの幅又は高さの値を変換前の単位で指定します
fromscale 変換前の座標系を指定する定数または値を指定します
toscale 変換したい座標系を表す定数をしていします
使用例
Debug.Print Me.ScaleX(1, vbMillimeters, vbPixels)
Debug.Print Me.ScaleX(1, vbPixels, vbTwips)
Debug.Print Me.ScaleX(1, vbPixels, vbMillimeters)
Debug.Print Printer.Width
Debug.Print Printer.ScaleX(Printer.Width, vbTwips, vbMillimeters)
Debug.Print Printer.ScaleX(Printer.Width, vbTwips, vbPixels)
結果（但し、私の環境での結果で、環境により結果が違う場合があります）
3.779524 （1mm = 3.779524 Pixels)
15 (1 Pixels = 15 Twips)
0.2645836 (1 Pixels = 0.2645836 mm)
5669 (はがきのサイズ100mm の場合の Twips 1mm=56.69Twips)
99.99496 (5669 Twips = 99.99496 mm)
2362.083 (99.99496 mm = 2362.083 Pixels 1mm=23.62 Pixels)
 |
