在VB中怎样将PictureBox内显示的内容（包括里边的控件）保存为图片文件？

Question

如题所述

Answer 1

Private Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long\x0d\x0aPrivate 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\x0d\x0aPrivate Declare Function ReleaseDC Lib "user32" (ByVal hWnd As Long, ByVal hdc As Long) As Long\x0d\x0aPrivate Sub Command1_Click()\x0d\x0aDim hdc As Long\x0d\x0ahdc = GetDC(0)\x0d\x0aBitBlt Picture2.hdc, 0, 0, Me.Picture1.Width, Picture1.Height, hdc, Me.Left / 15 + 8 + Picture1.Left, Me.Top / 15 + 30 + Me.Picture1.Top, vbSrcCopy\x0d\x0aReleaseDC 0, hdc\x0d\x0aEnd Sub一个按钮 两个picturebox\x0d\x0a\x0d\x0a不知你有没有边框。。我这个是加了边框的（边框就是标题栏什么的。。）不加边框的话把8,30去掉即可。。\x0d\x0a还有假如是.net的改的就多了。。不知需要否。。