Почему не сохраняет в файл часть картинки - VB

Формулировка задачи:

Когда вставляю в Picture1 скрин экрана целиком, то сохраняет картинку в файл

Pic1.Picture = Clipboard.GetData: DoEvents:
SavePicture Pic1.Picture,m '(m=путь)

А когда перекидываю часть картинки из Picture1 в Picture2, то при сохранении Picture2 выдаёт ошибку

Pic2.PaintPicture Pic1.Picture, 0, 0, 500, 600, 250, 300, 500, 600, vbSrcCopy: DoEvents:
SavePicture Pic2.Picture,m '(m=путь)

ошибка "Invalid property value" на строке SavePicture Pic2.Picture,m Почему так ???

Решение задачи: «Почему не сохраняет в файл часть картинки»

textual
                            Листинг программы 
                        

                            Pic2.PaintPicture Pic1.Picture, 0, 0, 500, 600, 250, 300, 500, 600, vbSrcCopy: DoEvents:
'Pic2.AutoRedraw = True
SavePicture Pic2.Image,m '(m=путь)
                        

Оцени полезность:

9 голосов , оценка 4.222 из 5

Похожие ответы