Private Declare Function icePub_saveScreen Lib "icePubDll.dll" (ByVal bmpFile As String) As IntegerDim str1 As StringDim a2 As Integerstr1 = App.Path + "\1.bmp"a2 = icePub_saveScreen(str1)Private Declare Function icePub_saveSubScreen Lib "icePubDll.dll" (ByVal bmpFile As String, ByVal startX As ...
Set CaptureActiveWindow=CaptureWindow(hWndActive,False,0,0,RectActive.Right-RectActive.Left,RectActive.Bottom-RectActive.Top)或者Set CaptureActiveWindow=CaptureWindow(hWndActive,Fa...