Menggunakan Control Array pada VB

Setelah kita mengenal tampilan Visual Basic 6.0, sekarang kita mulai mempelajari satu demi satu komponen yang ada di Visual Basic.

Di dalam VB 6.0 kita mengenal sebuah fasilitas untuk mengolah multidimensional 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. Caranya adalah sebagai berikut. 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