サンプル投稿用掲示板 VB2005 〜 用トップページ VB6.0 用 トップページ
- 日時： 2008/02/11 21:03
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[描画・画像][ファイル][] *
* キーワード：画像サイズ,LoadPicture,Image,ピクセル,vbPixels,Scale,Size *
***********************************************************************************
題 名 ： 画像サイズの取得
記事No ： 11045
投稿日 ： 2008/01/04(Fri) 17:18
元質問 ： あかねパパ
PictureBoxやImageにLoadPictureしないで、
bmpやjpgの画像のサイズ（Width,Height）を知りたいのですが教えてください。
大量の画像を調べるのにLoadPictureだと遅すぎるので、他の方法を探しています。
-----------------------------------------------------------------------------------
記事No ： 11060
投稿日 ： 2008/01/05(Sat) 13:46
回答者 ： 魔界の仮面弁士
-----------------------------------------------------------------------------------
(表示させずに)サイズを知りたいだけであれば、
「PictureBox」や「Image」を使う必要は無いですよね。
単に、Picture型の変数に
Dim p As Picture
Set p = LoadPicture(〜〜)
とするだけで、Width , Height は得られるかと。
-----------------------------------------------------------------------------------
--------- by 花ちゃん -----------
Private Sub Command1_Click()
Dim p As Picture
Set p = LoadPicture("c:\test.bmp")
'取得できるサイズの単位は、HiMetric (0.01 ミリメートル単位なので Pixels に変換
Debug.Print CLng(Me.ScaleX(p.Width, 8, vbPixels)), _
CLng(Me.ScaleY(p.Height, 8, vbPixels))
End Sub
 |
