' Screenshot als Metafile erstellen
Dim MetaFileName As String = IO.Path.Combine(Georg.Konstanten.GeorgTempPfad, _
  IO.Path.GetFileNameWithoutExtension(IO.Path.GetRandomFileName) & ".emf")
Dim Img As Image = Georg.Funktionen.ScreenshotControl(Me.WebBrowser)
Dim gr As Graphics = Me.WebBrowser.CreateGraphics
Dim hdc As IntPtr = gr.GetHdc()
Dim mf As New Imaging.Metafile(MetaFileName, hdc, New Rectangle(0, 0, _
  Me.WebBrowser.Width, Me.WebBrowser.Height), Imaging.MetafileFrameUnit.Pixel)
Dim mf_gr As Graphics = Graphics.FromImage(mf)
mf_gr.PageUnit = GraphicsUnit.Pixel
mf_gr.PixelOffsetMode = Drawing2D.PixelOffsetMode.HighQuality
mf_gr.DrawImage(Img, 0, 0, Me.WebBrowser.Width, Me.WebBrowser.Height)
mf_gr.Dispose()
 
' Grafik zur Zwischenablage hinzufügen
ClipboardMetafileHelper.PutEnhMetafileOnClipboard(Me.Handle, mf)
 
' alle Objekte freigeben
mf.Dispose()
gr.ReleaseHdc(hdc)
gr.Dispose()

Sprache: VB.NET 4.0
Entwicklungsumgebung: VS 2010
Betriebssystem: Windows 7

Beitrag wurde zuletzt am 10.10.08 um 11:00:08 editiert.