Question

vb中如何截图并复制到图片框中

将鼠标拉出来的框内截图复制到图片框中~~

Answer 1

以下是截图的。另外Picture1有个参数要设置一下。ScaleMode = 3 '像素。 '''''''关于图片的函数。'''截取图片函数。 Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) _ As Long Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, _ ByVal hdc As Long) As Long 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 hDCtmp = GetDC(0) BitBlt Picture1.hdc, 0, 0, 140, 140, hDCtmp, a, b, vbSrcCopy ReleaseDC 0, hDCtmp