Файл *.gif из PictureBox

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
KPEATOP
Бывалый
Бывалый
 
Сообщения: 291
Зарегистрирован: 02.12.2002 (Пн) 16:33
Откуда: Russia

Файл *.gif из PictureBox

Сообщение KPEATOP » 17.09.2004 (Пт) 8:19

Подскажите кто знает, как из PictureBox сохранить рисунок в файл в формате *.gif или *.jpg ?
Если использовать оператор SavePicture , то файл сохраняется только в формате *.bmp
Заранее спасибо.
Вечность пахнет нефтью

Akella
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 144
Зарегистрирован: 15.09.2004 (Ср) 14:26
Откуда: Россия, Тюмень

Сообщение Akella » 17.09.2004 (Пт) 8:29

Да меня это тоже интересует, если не лень кинте на Akella3@yandex.ru
Не бойся что не знаешь, бойся что не учишься.

KPEATOP
Бывалый
Бывалый
 
Сообщения: 291
Зарегистрирован: 02.12.2002 (Пн) 16:33
Откуда: Russia

Сообщение KPEATOP » 17.09.2004 (Пт) 10:41

неужели так никто и не подскажет ?
Вечность пахнет нефтью

tyomitch
Пользователь #1352
Пользователь #1352
Аватара пользователя
 
Сообщения: 12822
Зарегистрирован: 20.10.2002 (Вс) 17:02
Откуда: חיפה

Сообщение tyomitch » 17.09.2004 (Пт) 11:01

Юзай мою библиотеку для работы с GDI+: http://mix.web.ur.ru/JPEG.zip
Она всё может, и в gif, и в jpg :-)
Пример использования:
Код: Выделить всё
CreateBitmapFromPicture(Picture1.Picture).SaveToJpeg "c:\output.jpg", 80
CreateBitmapFromPicture(Picture1.Picture).Save "c:\output.gif", "image/gif"
Изображение

Шурик
Самогонщик
Самогонщик
Аватара пользователя
 
Сообщения: 1657
Зарегистрирован: 30.06.2003 (Пн) 13:27
Откуда: из запоя :))))) Матных сообщений: 972

Сообщение Шурик » 17.09.2004 (Пт) 11:05

или можно так:
сохраняем в BMP, а потом конвертим
Код: Выделить всё
Imports System.IO.Path
Imports System.Drawing.Imaging
Public Function ConvertBMP(ByVal BMPFullPath As String, ByVal imgFormat As ImageFormat) As Boolean
Dim bAns As Boolean
Dim sNewFile As String
Try
'Класс bitmap из system.drawing.imaging
Dim objBmp As New Bitmap(BMPFullPath)
'Две функции из пространства system.io.path
sNewFile = GetDirectoryName(BMPFullPath)
sNewFile &= GetFileNameWithoutExtension(BMPFullPath)
sNewFile &= "." & imgFormat.ToString
objBmp.Save(sNewFile, imgFormat)
bAns = True 'Возвратить true если операция прошла успешно
Catch
bAns = False 'Возвратить false если произошла ошибка
End Try
Return bAns
End Function
'ИСПОЛЬЗОВАНИЕ
'ConvertBMP("C:\test.bmp", ImageFormat.Jpeg)
'ConvertBMP("C:\test.bmp", ImageFormat.Emf)
'ConvertBMP("C:\test.bmp", ImageFormat.Exif)
'ConvertBMP("C:\test.bmp", ImageFormat.Gif)
'ConvertBMP("C:\test.bmp", ImageFormat.Icon)
'ConvertBMP("C:\test.bmp", ImageFormat.MemoryBmp)
'ConvertBMP("C:\test.bmp", ImageFormat.Png)
'ConvertBMP("C:\test.bmp", ImageFormat.Tiff)
'ConvertBMP("C:\test.bmp", ImageFormat.Wmf)

:!: но это для .NET :!:

codemaster
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 604
Зарегистрирован: 13.02.2004 (Пт) 13:35

Re: Файл *.gif из PictureBox

Сообщение codemaster » 17.09.2004 (Пт) 11:12

KPEATOP писал(а):Подскажите кто знает, как из PictureBox сохранить рисунок в файл в формате *.gif или *.jpg ?
Если использовать оператор SavePicture , то файл сохраняется только в формате *.bmp
Заранее спасибо.


См. Изображение


для JPG лучше пользовать вариант 2 т.е. Intel JPEG Library


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: Yandex-бот и гости: 2

    TopList