Программирование
Веб программирование

Объекты VB6. PictureBox и Image

 
 

Как ты наверное понял эти объекты нужны для работы с изображением, и у каждого из этих объектов есть свойство Picture, кликни по нему 2 раза(это в окне свойств(но вначале объекты закинь на форму)), и у тебя откроется окно выбора изображений, там выбираешь любой рисунок, и он у тебя загрузится. А если вдруг надо чтоб картинки грузились, например при нажатии на кнопку. Для этого создадим новый проект, туда кинем 1 кнопку, 1 Image, и 1 PictureBox(Кстати, у этих объектов есть различие, у Image - если картинка будет больше чем сам объект, то объект растянется, а у Picture - не растянется, а будет показана только поместившаяся часть рисунка). Теперь напишем код, который при нажатии на кнопку, загружал в эти объекты картинку.

Private Sub Command1_Click() 'При нажатии на кнопку:
Picture1.Picture = LoadPicture("c:1.bmp") 'Картинка загружается в объект PictureBox(Вместо c:1.bmp - напиши путь к картинке)
Image1.Picture = LoadPicture("c:1.bmp") 'Картинка загружается в объект Image
End Sub

Но если можно загружать, то значит можно и сохранять. До делаем нашу программу, на форму кинь еще одну кнопку, и впиши код:

Private Sub Command2_Click()
SavePicture Picture1.Picture, "c:Picture.bmp" 'Картинка сохраняется в файл Picture.BMP, из объекта Picture 
SavePicture Image1.Picture, "c:Image.bmp" 'Картинка сохраняется в файл Image.BMP, из объекта Image
End Sub

Есть вопросы? Спроси на нашем форуме!!
юля [07.03.2010 18:02]

Хороший пример

денис [28.10.2010 01:39]

хорошая юля!

Антон [27.11.2010 21:07]

Хорошая пара!

У меня выдаётся ошибка "Неверное значение свойства" (я сам русифицировал). Что с ней делать?

Денис [16.12.2010 16:51]

Вряд ли,может,путь не правильно указал?

Тотен [09.01.2011 10:27]

Здесь все правильно написано проверьте путь к файлу

забыл [20.03.2011 16:42]

ну отето оно, то что мне надо спасибо)))

антон [28.06.2011 14:38]

тут надо было б еще сказать об app.path (для незнающих она возвращает путь в папку с прогой (только без слежа (слеж это \ или /)))

леша [17.08.2011 19:16]

у менят оже не работает %)

Андрон [29.11.2011 12:56]

А где Юля? :(

Ильдар [06.12.2011 22:33]

("c:1.bmp") - так не работает!
("c:\1.bmp")- так работает!

Anderis [21.12.2011 00:32]

Вот ведь незадача, если файл картинки испорчен, то программа прекращает работу с ошибкой 481 (Испорчена картинка).

Может есть способ проверить целостность файла картинки перед
Picture1.Picture = LoadPicture("c:1.bmp")

Юра [21.12.2011 08:41]

Picture1.Picture = LoadPicture("c:\1.bmp")

Anderis [21.12.2011 14:28]

Юра, Я же написал, что Picture1.Picture = LoadPicture("c:\1.bmp") вызывает ошибку 481 и прекращение работы программы.
Нужен способ предварительно проверить картинку и если она хорошая писать
Picture1.Picture = LoadPicture("c:\1.bmp")

Будь внимателен, когда читаешь посты, газеты, объевления.

Юра [21.12.2011 15:45]

Будь внимателен ты, как ты написал "Picture1.Picture = LoadPicture("c:1.bmp")"
я поправил тебя.
481 - Неверное изображение

юра [21.12.2011 19:31]

Попробуй так:
On error goto errPic
Picture1.picture = LoadPicture("C:\1.bmp")
exit sub
errPic:
MsgBox "Не верный формат картинки", 16, "Ошибка"

Anderis [22.12.2011 11:21]

юра
Пробовал и так.
VB6 не переходит по goto, а выполняет
Picture1.picture = LoadPicture("C:\1.bmp")
останавливается и выдает окно с ошибкой 481.

Юра [22.12.2011 11:41]

Я проверил всё нормуль работает и прекрасно переходит по Goto.

Юра [22.12.2011 11:44]

Если есть аська или мыло могу скинуть исходник!

Anderis [22.12.2011 13:31]

Мыло есть, да этот форум запрещает ссылки на другие сайты.
Попробую по русски, а ты русские буковки замени на английские

андер_сон собака маил ру

Юра [22.12.2011 15:19]

Отправил.

Anderis [27.12.2011 18:22]

В VB2005 всё прекрасно открывается.
Значит это неисправленный бак VB6/

алексе [27.12.2011 18:32]

Anderis, может ты неправильно сделал переход по goto?!

алексей [27.12.2011 18:35]

лучше так написать
On Error Resume Next
Picture1.picture = LoadPicture("C:\1.bmp")

алексей [27.12.2011 18:37]

ещё можно так
On Error Resume Next
Picture1.picture = LoadPicture("C:\1.bmp")
if err=481 then MsgBox "Не верный формат картинки", 16, "Ошибка"

Нурали [10.01.2012 07:48]

Мне нужин исходник для антивируса(ВБ 6) dovlee4@mail.ru

M161350 [03.07.2013 12:21]

Почему гогда я ставлю LoadPicture("c:1.bmp") то он говорит
Мол Run-time error 53
File not found.

M161350 [03.07.2013 12:22]

Помогите а?

vossal [03.07.2013 13:01]

Или файла нет, или попробуй .jpg

M161350 [07.07.2013 17:25]

Неполучается!!!!!!!!!!!!!!!!!!!

alex13sh300 [07.07.2013 19:04]

слешь ставь после :
Image1.Picture = LoadPicture("c:\1.bmp")



Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.