１．スケールモードの単位の相互変換

１．スケールモードの単位の相互変換 ２． ３． ４．　 ５．　 ６．

下記プログラムコードに関する補足・注意事項　 動作確認：Windows Vista・Windows 7 (32bit) / VB6.0(SP6) Option　：[Option Explicit] 参照設定：追加なし 使用 API：なし その他　： 　　　　：

１．スケールモードの単位の相互変換

Option Explicit　　 'SampleNo=123　 2002.05.22 Private Sub Command1_Click() 　 'このマシンでのX方向のサイズ変換です 　 With Form1 　　　 Label1.Caption = "1 ピクセルは " & .ScaleX(1, 3, 6) & " mmです" 　　　 Label2.Caption = "100 Twip は" & .ScaleX(100, 1, 6) & " mmです" 　　　 Label3.Caption = "100 Twip は " & .ScaleX(100, 1, 3) & " ピクセルです" 　　　 Label4.Caption = "1 ピクセルは " & .ScaleX(1, 3, 1) & " Twip です" 　　　 Label5.Caption = "567 Twip " & .ScaleX(567, 1, 6) & " mm です" 　　　 Label6.Caption = "10 mmは " & .ScaleX(10, 6, 3) & " ピクセル です" 　　　 Label6.Caption = "10 mmは " & .ScaleX(10, 6, 3) & " ピクセル です" 　　　 Label7.Caption = "10 mmは " & .ScaleX(10, 6, 1) & " Twip です" 　　　 Label8.Caption = "1 インチは " & .ScaleX(10, 5, 1) & " Twip です" 　　　 Label9.Caption = "参考 このマシンでの水平方向の1ピクセル" & _ 　　　　　　　　　　　　 "あたりのtwip数は " & Screen.TwipsPerPixelX & " です" 　 End With End Sub ScaleX、ScaleY メソッド 　Form オブジェクト、ピクチャーボックス (PictureBox) コントロール、または Printer オブジェクトの幅や高さの値を 　ScaleMode プロパティに設定されている単位から別の単位に変換します。　名前付き引数は指定できません。 　　図１．上記実行結果

２．

３．

４．

５．

６．

検索キーワード及びサンプルコードの別名(機能名)