ComboBox dan
ListBox
1.
Tambahkan
Form baru, dengan dengan cara klik kanan pada Prak2. Klik Add, pilih Windows Form … . Beri nama Form2
2.
Buatlah
desain Tampilan form seperti gambar berikut in
i :
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