сохранение картинки...

[WhiTe*DeviL]

Как сохранить картинку, нарисованную в picturebox'e в файл?

[Rainbow]

SavePicture Picture1.Image, "c:\temp\pic1.bmp"

[Ramzes]

А можно так:

Добавдяешь на форму компоненет commondialog и делашь как говорил Rainbow...

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

private sub command1_click()
on error goto metka
commondialog1.filter = "*.bmp|*.bmp|"
commondialog1.showopen
SavePicture Picture1.Image, commondialog1.filename
exit sub
metka:
exit sub
end sub

Работает 100%

[A.A.Z.]

Только не Picture1.Image, а Picture1.Picture и не CommonDialog1.ShowOpen а .ShowSave.

И вообще, вместо меток можно:

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

CommonDialog1.ShowSave
If CommonDialog1.CancelError = False Then Exit Sub
SavePicture Picture1.Picture, CommonDialog1.FileName


[GSerg]

A.A.Z., ты неправильно понимаешь назначение и использование проперти CancelError . Это не индикатор ошибки. Эту проперть если поставить в тру, то дайлог будет генерить ошибку, когда юзер выбирает отмену. А если её поставить в фолс, то ошибка генериться не будет! А проверять её состояние после вызова диалога бессмысленно.

[Ramzes]

Sory

Ну ошибся чуть-чуть...с кем не бывает?

но так книга пишет.

Всмисле

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

on error goto (Туда)

[A.A.Z.]

2 GSerg:

Да я знаю! Просто помогает, вот я ей и пользуюсь...