Cara Memeriksa Apakah Mouse Terinstall Di Komputer VB6

Berikut ini adalah cara memeriksa apakah mouse terinstall di komputer anda dengan visual basic 6, untuk mempraktekannya siapkan :

1. Buat 1 Project baru dengan 1 Module dan 1 Form.
2. Copy-kan coding berikut ke dalam editor form yang bertalian.

          '--- Coding ini di Module Anda...
          Public Const SM_CMOUSEBUTTONS = 43

          Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
          '--- Batas coding di Module...

          '--- Coding ini di Form Anda...

          Public Function CheckMouse() As Boolean
             If GetSystemMetrics(SM_CMOUSEBUTTONS) > 0 Then
                CheckMouse = True  'Mouse terinstall
             Else
                CheckMouse = False 'Mouse tidak terinstall
             End If
          End Function

          Private Sub Form_Load()

             If CheckMouse Then
                MsgBox "Mouse terinstall di PC Anda!", vbInformation, "Terinstall"
             Else
                MsgBox "Mouse belum terinstall di PC Anda!", vbCritical, "Belum Terinstall"

             End If
          End Sub
          '--- Batas coding di Form...

Tags:

contoh program vb6, contoh fungsi di vb6, cara penggunaan fungsi vb, tutorial vb6, download tutorial vb6, vb6 tutorial download, dasar dasar vb6, belajar vb6, cara mudah belajar vb6, vb6 artikel download, vb6 blog, contoh program vb6, artikel vb6, semua tentang vb6, vb6 api, cara menggunakan module, cara menggunakan class module