VB : Menambahkan Kontrol Array Pada Saat Run-Time

Umumnya kita menambahkan kontrol ke dalam form pada saat mendesain form tersebut (pada saat design time), tetapi Visual Basic juga menyediakan fasilitas untuk menambah jumlah kontrol array pada saat run-time dengan menggunakan pernyataan Load.

Contoh:

Buatlah sebuah form dan tambahkan sebuah Command Button. Ubah properti Indexnya dengan angka 0.

Ke dalam Command Button tersebut tambahkan kode program seperti listing 2.

Listing 2. Event Click pada Command1

Private Sub Command1_Click(Index As Integer)

Load Command1(1)

Command1(1).Left = Command1(0).Left

Command1(1).Top = Command1(0).Top + Command1(0).Height

Command1(1).Caption = "Command Baru"

Command1(1).Visible = True

End Sub

Perhatikan bahwa pada prosedur Command1_Click terdapat parameter Index As Integer yang harus ditambahkan.

Jalankan aplikasi tersebut. Jika Command Button diklik, maka otomatis akan ditambahkan sebuah Command Button baru tepat di bawahnya.