menampilkan textbox otomatis di VB 2008

malem temen.....kali ini ane mau ngelanjutin postingan yang tentang VB ne....heheheh
walaupun ane belum mahir dalam VB...tapi ane tetep berusaha untuk bisa lebih baek ne....
oke langsung aja ya....
pada postingan kali ini ane pengen ngasih tau gimana sih caranya biar text box tampil secara otomatis jika kita memilih pilihan dari combo box di VB 2008.kemudian akan tampil didalam datagridview..
oke dari pada lama2 sebelum  ane lupa mending langsung aja kita perang heheheh (lebay)
oke tool yang akan kita gunakan kali ini adalah label,combobox,textbox,button dan datagridview
pertama bikin tampilan seperti berikut di form dengan keterangan kode barang akan diinputkan dengan combobox dan nama barang diinputkan dari textbox,langsung aja ke tampilan sederhana nya


isikan combobox dengan cara klik combobox trus klik tanda panah kecil di atas kanan combobox kemudian pilih edit items dan kemudian isikan terserah agan.....
tapi kalo disini harus diisi ini gan
PC
LTP
MNT
VGA
kalo udah sekarang gantian datagridview yang kita tambahkan item nya....caranya sama seperti menambah item dicombobox yaitu klik datagridview,klik tanda panah di atas kanan,kemudian pilih add column kemudian di column1 di header text ganti nama column1 dengan kode barang,kemudian klik add,dan di column2 di header text ganti nama column2 dengan Nama Barang.kalo udah saatnya mengkoding ria.....
hehehehe
masukkan koding berikut di dalam combobox :
 If ComboBox1.SelectedItem = "PC" Then
            TextBox1.Text = "Personal Computer"
        ElseIf ComboBox1.SelectedItem = "LTP" Then
            TextBox1.Text = "Laptop"
        ElseIf ComboBox1.SelectedItem = "MNT" Then
            TextBox1.Text = "Monitor"
        ElseIf ComboBox1.SelectedItem = "VGA" Then
            TextBox1.Text = "Video Grapic Adapter"
        End If

kalo udah sekarang gantian masukan koding di button Add tujuannya untuk menampilkan data di datagridview,berikut kodingnya
Dim kode As String = ComboBox1.SelectedItem
        Dim nama As String = TextBox1.Text
        DataGridView1.Rows.Add(kode, nama)
maka akan muncul tampilan seperti berikut

 jika kita memilih salah satu item di combobox yaitu dilabel kode barang maka di textbox nama barang akan muncul secara otomatis
 keterangan
-PC = personal Computer
-LTP = Laptop
-MNT = monitor
-VGA = Video Grapic Adapter
dan jika kita klik button add akan muncul di data gridview seperti berikut


hehehehehhehe
lumayan simple ya temen-temen....semoga postingan kali ini akan bermanfaat ya buat temen-temen semua