VB 6 Как сохранить изображение не целиком, а только его часть?

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

Private Sub Text1_Change()
Dim r As Long
On Error Resume Next
r = Text1.Text
Picture1.PaintPicture Picture1, -(Picture1.Width / 2 - r), -(Picture1.Height / 2 - r)
SavePicture Picture1.Picture, "c:\test.jpg"
End Sub

Все равно целиком сохраняет что не так ?

Решение задачи: «VB 6 Как сохранить изображение не целиком, а только его часть?»

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

                            Picture1.AutoRedraw = True
Picture1.PaintPicture Picture1, -(Picture1.Width / 2 - r), -(Picture1.Height / 2 - r)
SavePicture Picture1.Image, "c:\test.bmp"
                        

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

6 голосов , оценка 4.167 из 5

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