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.

Related Posts by Categories