Bitblt使用方法.docVIP

Bitblt使用方法我现在正在,,,,习VB.NET2008，但是网上这方面的资源很少，所以有点问题想请教下。问题是图像处理方面的，BitBlt函数的应用。在2005行的。但是用2008的，我相应的改了下，不不行。不知道问题出在哪里。还请多多指教。代码如下： Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim g1 As Graphics Dim g2 As Graphics Dim hdc1 As IntPtr Dim hdc2 As IntPtr g1 = Picture1.CreateGraphics g2 = Picture1.CreateGraphics hdc1 = g1.GetHdc() hdc2 = g2.GetHdc() hdc2 = Me.Handle For I = 0 To Picture1.Height BitBlt(hdc2, 0, I, Picture1.Width, 3, hdc1, 0, I, HCC0020) For j = 1 To 8000 Next Next g1.ReleaseHdc(hdc1) g2.ReleaseHdc(hdc2) g1.Dispose() g2.Dispose() End Sub多谢！！！namespace TestGDI { public partial class Form1 : Form { [DllImport(gdi32.dll)] private static extern bool BitBlt( IntPtr hdcDest, //目标设备的句柄 int nXDest, // 目标对象的左上角的X坐标 int nYDest, // 目标对象的左上角的X坐标 int nWidth, // 目标对象的矩形的宽度 int nHeight, // 目标对象的矩形的长度 IntPtr hdcSrc, // 源设备的句柄 int nXSrc, // 源对象的左上角的X坐标 int nYSrc, // 源对象的左上角的X坐标 int dwRop // 光栅的操作值 ); public const int ROP_SrcCopy = 0xCC0020; public Form1() { InitializeComponent(); } private void btnShow_Click(object sender, EventArgs e) { Image img = Image.FromFile(@image\1.bmp); Graphics mg = Graphics.FromImage(img); Graphics g = this.picMain.CreateGraphics(); //pictureBox picMain int x = this.picMain.Width; //pictureBox的Width int y = this.picMain.Height; //pictureBox的Height IntPtr dc1 = g.GetHdc(); IntPtr dc2 = mg.GetHdc(); BitBlt(dc1, 100, 100, x, y, dc2, 0, 0, ROP_SrcCopy); } } } 在用VisualBasic编程的时候，通常要调用图片，如果图片出现的时候是以各种完美的效果出现的，（如马赛克效果，百叶窗效果等）则你的程序就会显得更加灵活，你的程序就会更加专业化。本文讲述了VisualBasic中如何调用API函数，以及用API函数中的BitBlt函数实现各种完美的图片出现效果的过程。 §1一般的图片出现效果 一般情况下，要使VisualBasic中的图片出现，例如，要显示Picture1中的图片，只需一句代码： Picture1.Visible=True 使用以上方法时，图片是突然出现的。也可以编复杂一点的代码，使图片从左到右、从上到下或从中间向四周扩大。例如，使Picture1中的图片从左到右出现，其代码为： Picture1.Width=0 Picture1.Visible=True Fori=0To5000Step50注释：5000代表图片的高度 Picture1.Width=i Nexti 使Picture1中的图片从上到下出现的代码为： Picture1.Height=0 Picture1.Visibl