Сообщество Чайников

Вопрос

Как сохранить рисунок из Picture Box в файл?

Ответ

Подготовте проект, добавив в него форму и модуль.
На форму поместите:
- Picture Box с именами Рисунок1 и Рисунок2
- Common Dialog с именем CommonDialog1
Добавте в модуль:


Public Declare Function StretchBlt Lib "gdi32" _
(ByVal hdc As Long, ByVal x As Long, _
ByVal y As Long, ByVal nWidth As Long, _
ByVal nHeight As Long, ByVal hSrcDC As Long, _
ByVal xSrc As Long, ByVal ySrc As Long, _
ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, _
ByVal dwRop As Long) As Long
Public Const SRCCOPY = &HCC0020
Public retval As Long


Добавте в форму:


Рисунок2.Cls
Рисунок2.Height = Рисунок1.Height
Рисунок2.Width = Рисунок1.Width
retval = StretchBlt(Рисунок2.hdc, 0, 0, Рисунок2.Width, _
Рисунок2.Height, Рисунок1.hdc, 0, 0, _
Рисунок1.Width, Рисунок1.Height, SRCCOPY)
CommonDialog1.Filter = "Рисунки| *.bmp"
CommonDialog1.ShowSave
SavePicture Рисунок2.Image, CommonDialog1.FileName

Мир программирования на Visual BASIC 5.0 и HTML