如何保存picturebox中的自画曲线和label控件内容？急！！！！在线等

Question

作了一个曲线画在picturebox中 其中还有一些label控件，想将所有内容保存为jpg图片 
用了savepicture函数 可是控件的内容怎么不能保存，
高手给点意见阿 在线等

Answer 1

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 LongPrivate Sub Command1_Click()
    Picture1.AutoRedraw = True
    BitBlt Picture1.hDC, 0, 0, Me.ScaleX(Picture1.ScaleWidth, vbTwips, vbPixels), Me.ScaleY(Picture1.ScaleHeight, vbTwips, vbPixels), Me.hDC, Me.ScaleX(Picture1.Left, vbTwips, vbPixels), Me.ScaleY(Picture1.Top, vbTwips, vbPixels), vbSrcCopy
    SavePicture Picture1.Image, App.Path & "\test.bmp"
    
End Sub
'要保存为jpg，得另想办法，比如用GDI+。