DrawToBitmap не сохраняет рисунок с контрола Panel

[aave]

Добрый день! Столкнулся с такой проблемой. Я строю график на форме, на контроле Panel. Хочу сохранить снимок формы в файл. Пишу следующее:

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

Dim wid As Integer = MyBase.Width
            Dim hgt As Integer = MyBase.Height
            Dim bm As New Bitmap(wid, hgt)
            MyBase.DrawToBitmap(bm, New Rectangle(0, 0, wid, hgt))

Сохраняется картинка формы, но контрол Panel в графическом файле пуст -- как задано в начальных настройках (см.вложение).

Кто знает, как сделать так, чтобы нарисованный на панели график сохранялся в графическом файле?

[Qwertiy]

Сохраняется картинка формы, но контрол Panel в графическом файле пуст -- как задано в начальных настройках (см.вложение).

Потому что то, что ты рисуешь, стирается при обычном сворачивании или если прото прикрыть форму другим окном. Попробуй рисовать в обработчике события Paint панели и расовать через e.Graphics (не уверен, поможет ли).

Хочу сохранить снимок формы в файл.

Можно использовать сздание картинки с экрана. Хотя, тут есть соответствующие тонкости.

[aave]

Можно использовать сздание картинки с экрана. Хотя, тут есть соответствующие тонкости.

В принципе, эта задача мной уже решена следующим образом:

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

Private Declare Auto Function BitBlt Lib "gdi32.dll" (ByVal hdcDest As IntPtr, _
                                                          ByVal nXDest As Integer, ByVal nYDest As Integer, _
                                                          ByVal nWidth As Integer, ByVal nHeight As Integer, _
                                                          ByVal hdcSrc As IntPtr, _
                                                          ByVal nXSrc As Integer, ByVal nYSrc As Integer, _
                                                          ByVal dwRop As System.Int32) As Boolean
Private Const SRCCOPY As Integer = &HCC0020

Private Function SaveImageToFile() As Bitmap
        Dim gr As Graphics = Me.CreateGraphics
        Dim resBitmap As New Bitmap(Me.Width, Me.Height, gr)
        Dim bm_gr As Graphics = Graphics.FromImage(resBitmap)
        Dim bm_hdc As IntPtr = bm_gr.GetHdc
        Dim me_hdc As IntPtr = gr.GetHdc
        BitBlt(bm_hdc, 0, 0, Me.ClientSize.Width, Me.ClientSize.Height, _
        me_hdc, 0, 0, SRCCOPY)
        gr.ReleaseHdc(me_hdc)
        bm_gr.ReleaseHdc(bm_hdc)
        Return resBitmap
End Function


Мне просто хотелось бы что-то более простое, а именно - DrawToBitmap, раз уж этот функционал есть в .NET.

Попробуй рисовать в обработчике события Paint панели и расовать через e.Graphics

Попробую.

[Qwertiy]

В принципе, эта задача мной уже решена следующим образом:

Ой, ёёёёёёё... В .NET есть встроенные возможности захвата экрана. Graphics.FromScreen, если не ошибаюсь.

PS: Старайся называть функции более логично, и ставить скобки при вызове функций (нео не свойств).

[aave]

Ой, ёёёёёёё... В .NET есть встроенные возможности захвата экрана. Graphics.FromScreen, если не ошибаюсь.

А, Graphics.CopyFromScreen! Получилось заметно проще, спасибо!!

[Qwertiy]

А, Graphics.CopyFromScreen! Получилось заметно проще, спасибо!!

Кстати, а твой код с окнами имеющими расширенные стили работает? А то .NET'овский метод нет...

[aave]

Кстати, а твой код с окнами имеющими расширенные стили работает? А то .NET'овский метод нет...

Да, он полностью сохраняет форму как есть. А с помощью Graphics.CopyFromScreen вот что получилось:


Спасибо за отличную наводку!

[Qwertiy]

Да, он полностью сохраняет форму как есть.

Нет, я не про форму. С ней всё понятно. Просто Graphics.CopyFromScreen не работает с окнами, имеющими расширенные стили, например, окном Квипа. Вот я и спросил, написанный тобой код работает с ними корректно или нет?

Спасибо за отличную наводку!

Не за что. А рисовать в обработчика события панели (заменив вызов CreateGraphics на e.Graphics) попробовал?

[aave]

Нет, я не про форму. С ней всё понятно. Просто Graphics.CopyFromScreen не работает с окнами, имеющими расширенные стили, например, окном Квипа. Вот я и спросил, написанный тобой код работает с ними корректно или нет?

Не проверял, если честно. И с e.Graphics тоже не пробовал. Что это даст?

[Qwertiy]

И с e.Graphics тоже не пробовал. Что это даст?

Подозреваю, что то, что ты в самом начале хотел - возможность рисования формы через DrawToBitmap. Но тоже не проверял