如何读出一幅图片的高度和宽度以及像素等

'Private Sub Command1_Click()
'
' CommonDialog1.Filter = "所有图片" & "*.bmp|*.jpg"
' CommonDialog1.ShowOpen
'
' Picture1.Picture = LoadPicture(CommonDialog1.FileName)
' Form1.Caption = "图片高度=" & Picture1.Height & "图片宽度= " & Picture1.Width & "像素=" & Str(Picture1.Height * Picture1.Width)
'End Sub
'
'Private Sub Form_Load()
' Picture1.AutoSize = True
' Picture1.Top = 0
' Picture1.Left = 0
'End Sub

(为了防止影响格式我前面加了注释，使用的时候取消就是了。)
在窗体上添加 picturebox 控件和 CommonDialog1控件。

下载个PHOTOSHOP软件
打开图片就可以知道了

软件啊

PHOTOSHOP可以 并且支持多种图片格式