Как записать рисунок на форме в файл?

[next]

Все не так просто, как мне кажется. Мне нужно записать не данные .picture на форме в файл. Допустим я рисую линию на форме или же ряд точек с помощью pset. Как мне сохранить полученное на форме изображение в bmp файл? Я так понимаю это изображение непосредственно связано с hdc формы, а не .picture и если я сохраню picture, то получу пустой рисунок. Как это сделать?
Спасибо.

[Viper]

И этот вопрос пишется в раздел для профессионалов? Ужас! В Поиск, разжевано, пережевано несколько сотен раз!!!!

[next]

Я провел поиск... дело в том, что там есть только сохранение picturebox в bmp причем его картинки. А мне надо взять изображение из hdc и сохранить его, если это так просто найти, то извиняюсь у меня не получилось...

[Хакер]

tag_warning

А мне надо взять изображение из hdc и сохранить его, если это так просто найти, то извиняюсь у меня не получилось...

О! Ещё +1 в пользу того, что ты не профессионал.

Тема переносится.

[Viper]

next, ну и как же ты искал? Какие слова пользовал? Что нашел?

[Хакер]

Ну а вообще,
SavePicture SomeThing.Image, "c:\test.bmp"

[next]

Хакер ты меня не совсем понял.
Ну допустим...

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

dim x, y as integer

for x = 0 to 1000
y = x * x
form1.pset x * 100, - y * 100
next x
x = x + 0.1


Допустим получил я параболу на форме. Как мне ее записать в bmp файл.
Пробую

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

SavePicture form1.picture, "c:\m.bmp"

получаю пустой файл или файл с задним рисунком формы.
Спасибо.

[alibek]

.Image, а не .Picture.

[Хакер]

next
Как раз наоборот, ты меня совсем не понял.

[Viper]

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

dim x, y as integer

for x = 0 to 1000
y = x * x
form1.pset x * 100, - y * 100
next x
x = x + 0.1


Забавный код! Прям таки иллюстрация к статье "Как не надо писать на VB"! Да и читать автор не умеет...

[next]

Вот тьма народу подязвить находится. Моей целью не было написать точный код, а лишь показать что я хочу сделать.
Проблема была в следующем:

допустим нарисовали на форме прямую, к примеру:

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

form1.line(0,0)-(1000,1000), &H80000008&

теперь делаем:

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

SavePicture form1.image, "c:\mm.bmp"

все прекрасно рисуночек формы сохраняется, но без прямой... оказывается всего лишь form1.autoredraw = true и все будет отлично.
Это для тех кто будет искать ответ на этот вопрос.

Но возникает еще один. Простите господа программисты за возможную тупость, но сохраненный рисунок имеет размеры намного больше размеров формы. То же самое, если взять Picturebox и рисовать там, а затем сохранять. Как сохранить рисунок в размерах самого PictureBox? Спасибо.[/code]

[Хакер]

Если линяя стирается, то значит не "Теперь делаем", а делаем позже, через некоторое время, достаточное для того, чтобы линия стёрлась. А линия сотрётся если её не перерисовывать. А если перерисовывать, то не сотрётся. Но если не перерисовывать самому, а заставить VB перерисовывать, то тоже не сотрётся (к моменту сохранения). Это я к тому, что включение autoredraw - не панацея, а всего лишь обходной путь.

[next]

Спасибо Хакер за разъяснение. Как же насчет вопроса с размерами изображения? Уж больно оно большое.