Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long Private Sub Command1_Click() Picture3.Width = Picture1.Width Picture3.Height = Picture1.Height BitBlt Picture3.hDC, 0, 0, Picture3.Width, Picture3.Height, Picture1.hDC, 0, 0, vbSrcCopy SavePicture Picture3.Image, "f:\acdacd.bmp" '保存到F盘 End SubPrivate Sub Form_Load() Picture3.AutoRedraw = True Picture3.Visible = False 'Picture3运行时不可见,用来保存Picture1内容 End Sub
Private Sub Command1_Click()
Picture3.Width = Picture1.Width
Picture3.Height = Picture1.Height
BitBlt Picture3.hDC, 0, 0, Picture3.Width, Picture3.Height, Picture1.hDC, 0, 0, vbSrcCopy
SavePicture Picture3.Image, "f:\acdacd.bmp" '保存到F盘
End SubPrivate Sub Form_Load()
Picture3.AutoRedraw = True
Picture3.Visible = False
'Picture3运行时不可见,用来保存Picture1内容
End Sub
SavePicture PictureBox.Image, "FileName.bmp"