1,485
社区成员
发帖
与我相关
我的任务
分享
Option Explicit
Private Declare Function GetDC Lib "user32" (ByVal hwnd 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
Private DC As Long
Private Sub Form_Click()
BitBlt Me.hDC, 0, 0, Screen.Width \ 15, Screen.Height \ 15, DC, 0, 0, vbSrcCopy
End Sub
Private Sub Form_Load()
DC = GetDC(0)
End Sub