Picture.Widthの単位(VB6)

解決

つーもす 2004-12-01 04:12:02 No: 117916

タイトルのとおりなのですが、読み込ませた画像のサイズを取得したいと思ってます。
    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-12-01 04:32:56 No: 117917

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

nanashi 2004-12-01 19:37:48 No: 117918

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

つーもす 2004-12-02 19:37:35 No: 117919

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

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

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