Private Sub Form_Load()
AutoRedraw = True
CommonDialog1.Filter = "BMP|*.bmp"
End Sub
Private Sub Command1_Click()
CommonDialog1.ShowSave
SavePicture Picture1.Image, CommonDialog1.FileName
End Sub
создал прогр. графический редактор для художников
помогите пож сохранить созданный рисунок в picture box в виде отдельного файла с расширением bmp. Взгляните в исходниках VB мою программу графический редактор для художников.
Надо полагать,что автору было недосуг слазить в Object browser и,набрав там в поиске "Save",просмотреть список методов.Вот 2 найденных мной:[QUOTE=VB object browser;вызывается нажатием F2]Sub SavePicture(Picture As IPictureDisp, FileName As String)[INDENT]Member of VB.Global
Saves a graphic from a Form, PictureBox, or Image control to a file[/INDENT]
Sub SavePicture(Picture As IPictureDisp, filename As String)[INDENT]Member of stdole.StdFunctions
Saves a picture to a file[/INDENT][/QUOTE]Как-то так…вроде даже форматирование сохранил:)
Saves a graphic from a Form, PictureBox, or Image control to a file[/INDENT]
Sub SavePicture(Picture As IPictureDisp, filename As String)[INDENT]Member of stdole.StdFunctions
Saves a picture to a file[/INDENT][/QUOTE]Как-то так…вроде даже форматирование сохранил:)
Вот пример, показывающий как сохранить рисунок находящийся в PictureBox с помощью элемента CommonDialog:
Код:
Цитата: @pixo $oft
Надо полагать,что автору было недосуг слазить в Object browser и,набрав там в поиске "Save",просмотреть список методов.Вот 2 найденных мной:Как-то так…вроде даже форматирование сохранил:)
Спасибо огромное за труды. Вопрос снят.Radic
Цитата: SPB-667
Вот пример, показывающий как сохранить рисунок находящийся в PictureBox с помощью элемента CommonDialog:
Код:
Private Sub Form_Load()
AutoRedraw = True
CommonDialog1.Filter = "BMP|*.bmp"
End Sub
Private Sub Command1_Click()
CommonDialog1.ShowSave
SavePicture Picture1.Image, CommonDialog1.FileName
End Sub
AutoRedraw = True
CommonDialog1.Filter = "BMP|*.bmp"
End Sub
Private Sub Command1_Click()
CommonDialog1.ShowSave
SavePicture Picture1.Image, CommonDialog1.FileName
End Sub
Спасибо хорошим людям за помощь. Мой вопрос исчерпан
0)Фильтр "*.bmp" можно задавать в свойствах объекта CommonDialog,чтоб в коде зря не писать;)
1)Я так понимаю,P1 есть PictureBox
2)Что есть Image.File в твоём коде?
.File убрать оттуда незамедлительно!:)Тогда,по идее,будет работать
+ещё можно проверять,нажали ли в Common dialog'е "Сохранить",а не "Отмена"(ну это так,на будущее)
1)Я так понимаю,P1 есть PictureBox
2)Что есть Image.File в твоём коде?
.File убрать оттуда незамедлительно!:)Тогда,по идее,будет работать
+ещё можно проверять,нажали ли в Common dialog'е "Сохранить",а не "Отмена"(ну это так,на будущее)
Цитата: @pixo $oft
0)Фильтр "*.bmp" можно задавать в свойствах объекта CommonDialog,чтоб в коде зря не писать;)
1)Я так понимаю,P1 есть PictureBox
2)Что есть Image.File в твоём коде?
.File убрать оттуда незамедлительно!:)Тогда,по идее,будет работать
+ещё можно проверять,нажали ли в Common dialog'е "Сохранить",а не "Отмена"(ну это так,на будущее)
1)Я так понимаю,P1 есть PictureBox
2)Что есть Image.File в твоём коде?
.File убрать оттуда незамедлительно!:)Тогда,по идее,будет работать
+ещё можно проверять,нажали ли в Common dialog'е "Сохранить",а не "Отмена"(ну это так,на будущее)
еще раз спасибо Вам. Все работает ОК. Теперь программа полноценная.
а как мне переслать свои игрушки весом более 12 мб . Наверное такой возможности нет.:)
Переслать куда?Лично мне:) или в копилку коденета("Исходники")?
Если 2е,могу помочь с упаковкой,чтоб меньше весило.Дабы не захламлять просторы родного форума,предлагаю дальнейшее обсуждение в личку
Если 2е,могу помочь с упаковкой,чтоб меньше весило.Дабы не захламлять просторы родного форума,предлагаю дальнейшее обсуждение в личку
а как разговарить в личке
Цитата: Radic
а как разговарить в личке
После такого вопроса, мне страшно захотелось посмотреть ваш "редактор для художников". ;)