picturebox中有一个label1,一个image控件.用savepicture 保存picturebox内容只能保存picturebox的图片,请问如何保存picturebox 中的所有内容(label1,image1)为图片!

解决方案 »

  1.   

    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
      

  2.   

    以上代码是将Picture1中的内容保存成图片
      

  3.   

    PictureBox.AutoRedraw=True
    SavePicture PictureBox.Image, "FileName.bmp"