Saturday, April 3, 2010

VB Code - Meng-capture Screen .bmp Atau .jpg (Ezcapture.dll)

Di bawah ini merupakan fungsi VB6 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 VB6 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 VB6 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