Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
-18 / 3 / 0
Регистрация: 12.01.2014
Сообщений: 188
1

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

26.05.2014, 15:07. Просмотров 1087. Ответов 2
Метки нет (Все метки)

Visual Basic
1
2
3
4
5
6
7
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
Все равно целиком сохраняет что не так ?
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.05.2014, 15:07
Ответы с готовыми решениями:

Как не перезаписывать файл целиком, а только измененную часть?
На форме есть TextArea, в которую открывается файл для редактирования. Так как файл открыт для...

Как загрузить изображение в pictureboх и сохранить его четкость после его растяжения?
Как загрузить точечное изображение в pictureboх, и чтобы после его растяжения сохранить его...

Как сохранить изображение без полей? Только то, что в боксе
Есть изображение рельефа поверхности. Настройки изображения следующие: figure...

Как сохранить нарисованный объект и передать его в другую часть программы ?
Всем доброго времени суток !У меня есть код,который произвольно (так ,как захочется юзеру) рисует...

2
Модератор
8364 / 3134 / 823
Регистрация: 22.02.2013
Сообщений: 4,548
Записей в блоге: 78
26.05.2014, 16:33 2
Лучший ответ Сообщение было отмечено Rad0n как решение

Решение

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"
1
-18 / 3 / 0
Регистрация: 12.01.2014
Сообщений: 188
26.05.2014, 18:16  [ТС] 3
Спасибо братан! Ты Лучший)
А какое число указать в textbox чтобы изображение целиком было ?
Можно как то визуально выделять ? А не в textbox цифры калякать ?
Visual Basic
1
2
3
4
5
Private Sub Text1_Change()
 
Picture1.PaintPicture Picture1, -(Picture1.Width / 2 - r), -(Picture1.Height / 2 - r)
SavePicture Picture1.Image, "c:\love.bmp"
End Sub
Добавлено через 12 минут
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.05.2014, 18:16

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Передать в функцию массив классов, но не класс целиком, а только одно из его полей
Суть в том что есть массив, вообщем код скажет больше чем слова) struct test { int a,b; }...

Как целиком сохранить проект в бэкап
Всем привет. Использую студию 2010. Появилась необходимость сделать полную копию всего проекта со...

Как с помощью FindWindowA найти окно, зная только часть его имени?
Вообщем написал если найдет окно с Cheat Engine 6.3 то будет выполнять действие,например HWND...

Как сделать что бы весь калькулятор выводился сразу, а не только верхняя его часть?
Как сделать что бы весь калькулятор выводился сразу, а не только верхняя его часть? И как я могу...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.