Lompat ke konten Lompat ke sidebar Lompat ke footer

Disabled Menu Bar Using String Variable VB6

Berikut ini adalah cara menonaktifkan menubar dengan variabel string di visual basic 6, untuk mempraktekannya siapkan :
1. Buat 1 Project baru dengan 1 Form.
2. Di form yang bertalian, tambahkan menu dari Tools-> Menu Editor, dengan struktur dan nama sbb:
          'File (mnuFile)
          ' - Input (mnuInput)
          ' - Cari (mnuCari)
          ' - Keluar (mnuKeluar)
3. Copy-kan coding berikut ke dalam editor form yang bertalian.

          'Buat tipe data sendiri untuk menampung

          'data caption dan name-nya menu
          Private Type arrMenu
            Caption As String
            Nama As String
          End Type

          'Deklarasi array dinamis bertipe arrMenu
          Dim tabMenu() As arrMenu

          'Deklarasi variabel bertipe Control

          Dim Contrl As Control

          Private Sub Form_Load()
          Dim i As Integer, Menu1 As String, Menu2 As String

            'Misalkan Menu1 dan Menu2 ditampung dari database
            Menu1 = "mnuInput"
            Menu2 = "mnuKeluar"
            'Untuk setiap control di Form1
            For Each Contrl In Form1.Controls

                'Periksa, jika Menu maka...
                If (TypeOf Contrl Is Menu) Then
                   'Alokasi array untuk menu yang ada
                   ReDim Preserve tabMenu(i + 1)

                   'Tampung caption dan nama menu
                   tabMenu(i).Caption = Contrl.Caption
                   tabMenu(i).Nama = Contrl.Name
                   'Periksa menu mana saja yang akan di-disabled

                   If tabMenu(i).Nama = Menu1 Or _
                      tabMenu(i).Nama = Menu2 Then
                      'Jika ketemu, disable-kan sekarang
                      Contrl.Enabled = False
                   End If  'Akhir proses menu disabled

                End If  'Akhir pemeriksaan menu di Form1
            Next Contrl 'Ke control berikutnya
            'Bebaskan memori yang digunakan array
            Erase tabMenu

          End Sub

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

Posting Komentar untuk "Disabled Menu Bar Using String Variable VB6"