Получить размеры картинки.
Получить размеры любого изображения, если оно может быть загружено в Image box.
Добавьте 1 Image Box на форму. Установите свойства ImageBox Stretch и Visible в False.
Private Sub Form_Load()
'замените путь c:\mypic.gif на ваш путь к картинке
Image1.Picture = LoadPicture("c:\mypic.gif")
'Вы получите размеры в пикселях. (если вы хотите получить размеры в твипах,
удалите текст "/ Screen.TwipsPerPixelY" и "/ Screen.TwipsPerPixelX".)
MsgBox "Image Height: " & Image1.Height / Screen.TwipsPerPixelY & _
" Image width: " & Image1.Width / Screen.TwipsPerPixelX
End Sub
|
