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. dan kali ini saya akan mencoba untuk menuliskan kedua cara tersebut. caranya cukup gampang ko sob,sobat tinggal buat formnya dulu, untuk gambaran formnya saya buat kira-kira seperti ini,

Untuk menambahkan item pada combobox nya sobat klik 2x di form nya lalu ketikan perintah seperti 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, dengan menggunakan perintah case sobat bisa lihat source code nya dibawah ini

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

Atau sobat lebih tertarik dengan menggunakan if, jika sobat lebih tertarik menggunakan if saya juga telah tuliskan source codenya, silahkan sobat lihat source codenya

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.