Sunday, May 27, 2012

Meng-Capture Screen .bmp atau .jpg Menggunakan ezCapture.dll

Di bawah ini merupakan fungsi untuk meng-capture (mengambil) gambar screen dalam format .bmp atau format .jpg dengan menggunakan ActiveX ezCapture.dll. Untuk keperluan ini tentu saja Anda harus memiliki dll ezCapture.dll kemudian mereferensikan project Anda terhadapnya. Mengenai ezCapture.dll bisa Anda download di sini.
Fungsi untuk meng-Capture screen dalam format .bmp
Option Explicit 

Sub
CaptureScreenBMP()
Dim ezCapture As New CaptureScreen
On Error Resume Next
With
ezCapture
.CaptureFullScreen "C:\screen.bmp"
End With
End Sub
Fungsi untuk meng-Capture screen dalam format .jpg
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