VBNet - Форум - Сохранение содержимого PictureBox'а

Вопрос: Сохранение содержимого PictureBox'а Добавлено: 14.09.08 17:15

Автор вопроса: @lex

Подскажите, пожалуйста, как сохранить содержимое PictureBox'а (со всеми элементами) в файл.
Если можно, то НЕ снятием скриншота *CRAZY*

з.ы. VB.NET
Ответить

Ответы Всего ответов: 13

Номер ответа: 1 Автор ответа: @lex Вопросов: 14 Ответов: 262	Профиль \| \| #1	Добавлено: 14.09.08 17:17
	Offtop: блин(( смайлик не отобразился Ответить

Номер ответа: 2 Автор ответа: DimDoc Вопросов: 21 Ответов: 104	Профиль \| \| #2	Добавлено: 15.09.08 00:04
	я попробовал вот так: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click im myFoto As New Bitmap(PictureBox1.Image) myFoto.Save("myFlor.jpg" End Sub ...и получилось (файл сохранился в папке bin проекта) Ответить

Номер ответа: 3 Автор ответа: DimDoc Вопросов: 21 Ответов: 104	Профиль \| \| #3	Добавлено: 15.09.08 00:07
	...Только смайлики я не добавлял... Это как то само приклеилось... ещё раз: Dim myFoto As New Bitmap(PictureBox1.Image) myFoto.Save("myFlor.jpg" Ответить

Номер ответа: 4 Автор ответа: @lex Вопросов: 14 Ответов: 262	Профиль \| \| #4	Добавлено: 15.09.08 00:15
	Нет) Ты меня не понял) То что ты сделал можно сделать гораздо проще PictureBox1.Image.Save ("C:\myFlor.jpg") А мне надо чтобы на картинке были элементы управления (т.е. кнопки, лейбелы и т.д.) Смотри картинку) http://alex-m.do.am/Picturebox.jpg Ответить

Номер ответа: 5 Автор ответа: @lex Вопросов: 14 Ответов: 262	Профиль \| \| #5	Добавлено: 15.09.08 00:22
	Offtop: Чтобы код не меняло на смайлики пиши его в тегах [sоurce][/sоurce] Ответить

Номер ответа: 6 Автор ответа: @lex Вопросов: 14 Ответов: 262	Профиль \| \| #6	Добавлено: 15.09.08 00:27
	Нашел вот это извращение -> http://vbnet.ru/faq/showtopic.asp?id=365 Но надеюсь в в vb.net это можно сделать как-нибудь попроще)) Ответить

Номер ответа: 7 Автор ответа: Skywalker ICQ: 300-70-6пятьЪ Вопросов: 62 Ответов: 545	Web-сайт: iSkywalker.ru Профиль \| \| #7	Добавлено: 15.09.08 00:54
	а чо тут сложного то о_О Dim img As Bitmap = PictureBox1.Image For i As Integer = 0 To Me.Controls.Count - 1 If Me.Controls(i).Name = "PictureBox1" Then Continue For If PictureBox1.Bounds.Contains(Me.Controls(i).Bounds) Then Dim offset As Point = New Point(Me.Controls(i).Bounds.Left - PictureBox1.Bounds.Left, Me.Controls(i).Bounds.Top - PictureBox1.Bounds.Top) Me.Controls(i).DrawToBitmap(img, New Rectangle(offset.X, offset.Y, Me.Controls(i).Width, Me.Controls(i).Height)) End If Next img.Save("q.jpg", Imaging.ImageFormat.Jpeg) Ответить

Номер ответа: 8 Автор ответа: DimDoc Вопросов: 21 Ответов: 104	Профиль \| \| #8	Добавлено: 15.09.08 01:18
	кнопки, лейбелы и т.д. не являются содержимым PictureBox. Ответить

Номер ответа: 9 Автор ответа: DimDoc Вопросов: 21 Ответов: 104	Профиль \| \| #9	Добавлено: 15.09.08 01:31
	супер! всё получилось Ответить

Номер ответа: 10 Автор ответа: @lex Вопросов: 14 Ответов: 262	Профиль \| \| #10	Добавлено: 15.09.08 10:47
	DimDoc пишет: кнопки, лейбелы и т.д. не являются содержимым PictureBox. Skywalker пишет: а чо тут сложного то о_О Я нуп в vb.net)) Ответить

Номер ответа: 11 Автор ответа: @lex Вопросов: 14 Ответов: 262	Профиль \| \| #11	Добавлено: 15.09.08 10:49
	Блин( У меня ругается на строку Me.Controls(i).DrawToBitmap(img, New Rectangle(offset.X, offset.Y, Me.Controls(i).Width, Me.Controls(i).Height)) Значение не может быть неопределенным. Имя параметра: bitmap Ответить

Номер ответа: 12 Автор ответа: @lex Вопросов: 14 Ответов: 262	Профиль \| \| #12	Добавлено: 15.09.08 10:54
	Эм))) Сорри) Все ок) Я туплю ппц) Skywalker, пасиб большое) Ответить

Номер ответа: 13 Автор ответа: konst Вопросов: 1 Ответов: 5	Профиль \| \| #13	Добавлено: 21.09.08 23:31
	Skywalker пишет: а чо тут сложного то о_О Sorry, что залез в VB.NET, но столкнулся с этим же в VB6, и не могу разобраться. Может, подскажете? Ответить

Страница: 1 |