有没有API或VB的方法可以做到给指定位置截图的功能？

Question

RT

Answer 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()
    Dim lngP As Long
    lngP = BitBlt(Picture1.hDC, 0, 0, 50, 80, Me.hDC, 100, 100, vbSrcCopy)
End SubPrivate Sub Form_Load()
    Me.AutoRedraw = True
    Me.BackColor = RGB(0, 255, 0)
    Me.ScaleMode = 3
    Picture1.ScaleMode = 3
    
End Sub