CONTOH PENGGUNAAN COMBOBOX DAN LISTBOX PADA VB.NET 2008

1. Tambahkan Form baru
2.  Buatlah desain Tampilan form seperti gambar berikut ini :

3. Tambahkan kontrol ke form seperti pada gambar diatas dan atur propertinya seperti tabel berikut:

Object	Properties	Nilai
Form2	Name Text Start Position	Form2 ComboBox dan ListBox CenterScreen
Label1	Text	Drive
Label2	Text	Keterangan
ComboBox1	Name	Cmb_Drive
ListBox1	Name	LstInfo

4. Klik icon view code pada solution Explorer, di atas Public Class Form1, ketikkan kode program berikut     ini :

Imports System.IO

Public Class Form2

5. Klik ganda pada form, kemudian ketikkan kode program berikut ini :

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Cmb_Drive.Items.AddRange(IO.DriveInfo.GetDrives)

End Sub

6. Klik ganda pada ComboBox, Kemudian ketik kode program berikut ini :

Private Sub Cmb_Drive_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmb_Drive.SelectedIndexChanged

        LstInfo.Items.Clear()

        LstInfo.Items.Add("Nama Drive :" & Dir("" & _

        Cmb_Drive.Text & "", FileAttribute.Volume) & "")

        LstInfo.Items.Add("System :" & Dir("" & _

        Cmb_Drive.Text & "", FileAttribute.System) & "")

        Dim dvr As New DriveInfo(Cmb_Drive.Text)

        Dim kapasitas = CStr(dvr.TotalSize / 1000000) & " MB"

        Dim sisa = CStr(dvr.TotalFreeSpace / 1000000) & " MB"

        Dim Terpakai = CStr(Val(kapasitas) - Val(sisa)) & " MB"

        LstInfo.Items.Add("Kapasitas : " & kapasitas)

        LstInfo.Items.Add("Terpakai  : " & Terpakai)

        LstInfo.Items.Add("Sisa        : " & sisa)

End Sub

7. Jalankan aplikasi dengan menekan tombol F5 (di keyboard), atau melalui ikon Start Debugging di
    toolbar, atau melalui menu Debug > Start Debuging.
8. Simpan aplikasi Anda

Hasilnya dapat di lihat pada gamber dibawah ini :

Untuk mendownload projectnya klik disini