Как вырезать фрагмент из изображения - 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 из 5
Похожие ответы