Cobalah buat menu pesanan menggunakan list box dengan form yang sagat sederhana pada aplikasi Visual Basic kalian, list box sendiri fungsinya untuk menapilkan beberapa daftar pilihan kita tinggal memilih yang ada pada listbox, pertama-tama buka Visual Basicnya, pilih file, new project, windows form, berinama frListBox dan add.
Berikut ini beberapa komponen dan properties dari form listbox
Komponen
|
Properti
|
Nilai
|
frListBox
|
Size
|
350; 280 (ukuran boleh bebas)
|
Text
|
Warung Makan Pak Eko
|
|
Label1
|
Text
|
Daftar Makanan
|
Font > Size
|
14 (bebas boleh)
|
|
ListBox
|
Text
|
(kosongkan)
|
Items
|
Sop ikan hiu
Semur terlur burung unta
Nasi ayam spesial
cap cay
Nasi kuning
Lontong sayur
|
|
Selection Mode
|
Multiextended
|
|
Label2
|
Text
|
Pesanan
|
Font Size
|
14 (bebas boleh)
|
|
Textbox1
|
Multiline
|
True
|
Size
|
151; 172
|
|
Button1
|
Text
|
Tampilkan Pesanan
|
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim pesanan As String
Dim i As Integer
pesanan = ""
For i = 1 To ListBox1.SelectedItems.Count
pesanan = pesanan + ListBox1.SelectedItems.Item(i - 1) + vbCrLf
Next
TextBox1.Text = pesanan
End Sub
End Class
Dim pesanan As String
Dim i As Integer
pesanan = ""
For i = 1 To ListBox1.SelectedItems.Count
pesanan = pesanan + ListBox1.SelectedItems.Item(i - 1) + vbCrLf
Next
TextBox1.Text = pesanan
End Sub
End Class
Jalankan programnya dengan menekan F5 atau klik tombol run di menu begian atas.
0 komentar: