Sabtu, 01 Oktober 2011

Membuat Object Dengan Array

Dalam VB.6 kita bisa membuat object baru seperti textbox,combobox,commandbutton,label,dan semua object lainnya pada saat runtime/program sudah dijalankan. Yaitu dengan cara menggunaan Array. Syarat pertama adalah set property index object tersebut menjadi 0 (nol), artinya object tersebut sudah menjadi object array dengan indek ke 0 (nol). Contohnya 3 object berikut, yaitu seperti gambar dibawah ini :


Sekarang kita coba memperbanyak object array tersebut dengan coding dan akan di eksekusi pada saat runtime (bukan copy-paste objectnya). Codingnya adalah :

 For i = 1 To 5
    'Membuat Object Array Label
    Load djie_Label1(i)
    With djie_Label1(i)
        .Width = djie_Label1(0).Width
        .Height = djie_Label1(0).Height
        .Left = djie_Label1(0).Left
        .Top = (djie_Label1(0).Top + djie_Label1(0).Height) * i
        .Visible = True
        .Caption = "djie_Label1(" & i & ")"
    End With
    'Membuat Object Array Label
    Load djie_Text1(i)
    With djie_Text1(i)
        .Width = djie_Text1(0).Width
        .Height = djie_Text1(0).Height
        .Left = djie_Text1(0).Left
        .Top = (djie_Text1(0).Top + djie_Text1(0).Height) * i
        .Visible = True
        .Text = "djie_Text1(" & i & ")"
    End With
    'Membuat Object Array Command Button
    Load djie_Command1(i)
    With djie_Command1(i)
        .Width = djie_Command1(0).Width
        .Height = djie_Command1(0).Height
        .Left = djie_Command1(0).Left
        .Top = (djie_Command1(0).Top + djie_Command1(0).Height) * i
        .Visible = True
        .Caption = "djie_Command1(" & i & ")"
    End With
Next



Sedangkan untuk memilih object arraydengan index tertentu, codingnya adalah :
Private Sub djie_Command1_Click(Index As Integer)
    MsgBox "Ini Command1 dengan index ke " & Index, vbInformation, "Message"
End Sub