Рисование элемента управления WebBrowser в растровое изображение - PullRequest
Новая
       33

Рисование элемента управления WebBrowser в растровое изображение

1 голос
/ 16 февраля 2012

Я пытаюсь сохранить элемент управления панели как растровое изображение, используя следующий код (VB.net): 

Private Sub SaveFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles SaveFileDialog1.FileOk
     filename = SaveFileDialog1.FileName
     Dim CardImg As New Bitmap(Panel1.Width, Panel1.Height)
     Panel1.DrawToBitmap(CardImg, Panel1.ClientRectangle)
     CardImg.Save(filename, System.Drawing.Imaging.ImageFormat.Bmp)
 End Sub

Все работает, кроме элемента управления веб-браузера, который закреплен на панели.В сохраненном растровом изображении этот элемент управления отображается только как пробел, а все остальное на панели отображается нормально.Есть идеи?

Ответы [ 2 ]

0 голосов
/ 23 июля 2013

Когда я сохранял снимки с WebBrowser, я вызывал .Focus() на нем после навигации - и каким-то образом белая картинка волшебным образом исчезала.Не знаю почему, но у меня это сработало.

0 голосов
/ 16 февраля 2012

Загрузите "ScreenCapture.vb" из http://www.vbforums.com/showthread.php?t=385497,, используйте CaptureDeskTopRectangle, но вы не должны использовать местоположение вашей панели, потому что оно ссылается на родительский элемент панели, вы должны использовать yourpanel.PointToScreen() для определения правильного прямоугольника.С уважением ..

ОБНОВЛЕНИЕ:

Проверьте это, вам понравится, я похож на ваш случай, и он работает: 

Private Sub btnBrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBrowse.Click
        Try
            Using fl As New SaveFileDialog
                fl.Filter = "PNG images|*.png"
                If fl.ShowDialog = Windows.Forms.DialogResult.OK Then
                    Dim sc As New screencapture
                    Dim pt = WebBrowser1.Parent.PointToScreen(WebBrowser1.Location)
                    Dim rec As New Rectangle(pt.X, pt.Y, WebBrowser1.Width, WebBrowser1.Height)
                    Application.DoEvents()
                    Threading.Thread.Sleep(500)
                    Using bmp As Bitmap = sc.CaptureDeskTopRectangle(rec, WebBrowser1.Width, WebBrowser1.Height)
                        bmp.Save(fl.FileName, System.Drawing.Imaging.ImageFormat.Png)
                    End Using
                End If
            End Using
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

Обновление 2:

В форме: 

Private Sub btnBrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBrowse.Click
        Try
            Using fl As New SaveFileDialog
                fl.Filter = "PNG images|*.png"
                If fl.ShowDialog = Windows.Forms.DialogResult.OK Then
                    JSsetTimeout.SetTimeout(Me, "TakeShot", 1500, fl.FileName)
                End If
            End Using
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
End Sub

Sub TakeShot(ByVal FilePath As String)
        Try
            Application.DoEvents()
            Dim sc As New screencapture
            Dim pt = WebBrowser1.Parent.PointToScreen(WebBrowser1.Location)
            Dim rec As New Rectangle(pt.X, pt.Y, WebBrowser1.Width, WebBrowser1.Height)
            Using bmp As Bitmap = sc.CaptureDeskTopRectangle(rec, WebBrowser1.Width, WebBrowser1.Height)
                bmp.Save(FilePath, System.Drawing.Imaging.ImageFormat.Png)
            End Using
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
End Sub

Чтобы создать задержку, добавьте класс ниже: 

Public Class JSsetTimeout

    Public res As Object = Nothing
    Dim WithEvents tm As Timer = Nothing
    Dim _MethodName As String
    Dim _args() As Object
    Dim _ClassInstacne As Object = Nothing

    Public Shared Sub SetTimeout(ByVal ClassInstacne As Object, ByVal obj As String, ByVal TimeSpan As Integer, ByVal ParamArray args() As Object)
        Dim jssto As New JSsetTimeout(ClassInstacne, obj, TimeSpan, args)
    End Sub

    Public Sub New(ByVal ClassInstacne As Object, ByVal obj As String, ByVal TimeSpan As Integer, ByVal ParamArray args() As Object)
        If obj IsNot Nothing Then
            _MethodName = obj
            _args = args
            _ClassInstacne = ClassInstacne
            tm = New Timer With {.Interval = TimeSpan, .Enabled = False}
            AddHandler tm.Tick, AddressOf tm_Tick
            tm.Start()
        End If
    End Sub

    Private Sub tm_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles tm.Tick
        tm.Stop()
        RemoveHandler tm.Tick, AddressOf tm_Tick
        If Not String.IsNullOrEmpty(_MethodName) AndAlso _ClassInstacne IsNot Nothing Then
            res = CallByName(_ClassInstacne, _MethodName, CallType.Method, _args)
        Else
            res = Nothing
        End If
    End Sub
End Class
...