Image控件不是一个容器,你应该改成picrurebox 在界面上放两个picrurebox,分别叫P1、P2,P1中是放的图片及一些控件,而P2作为临时用的,P2可以隐藏。Private Declare Function BitBlt Lib "GDI32" (ByVal hDCDest As Long, ByVal XDest As Long, ByVal YDest As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hDCSrc As Long, ByVal XSrc As Long, ByVal YSrc As Long, ByVal dwRop As Long) As Long Dim i as long p2.AutoRedraw = -1 i = BitBlt(p2.hDC, 0, 0, 宽, 高, p1.hDC, 0, 0, &HCC0020) p2.AutoRedraw = 0SavePicture p2.Image, "C:\text.bmp"
在界面上放两个picrurebox,分别叫P1、P2,P1中是放的图片及一些控件,而P2作为临时用的,P2可以隐藏。Private Declare Function BitBlt Lib "GDI32" (ByVal hDCDest As Long, ByVal XDest As Long, ByVal YDest As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hDCSrc As Long, ByVal XSrc As Long, ByVal YSrc As Long, ByVal dwRop As Long) As Long
Dim i as long
p2.AutoRedraw = -1
i = BitBlt(p2.hDC, 0, 0, 宽, 高, p1.hDC, 0, 0, &HCC0020)
p2.AutoRedraw = 0SavePicture p2.Image, "C:\text.bmp"