Menggunakan Control Array pada VB

Di dalam VB 6.0 kita mengenal sebuah fasilitas untuk mengolah multi dimensional variable yang dikenal dengan ARRAY. Array tidak hanya diaplikasikan pada variable saja tetapi juga pada komponen.Kali ini saya akan membuat sebuah menu yang disorot bila kita mengarahkan mouse di atasnya.

Bila kita membuatnya tanpa ARRAY maka program dan codenya sebagai berikut:

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    menu1.BorderStyle = 0
    menu2.BorderStyle = 0
    menu3.BorderStyle = 0
    menu4.BorderStyle = 0
    menu5.BorderStyle = 0
End Sub
Private Sub menu1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    menu1.BorderStyle = 1
End Sub
Private Sub menu2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    menu2.BorderStyle = 1
End Sub
Private Sub menu3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    menu3.BorderStyle = 1
End Sub
Private Sub menu4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    menu4.BorderStyle = 1
End Sub
Private Sub menu5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    menu5.BorderStyle = 1
End Sub

Karena sekarang kita menggunakan Control Array kita dapat membuat kode yang lebih singkat, langkahnya adalah sebagai berikut:

1. Buatlah form seperti diatas, tetapi isikan hanya satu kemuadian copy-paste label tersebut. Akan muncul konfirmasi "Do you want to create a control array?" pilih saja yes. Copy sebanyak 5, sehingga terdapat 5 label dengan nama yang sama tetapi masing-masing label mempunyai index yang berbeda mulai dari 0.
   
   
   
   
   
   
   
2. Anda bisa mengubah captionnya tapi jangan mengubah namenya atau indexnya. Masukkan kode pada form mousemove dan label mousemove seperti berikut:
   
   
   
   
   Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   For i = 0 To menu.Count - 1
       menu(i).BorderStyle = 0
   Next
   End Sub
   
   Private Sub menu_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
       menu(Index).BorderStyle = 1
   End Sub
   
   Perhatikan codingnya menjadi lebih singkat. Sekarang anda tinggal menekan F5 untuk menjalankan program. Selamat mencoba.
   

Bagi anda yang ingin mendownload contoh formmya klik saja di sini