VBでクリッピングした画像を保存するには？ (ID:92052)

名前

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

本文

その方法はわかりません。orz    
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
   '-----------------------------------------------------------
    Dim MyGraphics As Graphics = PictureBox1.CreateGraphics  
    Dim BitImg As New Bitmap(100, 100) ' ビットマップ領域確保
    Dim NewBitMap As Graphics = MyGraphics.FromImage(BitImg)
    Dim Hdc1 As IntPtr = MyGraphics.GetHdc()
    Dim Hdc2 As IntPtr = NewBitMap.GetHdc()
    PictureBox1.Image = New Bitmap("c:\test.bmp")
    System.Windows.Forms.Application.DoEvents()
    BitBlt(Hdc2, 0, 0, 100, 100, Hdc1, 10, 10, SRCCOPY)
    MyGraphics.ReleaseHdc(Hdc1)
    NewBitMap.ReleaseHdc(Hdc2)
    BitImg.Save("c:\test2.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
    BitImg.Dispose()

"tes.jpg"  では無く"c:\test.bmp"となっていますので注意して下さい。

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

戻る