VB 6 Как сохранить изображение не целиком, а только его часть?

@Rad0n · Регистрация: 12.01.2014

Author24 — интернет-сервис помощи студентам

Visual Basic

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

Все равно целиком сохраняет что не так ?

@The trick · 26.05.2014, 16:33

Visual Basic

1
2
3

Picture1.AutoRedraw = True
Picture1.PaintPicture Picture1, -(Picture1.Width / 2 - r), -(Picture1.Height / 2 - r)
SavePicture Picture1.Image, "c:\test.bmp"

@Rad0n · 26.05.2014, 18:16 **[ТС]**

Спасибо братан! Ты Лучший)
А какое число указать в textbox чтобы изображение целиком было ?
Можно как то визуально выделять ? А не в textbox цифры калякать ?

Visual Basic

Private Sub Text1_Change()
 
Picture1.PaintPicture Picture1, -(Picture1.Width / 2 - r), -(Picture1.Height / 2 - r)
SavePicture Picture1.Image, "c:\love.bmp"
End Sub

Добавлено через 12 минут

Новые блоги и статьи
Обработка числовой информации hw_wired 28.01.2025 Введение в обработку числовой информации В современном мире обработка числовой информации стала неотъемлемой частью как профессиональной деятельности, так и повседневной жизни. Электронные таблицы. . .	Мультимедиа hw_wired 28.01.2025 Введение в мультимедийные технологии В современном мире мультимедийные технологии стали неотъемлемой частью нашей жизни, проникнув во все сферы человеческой деятельности. Термин "мультимедиа". . .	Обработка текстовой информации hw_wired 28.01.2025 Введение в обработку текстовой информации В современном мире обработка текстовой информации играет фундаментальную роль в различных сферах человеческой деятельности. Текстовые редакторы стали. . .	Обработка графической информации hw_wired 28.01.2025 Введение в компьютерную графику Компьютерная графика стала неотъемлемой частью современного цифрового мира, пройдя впечатляющий путь развития от простейших черно-белых изображений до сложных. . .	Python в Алгоритмике: Решение задач hw_wired 28.01.2025 Введение в Python и Алгоритмику В современном мире программирование стало неотъемлемой частью образования и профессионального развития. Python зарекомендовал себя как один из самых популярных и. . .	Компьютер как универсальное устройство для работы с информацией hw_wired 28.01.2025 Введение в устройство компьютера Компьютер представляет собой универсальное электронное устройство, предназначенное для автоматической обработки информации. В современном мире компьютер стал. . .
Информация и информационные процессы hw_wired 28.01.2025 Понятие информации и ее виды В современном мире информация является одним из фундаментальных понятий, пронизывающих все сферы человеческой деятельности. Под информацией понимают любые сведения об. . .	Алгоритмика hw_wired 28.01.2025 Введение: Основы алгоритмики и её роль в информатике В современном мире программирование и алгоритмическое мышление стали неотъемлемой частью образования и профессиональной деятельности. . . .	Информационное моделирование hw_wired 28.01.2025 Введение в информационное моделирование В современном мире информационное моделирование стало неотъемлемой частью научной, образовательной и профессиональной деятельности. Это мощный инструмент. . .	Объекты и их имена hw_wired 28.01.2025 Введение: Основы объектного подхода и их роль в информатике В современном мире информационных технологий объектный подход стал фундаментальным принципом организации и обработки информации. Этот. . .	Элементы алгоритмизации hw_wired 28.01.2025 Основы алгоритмизации В современном мире алгоритмы играют фундаментальную роль в развитии информационных технологий и программирования. Понимание основ алгоритмизации является ключевым элементом в. . .	Человек и информация hw_wired 28.01.2025 Введение: роль информации в познании мира В современном мире информация играет фундаментальную роль в процессе познания окружающей действительности. Она представляет собой совокупность сведений об. . .

	26.05.2014, 18:16

VB 6 Как сохранить изображение не целиком, а только его часть?

Решение