Привет Всем!
Как отресайзить картинку знаю - StretchBlt.
А вот как сохранить ЛЮБУЮ picturebox1 в 600*600 пикселей?
Чтоб можно было задать размер как в mspaint по ctrl+E.
--
Заранее огромное спасибо!
ну так попробуй оттресайзить в 600 на 600, а потом сохранить.Как отресайзить картинку знаю - StretchBlt.
'Модуль:
'===============
mod_SetDimsInPixels
'===============
Option Explicit
Public Sub SetPicDimsInPixels(ByRef P As PictureBox, PixelWidth As Long, PixelHeight As Long)
With P
.Width = PixelWidth * Screen.TwipsPerPixelX
.Height = PixelHeight * Screen.TwipsPerPixelY
.Visible = True
End With
End Sub
Public Sub SetObjDimsInPixels(ByRef O As Object, PixelWidth As Long, PixelHeight As Long)
With O
.Width = PixelWidth * Screen.TwipsPerPixelX
.Height = PixelHeight * Screen.TwipsPerPixelY
.Visible = True
End With
End Sub
'===============
xenomorph писал(а):2BV:
хех ... у пикчурбокса длина не в пикселях.
xenomorph писал(а):ОНО! Спасибо!
--
ХАКЕРЫ РУЛЯТ!
СВОБОДУ КЕВИНУ МИТНИКУ!!
СНИМИТЕ С МЕНЯ СМИРИТЕЛЬНУЮ РУБАШКУ!!!
--
Всегда любил хэксороФФ!
Сейчас этот форум просматривают: Google-бот, Yandex-бот и гости: 109