Fungsi untuk meng-Capture screen dalam format .bmp
Option ExplicitFungsi untuk meng-Capture screen dalam format .jpg
Sub CaptureScreenBMP()
Dim ezCapture As New CaptureScreen
On Error Resume Next
With ezCapture
.CaptureFullScreen "C:\screen.bmp"
End With
End Sub
Sub CaptureScreenJPG()
Dim ezCapture As New CaptureScreen
With ezCapture
.CaptureFullScreen "C:\screen.jpg"
End With
End Sub
Contoh penggunaan fungsi capture screen .bmp
Private Sub Command1_Click()
CaptureScreenBMP
End Sub
Contoh penggunaan fungsi capture screen .jpg.
Untuk keperluan ini Anda membutuhkan satu file lagi yakni "ijl11.dll"
Private Sub Command2_Click()
CaptureScreenJPG
End Sub