ＶＢ．ＮＥＴのフォーム画面をJpgファイルで保存するには？ (ID:89234)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

BitBltを使うと
    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
     Const SRCCOPY As Integer = &HCC0020
   
     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Gp As Graphics = Me.CreateGraphics                     ' フォームのGraphicオブジェクトの作成
        Dim BitImg = New Bitmap(Me.Size.Width, Me.Size.Height, Gp) ' ビットマップ領域確保
        Dim FomG As Graphics = Gp.FromImage(BitImg)
        Dim Hdc1 As IntPtr = Gp.GetHdc()
        Dim Hdc2 As IntPtr = FomG.GetHdc()
        BitBlt(Hdc2, 0, 0, Me.ClientRectangle.Width, Me.ClientRectangle.Height, Hdc1, 0, 0, SRCCOPY)
        Gp.ReleaseHdc(Hdc1)
        FomG.ReleaseHdc(Hdc2)
        BitImg.Save("c:\test.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
        BitImg.Dispose()
    End Sub
こんなことになるのかな。

←解決時は質問者本人がここをチェックしてください。

戻る