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

Download Mouse Wheel For VB6

Instal file ini agar editor code di VB.6 teman teman bisa di scroll (menggunakan mouse). Download Mouse

 Link Updated on 2012-12-04 (yy-mm-dd) !

Download Wheel for VB6

Tags:
download mouse wheel, mouse wheel for vb6, free mouse wheel, mouse wheel add-on vb6, scroll mouse in vb6 editor, instal mouse wheel

Download VBLR6.CHM (VB.6 Help/MSDN Mini)

Screenshot:

Saya akan share file help yang mungkin bisa membantu teman teman jika mengalami kesulitan dalam pemrograman khusunya visual basic 6. File ini sangat amat kecil tapi lumayan dahsyat (kecil kecil cabe rawit).

Berikut ini link downloadnya :
VBLR6.CHM

Update 2012-03-03 (add file help):

-VBCN6.CHM
-VBENDF98.CHM
-VBHW6.CHM
-VBOB6.CHM
-VBUI6.CHM

Click HERE to complete download (ALL)

Tags:

msdn vb6, free download help vb6, vb6 help offline, vb6 msdn, visual basic 6 helper, vb6 reference, free download visual basic 6 reference, free download visual basic 6 mini msdn