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