[Visual Basic]
Private Function GetFormImage() As Bitmap

Quellcode

[Visual Basic]
    Private Function GetFormImage() As Bitmap 
        ' Get this form's Graphics object. 
        Dim me_gr As Graphics = Me.CreateGraphics 
 
        ' Make a Bitmap to hold the image. 
        Dim bm As New Bitmap(Me.Width, _ 
            Me.Height, me_gr) 
        Dim bm_gr As Graphics = me_gr.FromImage(bm) 
        Dim bm_hdc As IntPtr = bm_gr.GetHdc 
 
        ' Get the form's hDC. We must do this after  
        ' creating the new Bitmap, which uses me_gr. 
        Dim me_hdc As IntPtr = me_gr.GetHdc 
 
        ' BitBlt the form's image onto the Bitmap. 
        BitBlt(bm_hdc, 0, 0, Me.Width, _ 
            Me.Height, _ 
            me_hdc, 0, 0, SRCCOPY) 
        me_gr.ReleaseHdc(me_hdc) 
        bm_gr.ReleaseHdc(bm_hdc) 
 
        ' Return the result. 
        Return bm 
    End Function

Forderungen

Plattformen: Windows 98, Windows 2000 SP4, Windows Millennium Edition, Windows Server 2003, Windows XP Media Center Edition, Windows XP Professional x64 Edition, Windows XP SP2, Windows XP Starter Edition

Siehe auch

form1