Perulangan For Each ... Next

Perulangan ini merupakan kembangan dari perulangan For Next. Perulangan ini pada umumnya digunakan untuk menampilkan seluruh isi item pada sebuah array atau database atau data yang sejenis. Sebagai contoh, kali ini saya menggunakan sebuah array dan menampilkan semua isinya pada Listbox.

Buatlah sebuah Form dengan properties sebagai berikut :

Object	Properties
Form1	Name	FrmForEach
	FormBorderStyle	FixedSingle
Listbox1	Name	LsBulan

 

Setelah Itu Masukanlah Kode berikut pada Form_Load

'Medeklarasikan Array dengan isi nama bulan dari Januari Sampai Desember

        Dim Bulan() As String = {"Januari", "Februari", "Maret", "April", "Mei", "Juni", "Juli", "Agustus", "September", "November", "Desember"}

        'Menampilkannya dalam listbox menggunakan fungsi For Each

        'Variabel TmpBulan dibuat untuk menyimpan semua data yang ada di varabel Bulan yang bertipe String.

        For Each TmpBulan As String In Bulan

            'Menambakan data kedalam Lsbulan

            LsBulan.Items.Add(TmpBulan)

        Next

Untuk source code lengkapnya anda bisa mendownloadnya Disini


By. Franky Soputra

Posted in: Pengenalan,Source Code,Visual Basic 2010