| |
Получить размеры картинки |
|
| |
Получить размеры любого изображения, если оно
может быть загружено в 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
|
|
| |
|
|
|
|