Save as

[Algol]

Как сохранить отредактированное изображение на диск (изображение находится в Image1 )

[A.A.Z.]

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

SavePicture Image1.Picture, "C:\1.bmp"


[Algol]

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

[A.A.Z.]

Тогда Project->Components (Проект->Компоненты) --> Microsoft Common Dialog Control
Добавь его на форму, такде добавь Image1 и Command1

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

Private Sub Command1_Click()
Dim File As String
CommonDialog1.Filter = "BMP (Windows Bitmap) |*.bmp|All Files (*.*) |*.*|"
CommonDialog1.CancelError = False
CommonDialog1.ShowSave
If File = "" Then Exit Sub
File = CommonDialog1.FileName
SavePicture Image1.Picture, File
End Sub

Private Sub Form_Load()
Command1.Caption = "Save &As..."
End Sub


[Algol]

Все равно не сохраняется. Диалог выводится а не сохраняется. Может дело в форматах.

[A.A.Z.]

Не может быть!

[Kostyan]

А каким образом ты редактируешь изображение в Image??? Можно куcочек кода глянуть, плиз, впервые слышу о такой возможности

[Algol]

Может я неправильно выразился.

[Algol]

Ну не сохраняет и все.

[Kostyan]

Ты наверное не понимаешь немного смысл контрола Image. В него можно только загружать рисунок, но редактировать нельзя, это тебе не PictureBox. И не знаю что ты там с ним (с рисунком в Image) делаешь, каким образом "редактируешь", но рисунок на самом деле не меняется, поэтому когда ты его сохраняешь, сохраняется начальное изображение.

[Algol]

А в Picture все нормально получится?

[Kostyan]

Получится, если редактировать будешь правильно.

[Algol]

Ну спасибо!!