Как вырезать фрагмент из изображения - VB

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

Помогите. Как в vb вырезать фрагмент из изображения и сохранить его в отдельный файл

Код к задаче: «Как вырезать фрагмент из изображения - VB»

textual
Private Sub Command1_Click()
    Dim h As Long, w As Long
    
    picTemp.Visible = False
    Set Picture1.Picture = LoadPicture('имя файла')
    
    w = Picture1.Width  2
    h = Picture1.Height  2
    
    picTemp.Width = w
    picTemp.Height = h
    
    picTemp.PaintPicture Picture1.Picture, 0, 0, w, h, 0, 0, w, h
    SavePicture picTemp.Picture, 'имя файла'
 
End Sub

12   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ