VB 6 Не удается сохранить угол изображения в файл из Picturebox
Формулировка задачи:
Мне нужно примерно эту часть картинки которую я выделил сохранить в файл помогите пожалуйста не ту часть сохраняетт
Решение задачи: «VB 6 Не удается сохранить угол изображения в файл из Picturebox»
textual
Листинг программы
Dim w As Long, h As Long, ncw As Long, nch As Long Picture1.AutoRedraw = True: Picture1.ScaleMode = vbPixels w = Picture1.ScaleX(Picture1.Picture.Width, vbHimetric, vbPixels): h = Picture1.ScaleY(Picture1.Picture.Height, vbHimetric, vbPixels) ncw = Picture1.Container.ScaleX(Picture1.Width, Picture1.Container.ScaleMode, vbPixels) - Picture1.ScaleX(Picture1.ScaleWidth, Picture1.ScaleMode, vbPixels) nch = Picture1.Container.ScaleY(Picture1.Height, Picture1.Container.ScaleMode, vbPixels) - Picture1.ScaleY(Picture1.ScaleHeight, Picture1.ScaleMode, vbPixels) Picture1.PaintPicture Picture1.Picture, 0, 0, w / 2, h / 2, w / 2, h / 2 Picture1.Width = Picture1.Container.ScaleX(ncw + w / 2, vbPixels, Picture1.Container.ScaleMode): Picture1.Height = Picture1.Container.ScaleY(nch + h / 2, vbPixels, Picture1.Container.ScaleMode) SavePicture Picture1.Image, "c:\test.bmp"
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д