该如何对多框架的网页进行截图呢 求高手指教 急。。。。
本帖最后由 wuyazhe 于 2010-07-15 14:33:22 编辑
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
WebBrowser1.Navigate(TextBox1.Text)
End Sub
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
Dim i As Integer
i = String.Compare(e.Url.ToString(), WebBrowser1.Document.Url.ToString())
If i = 0 Then
MsgBox("加载完成")
jt()
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
WebBrowser1.ScrollBarsEnabled = False
End Sub
Sub jt()
Dim s As String
s = Date.Now.ToString
s = s.Replace("-", "")
s = s.Replace(":", "")
Dim h As Integer = WebBrowser1.Document.Body.ScrollRectangle.Height '获取打开网页的完整高度
Dim w As Integer = WebBrowser1.Document.Body.ScrollRectangle.Width '获取打开网页的完整宽度
Dim rc As Rectangle = New Rectangle(0, 0, w, h) '定义一个方形 以网页宽高为方形宽高
WebBrowser1.Size = New Size(w, h) '将webbrowser1空间的尺寸定义为网页的尺寸以便截图
Dim bit As Bitmap = New Bitmap(w, h) '需要截图的图片大小
WebBrowser1.DrawToBitmap(bit, rc)
bit.Save("c:" + s + TextBox1.Text + ".png", System.Drawing.Imaging.ImageFormat.Png)
bit.Dispose()
End Sub
End Class
