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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

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