ดูโค้ดให้หน่อยครับ
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal _ dwFlags As Long, ByVal dwExtraInfo As Long)
Private Sub cmdCapture_Click() Me.Visible = False DoEvents Clipboard.Clear keybd_event vbKeySnapshot, 0, 0, 0 DoEvents keybd_event vbKeySnapshot, 0, &H2, 0 DoEvents ScreenCapture.Picture = Clipboard.GetData(vbCFBitmap) DoEvents Me.Visible = True Me.Refresh Screen.MousePointer = vbHourglass SavePicture ScreenCapture.Picture, App.Path & "\screen.bmp" End Sub
พอรันแล้วมันโหลดตลอดเลยจะทำอย่างไรดีครับ
|