投稿日	： 2004/02/29(Sun) 07:23
投稿者	： おじん
ＵＲＬ	：
タイトル	： Re^6: 画面に正確な長さの線を引く

> 仮にどのパソコンでも同じ長さのラインを引きたいのであればスケールモードを
> mm にしてラインを引けばどのパソコンやプリンターでも 50mm は 50mmだと思うのですが

と思っています。以下のコードでは、上２つは、見かけ約３．５ｃｍ、３つ目は約２ｃｍ。
Win98SE、VB6、液晶モニタ15インチ、1024X768です。

Option Explicit

Private Sub Command1_Click()
Me.ScaleMode = vbMillimeters 'ミリ単位
With Line1
    .BorderWidth = 5 '見やすくするため
    .X2 = .X1 + 30 '３０ｍｍの長さ
End With
End Sub

Private Sub Command2_Click()
Me.ScaleMode = vbTwips 'twips単位
With Line2
    .BorderWidth = 5 '見やすくするため
    .X2 = .X1 + Me.ScaleX(30, 6, 1) '３０ｍｍの長さ
End With
End Sub

Private Sub Command3_Click()
Me.ScaleMode = vbTwips 'twips単位
With Line3
    .BorderWidth = 5 '見やすくするため
    .X2 = .X1 + Screen.Width * 30 / (12 * 25.4)  '３０ｍｍの長さ
End With
End Sub

そこで３つ目が正しい使い方としたら、ここでの変数の「12」のアプリからの
取得方法が問題になります(今はモニタが15インチであることが分かっています
から、X方向の長さは15*(4/5)=12(インチ)で求まりますが)。

> >疑問１：
> >TwipsPerPixelsXはパソコン（モニタ）によって違うのでしょうか？
> ピクセルあたりのtwip 数だから当然解像度等によって違ってきます。

TwipsPerPixelXは最近知ったことで、これまで「15」という定数を
使っていました。偶然不都合はなかったと言うことでしょう。因みに
手持ちのノートパソコン（Win95、VB6,10インチ、800X600）でも15です。
ただ、上記のコードを実行するとすべてにおいて「正しい長さ」です。
（３つ目において12は8に変更する必要があります）。最初に800という
数値を使ったのはこのノートパソコンでは正しかったためでした。
共通して「正しい」のが３つ目の方法なので、「12(または使用モニタの
大きさ)」の取得方法にこだわっています。

★ - 画面に正確な長さの線を引く - おじん 02/27-22:18No.8166
• Re: 画面に正確な長さの線を引く - 花ちゃん 02/28-02:29 No.8168
  • Re^2: 画面に正確な長さの線を引く - おじん 02/28-09:21 No.8169
    • 投稿者削除 - (削除) 02/28-10:25 No.8170
      • Re^4: 画面に正確な長さの線を引く - おじん 02/28-12:01 No.8171
        • Re^5: 画面に正確な長さの線を引く - 花ちゃん 02/29-03:29 No.8175
          • Re^6: 画面に正確な長さの線を引く - おじん 02/29-07:23 No.8176
            • Re^7: 画面に正確な長さの線を引く - 花ちゃん 02/29-10:47 No.8177
              • Re^8: 画面に正確な長さの線を引く - おじん 02/29-12:24 No.8178