Menggunakan Array pada Textbox

Mengenal dan Menggunakan Array pada Textbox

Latihan kali ini, penulis akan menguraikan bagaimana cara menggunakan Array pada 5 buah textbox.

Tujuan penggunaan Array ini adalah untuk mengkosongkan kelima textbox tersebut dengan dieksekusi melalui 1 buah tombol cmdKosongkan.

Mari kita mulai....

Ambillah 1 buah textbox di toolbox dan letakkan di form project anda. Selanjutnya klik pada textbox yang telah diletakkan di form tadi dan tekanlah CTRL+C untuk mengcopy-nya sementara di clipboard, lalu tekanlah CTRL+V untuk mempaste-nya secara sembarang di form tersebut.

Pada saat anda menekan CTRL+V akan muncul sebuah dialog box yang berbunyi sbb:

"You already have a control named 'Text1'. Do you want to create
a control array?"

Lalu, pilih dan klik tombol [YES]. Dengan demikian anda sudah memberi status pada Textbox pertama atau Text1 berupa: Index 0. Selanjutnya tambahlah Textbox yang ke 3, ke-4 dan ke-5. Kali ini, sistem tidak akan bertanya lagi pada anda dengan pertanyaan diatas oleh karena, Paste berikutnya sudah dianggap [YES].

Memahami Index Array

Setiap array dalam visual basic 6.0 jelas memiliki Index. Index inilah yang menjadi Indikator atau penanda bahwa control-control atau ActiveX Component yang digunakan saat ini telah menggunakan array. Hal ini bisa dilihat dari adanya tata urutan Index pada setiap control atau Textbox tersebut.

Perhatikan ilustrasi dibawah ini dimana Textbox dengan nama Text1 memiliki Index 0.

Bila anda menambah lagi textbox yang sama dengan melakukan copy-paste dengan cara diatas tadi, maka akan ada urutan Index. Bila ada 5 buah textbox maka akan ada urutan Index yang selalu dimulai dari:

0, 1, 2, 3 dan 4.

Penggunaan array pada control semisal Textbox diatas, biasanya sering dilakukan oleh programmer visual basic 6.0 untuk menangani rutinitas program, misalnya saja, mengkosongkan 5 buah textbox sekaligus dengan hanya mengklik 1 buah tombol.

Umumnya, tekhnik dasar pengkosongan 5 Textbox atau lebih berbentuk seperti ini:

Sub Kosongkan_Textbox()
    Text1.Text = ""
    Text2.Text = ""
    Text3.Text = ""
    Text4.Text = ""
    Text5.Text = ""
End Sub

Kemudian eksekusilah Kosongkan_Textbox tersebut dengan sebuah CommandButton (baca: tombol), misalnya:

Sub Kosongkan_Textbox()
    Text1.Text = ""
    Text2.Text = ""
    Text3.Text = ""
    Text4.Text = ""
    Text5.Text = ""
End Sub

Private Sub cmdKosongkan_Click()
     Kosongkan_Textbox
End Sub

Bagaimana cara mengkosongkan kelima textbox tersebut dengan menggunakan Array?

Baiklah... Sebelum anda menuliskan kode, lakukan cara-cara yang telah dijelaskan diatas. Bila sudah selesai, maka perhatikan, pahami dan cobalah kode array berikut ini!

For i = 0 To Text1.Count - 1
        Text1.Item(i).Text = ""
Next i

Penjelasan:

Oleh karena setiap control Textbox pertama dengan lainnya tadi memiliki Index, maka Properti "Name" untuk setiap Textbox adalah sama. Bila Textbox yang pertama telah dinamai, misalnya, txtInput, maka setiap Textbox yang tadi akan memiliki nama atau Name yang sama yaitu txtInput. Bedanya adalah masing-masing kelima txtInput tersebut memiliki Index yang berbeda.

Pada contoh kode array diatas, kita telah menamakan control textbox dengan Text1.

Agar proses pengkosongan Textbox tersebut dapat berjalan, kita membutuhkan LOOP. Apa itu Loop?

Loop adalah sebuah perintah yang berjalan secara berulang-ulang dan akan berhenti bila diberi tanda berhenti. Dalam contoh sederhana ini kita menggunakan Loop berupa: For ............ Next .........

Untuk membatasi jumlah dari kelima textbox tadi kita menggunakan variable (baca: alat bantu) berupa huruf i (kecil). Agar berjalan dengan baik, deklarasikan terlebih dahulu variabel "i" tersebut sebelum menggunakannya dalam blok-kode agar interpreter (baca: penterjemah) kode dapat memahaminya.

Misalnya:

Dim i as integer
For i = 0 To Text1.Count - 1
        Text1.Item(i).Text = ""
Next i

Sehingga dalam implementasinya, kode array menjadi sbb:

Sub Kosongkan_Textbox()

   Dim i as integer
      For i = 0 To Text1.Count - 1
             Text1.Item(i).Text = ""
      Next i

End Sub

Private Sub cmdKosongkan_Click()

     Kosongkan_Textbox

End Sub