Memeriksa Form Saat Diload Ke Memory VB6

Berikut ini adalah cara memeriksa apakah suatu form diload ke memory di visual basic 6, untuk mempraktekannya siapkan :

1. Buat 1 Project baru dengan 2 Form dan 1 Module.
2. Pada Form1, buat 2 Commandbutton.
3. Copy-kan coding berikut ke dalam editor Module dan Form yang bertalian.

          '--- Coding ini di Module Anda...
          Public Function FormLoadedByName(FormName As String) As Boolean
          Dim i As Integer, fnamelc As String
            fnamelc = LCase$(FormName)
            FormLoadedByName = False

            For i = 0 To Forms.Count - 1
              If LCase$(Forms(i).Name) = fnamelc Then
                 FormLoadedByName = True
                 Exit Function

              End If
            Next
          End Function
          '--- Batas coding di Module...


          '--- Coding ini di Form1...
          Private Sub Command1_Click()
            'Ganti 'Form2' dengan nama form yang akan Anda periksa.
            If FormLoadedByName("Form2") = True Then

               MsgBox "Form2 sedang diload!", vbInformation, "Sedang Diload"
            Else
               MsgBox "Form2 sedang tidak di-load!", vbCritical, "Tidak Diload"
            End If

          End Sub

          Private Sub Command2_Click()
             Load Form2
          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