Picture.Widthの単位(VB6)

解決

つーもす  2004-11-30 19:12:02  No: 117916  IP: [192.*.*.*]

タイトルのとおりなのですが、読み込ませた画像のサイズを取得したいと思ってます。
    Picture1.Picture = LoadPicture(hoge)
    X = Picture1.Picture.Width
    Y = Picture1.Picture.Height
Picture1のスケールモードはTwipsです。
で画像の横と縦のサイズ取得したときXとYの単位はなんになるのでしょうか？

読み込ませた画像のサイズが851pix*915pixのサイズの時に22516*24209になります。
TwipsPerPixelX=15  TwipsPerPixelY=15です。

環境  WinXP  VB6 SP5 です。
是非ご教授お願いします。

編集 削除
つーもす  2004-11-30 19:32:56  No: 117917  IP: [192.*.*.*]

解決です。
0.001mm単位ですね。
22516*0.001*567\TwipsPerPixelXでピクセルでした。

編集 削除
nanashi  2004-12-01 10:37:48  No: 117918  IP: [192.*.*.*]

解決済みのようですが、vbHimetricという単位です。
ScaleX, ScaleYというメソッドを調べてみて下さい。

編集 削除
つーもす  2004-12-02 10:37:35  No: 117919  IP: [192.*.*.*]

名無しさん解決済みのところお目を通していただきありがとうございます。

vbHimetric調べました。
間違ってましたね。
0.01単位でした。
単位がごっちゃになってたおかげで計算は合ってましたね

Picture.Width(vbHimetric)*0.01*56.7\TwipsPerPixelXでピクセルでした。

編集 削除