BmP, Jpeg ...

[Algol]

Как сохранить картинку в каком - нибудь формате (ну хотя бы в BMp, Jpeg, ну можно и больше) с использованием CommonDialog`a. Заранее спасибо

[Amed]

Код: Выделить всё

Dim strPath As String
With CommonDialog1
    .ShowSave
    .DialogTitle = "Выберите файл..."
    .Filter = "Bitmap Files (*.bmp) | *.bmp"
    strPath = .FileName
End With
SavePicture Picture1.Picture, strPath


Этот код сохраняет в формате bmp...

[Algol]

Этот код не идет, может где нибудь ошибка?

[A.A.Z.]

1) Ты подключил CommonDialog? (Project -> Components -> Microsoft Common Dialog Control)
2) Как он у тебя называется? (Должен - CommonDialog1)
3) Есть ли у тебя на форме PictureBox "Picture1", есть ли в нем картинка? (Если нет - поставь).

[Algol]

Создается неизвестного расширения файл. И че это такое?

[A.A.Z.]

А, попробуй так:

Код: Выделить всё

Dim strPath As String
With CommonDialog1
    .DialogTitle = "Выберите файл..."
    .Filter = "Bitmap Files (*.bmp) | *.bmp|"
    .ShowSave
    strPath = .FileName
End With
SavePicture Picture1.Picture, strPath


[Algol]

Вот это действует, а с Jpeg можно.

[Amed]

Можно.

[Algol]

Код: Выделить всё

Dim strPath As String
With CommonDialog1
    .DialogTitle = "Выберите файл..."
    .Filter = "Bitmap Files (*.bmp) | *.bmp|"
    .ShowSave
    strPath = .FileName
End With
SavePicture Picture1.Picture, strPath


А почему здесь сохраняется начальное изображение. Мне то надо чтобы сохранялось измененное?

[alibek]

А почему здесь сохраняется начальное изображение. Мне то надо чтобы сохранялось измененное?

А подумать не бывает? SavePicture Picture1.Image

[Algol]

Ну и что все равно сохраняется начальное изображение.

[eldar89]

А не легче все настройки указать в свойствах комман диалога?
Чем потом прописывать всё вручную!И вообще в каждый третий
книги по вб ПОДРОБНО рассказывается как всё это делается!
З.Ы.
Эсли вы хотите сделать прогу которая меняет формат рисунков,то
лку не будет,так как все равно размер не уменьшиться!Потому что это сложный алгоритм перекодирования...