Jumat, 13 Januari 2012

Cara membuat combobox menggunakan VB.Net

Tulisan kali ini saya akan membagi cara membuat combobox dengan menggunakan VB.Net. Ada dua cara yang ingin saya bagikan saat ini, petama dengan menggunakan CASE dan yang ke dua dengan menggunakan If. untuk lebih jelasnya saya langsung aja menuliskan caranya
Pertama buat formnya dulu :

dan ketikan source kode untuk menambahkan items pada cobbox nya yaitu sepet ini :
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ComboBox1.Items.Clear()
ComboBox1.Items.Add("Paket 1")
ComboBox1.Items.Add("Paket 2")
ComboBox1.Items.Add("Paket 3")
ComboBox1.Items.Add("Paket 4")
End Sub

Dan untuk source code untuk mengisi textbox1,2 dst, Menggunakan perintah case adalah :

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Select Case (Me.ComboBox1.Text)
Case ("Paket 1")
Me.TextBox1.Text = "Rendang"
Me.TextBox2.Text = "Teh Manis"
Me.TextBox3.Text = "11000"
Case ("Paket 2")
Me.TextBox1.Text = "Ayam Goreng"
Me.TextBox2.Text = "Juice jeruk"
Me.TextBox3.Text = "15000"
Case ("Paket 3")
Me.TextBox1.Text = "Nasi Goreng"
Me.TextBox2.Text = "Es Teh"
Me.TextBox3.Text = "8000"
Case Else
Me.TextBox1.Text = "Nasi Bakar"
Me.TextBox2.Text = "Kopi"
Me.TextBox3.Text = "17000"
End Select
End Sub

Dan jika sobat ingin menggunakan perintah if caranya adalah seperti berikut :
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
If ComboBox1.Text = "Paket 1" Then
Me.TextBox1.Text = "Rendang"
Me.TextBox2.Text = "Teh Manis"
Me.TextBox3.Text = "110000"
ElseIf ComboBox1.Text = "Paket 2" Then
Me.TextBox1.Text = "Ayam Goreng"
Me.TextBox2.Text = "Juice Jeurk"
Me.TextBox3.Text = "150000"
ElseIf ComboBox1.Text = "Paket 3" Then
Me.TextBox1.Text = "Nasi Goreng"
Me.TextBox2.Text = "Es Teh"
Me.TextBox3.Text = "80000"
Else
Me.TextBox1.Text = "Nasi Bakar"
Me.TextBox2.Text = "Kopi"
Me.TextBox3.Text = "170000"
End If
End Sub

Sekarang sobat tinggal pilih mau menggunakan Case atau IF, selamat mecoba dan semoga bermanfaat./** Informasi Komputer d **/var sitti_pub_id = "BC0012233";var sitti_ad_width = "336";var sitti_ad_height = "280";var sitti_ad_type = "2";var sitti_ad_number = "3";var sitti_ad_name = "Informasi Komputer d";var sitti_dep_id = "24892";

View the original article here

Peliculas Online

1 komentar: