用VB.NET 演示使用BitBlt 执行位图复制操作

下面是一个使用VB.NET执行位图复制操作的示例：

Imports System.Runtime.InteropServices

Public Class Form1

    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 Integer) As Boolean

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' 创建源位图
        Dim bmpSrc As New Bitmap("D:\source.bmp")

        ' 创建目标位图
        Dim bmpDest As New Bitmap(bmpSrc.Width, bmpSrc.Height)

        ' 获取源位图和目标位图的HDC
        Dim hdcSrc As IntPtr = Graphics.FromImage(bmpSrc).GetHdc()
        Dim hdcDest As IntPtr = Graphics.FromImage(bmpDest).GetHdc()

        ' 执行位图复制操作
        BitBlt(hdcDest, 0, 0, bmpSrc.Width, bmpSrc.Height, hdcSrc, 0, 0, &HCC0020)

        ' 释放HDC
        Graphics.FromImage(bmpSrc).ReleaseHdc(hdcSrc)
        Graphics.FromImage(bmpDest).ReleaseHdc(hdcDest)

        ' 显示复制后的位图
        PictureBox1.Image = bmpDest
    End Sub

End Class

在这个示例中，我们首先创建了一个源位图和一个空的目标位图，并获取它们的HDC。然后我们调用BitBlt函数，将源位图复制到目标位图中。最后，我们释放HDC并显示复制后的位图。

BitBlt函数的第一个参数是目标设备的HDC，第二个和第三个参数是目标矩形的左上角坐标，第四个和第五个参数是目标矩形的宽度和高度。第六个参数是源设备的HDC，第七个和第八个参数是源矩形的左上角坐标。最后一个参数指定了如何将源位图与目标位图组合。

在这个示例中，我们使用的组合模式是SRCCOPY，这意味着直接将源位图的像素复制到目标位图中。其他组合模式可以通过更改dwRop参数来实现不同的效果。