Aplikasi API Viewer

Aplikasi API Viewer menyediakan hampir seluruh deklarasi fungsi, konstanta, dan tipe data yang terdapat dalam file teks (.TXT) maupun dalam file database (.MDB). Setelah menemukan fungsi yang diinginkan, pemakai dapat mengkopinya ke dalam modul yang nantinya dapat digabungkan dengan kode program Visual Basic. Untuk memanggil API Viewer lakukan langkah-langkah berikut ini :

•   Dari menu Add-Ins, pilih Add-Ins Manager
•   Pilih VB API Viewer
•   Pada Load Behavior klik Loaded/Unloaded
•   Klik Ok
•   Klik API Viewer dari Add-Ins Menu
•   Buka Text atau Database File yang ingin dilihat.
•   Pilih item yang ingin dilihat.

 Penggunaan Windows API dalam Program.
Contoh program 1 :
1. Buat projek baru dan tambahkan modul dengan memilih Project, Add Module, Open.
2. Aktifkan API Viewer.
3. Klik menu Add-Ins, pilih API Viewer.
4. Klik menu File, pilih Load Text File.
5. Pilih file win32api, klik Open.
6. Pada Available Items, pilih MessageBox.
7. Klik Add dan Insert. Klik Yes.

8. Tutup jendela Windows API.
9. Tutup jendela module.
10. Tambahkan kontrol timer, label dan tiga buah command button.

11. Atur property objeknya sbb :

12. Ketikkan listing berikut :
Private Sub Command1_Click()
MessageBox Me.hwnd, "API menyebabkan timer tidak berhenti",
"Msgbox", vbOKOnly
End Sub
Private Sub Command2_Click()
MsgBox "Non API menyebabkan timer berhenti", vbOKOnly,
"msgbox"
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Time
End Sub
13. Simpan Projek.
14. Jalankan program.
15. Hasilnya sbb :

Contoh program 2 :
1. Buat projek baru dan tambahkan modul dengan memilih Project, Add Module,
Open.
2. Aktifkan API Viewer.
3. Klik menu Add-Ins, pilih API Viewer.
4. Klik menu File, pilih Load Text File.
5. Pilih file win32api, klik Open.
6. Pada Available Items, klik double FlashWindow dan Sleep
7. Klik Insert. Klik Yes.

8. Tutup jendela Windows API.
9. Tutup jendela module.
10. Tambahkan kontrol command button.

11. Atur property objeknya sbb :

12. Ketikkan listing berikut :
Private Sub Command1_Click()
Dim x As Long
For c = 1 To 10
x = FlashWindow(Form1.hwnd, 1)
Sleep 500
Next c
x = FlashWindow(Form1.hwnd, 0)
End Sub
13. Simpan Projek.
14. Jalankan program.