Sekarang kita belajar penggunaan Combo Box pada Microsoft Visual Basic, Caranya gax terlalu sulit ko. Saya udah coba mempraktekannya dan inilah hasilnya, buat yang mau belajar boleh ko ikutin cara-caranya sebagai berikut.
1. Langkah pertama seperti biasa buka dulu aplikasi Visual Basicnya lalu buat Form Seperti dibawah ini.
2. Pada gambar diatas menu combo box yang berwarna merah panelnya ada disebelah kiri layar kerja anda, silahkan clik dan buat formnya, kalo udah selesai sekarang kita masukan kode-kodenya ya
Private Sub Cbokode_Change()
Select Case Cbokode.Text
Case “A-SIM-01″
Case “I-EDP-02″
Case “S-MNJ-03″
Case “E-CDR-04″
Case “M-RPL-05″
End Select
End Sub
Masukan kode-kode tersebut pada combo box anda hasilnya seperti gambar disampingnya.
3. Lakngkah selanjutnya kita doble click pada command batal dan masukan kode dibawah ini:
Private Sub Cmdbatal_Click()
Cbokode.SetFocus
Cbokode.Text = “”
Txtjb.Text = “”
Txtpg.Text = “”
Txttt.Text = “”
Txtpb.Text = “”
Txthg.Text = “”
End Sub
4. Doble click pada Command Keluar dan masukan kode dibawah ini:
Private Sub Cmdkeluar_Click()
Unload Me
End Sub
5. Doble click pada Command Lagi dan masukan kode dibawah ini:
Private Sub Cmdlagi_Click()
Cbokode.SetFocus
Cbokode.Text = “”
Txtjb.Text = “”
Txtpg.Text = “”
Txttt.Text = “”
Txtpb.Text = “”
Txthg.Text = “”
End Sub
6. Langkah selanjutnya sekarang kita masukan kode-kode pada command proses, disini lumanyan sedikit susah ni, jadi ikuti benar langkah-langkah yang saya tuliskan ya, ingen jangan sampai ada kode yang salah karna nanti hasilnya pasti eror, ok silahkan lanjutkan langkah selanjutnya.
Private Sub Cmdproses_Click()
Dim jb, pg, tt, pb As String
Dim hg As Currency
pb = Left(Cbokode.Text, 1)
If pb = “A” Then
pb = “Andi Offset Yogyakarta”
ElseIf pb = “I” Then
pb = “Indah Surabaya”
ElseIf pb = “S” Then
pb = “Salemba Empat”
ElseIf pb = “E” Then
pb = “Elek Media Komputindo”
ElseIf pb = “M” Then
pb = “Maxicom”
End If
Txtpb.Text = pb
jb = Mid(Cbokode.Text, 3, 3)
If jb = “SIM” Then
jb = “Sistem Informasi Manajemen”
pg = “Yanti Nur Oktavia”
hg = “75900”
ElseIf jb = “EDP” Then
jb = “Elektronik Data Processing”
pg = “Imam Tarmizi”
hg = “62000”
ElseIf jb = “MNJ” Then
jb = “Manajemen”
pg = “Valentina Mariana Adiwiati”
hg = “42000”
ElseIf jb = “CDR” Then
jb = “Corel Draw”
pg = “Ryan Suhandi”
hg = “53000”
ElseIf jb = “RPL” Then
jb = “Rekayasa Perangkat Lunak”
pg = “Sinta Umpu Singa”
hg = “83000”
End If
Txtjb.Text = jb
Txtpg.Text = pg
Txthg.Text = hg
tt = “20” & Right(Cbokode.Text, 2)
Txttt.Text = tt
End Sub
Private Sub Form_load()
Cbokode.AddItem “A-SIM-01″
Cbokode.AddItem “I-EDP-02″
Cbokode.AddItem “S-MNJ-03″
Cbokode.AddItem “E-CDR-04″
Cbokode.AddItem “M-RPL-05″
End Sub
7. Selesai sudah langkah-langkah pemberian kodenya, langkah terakhir sekarang silahkan anda jalankan form yang sudah kita kerjakan tadi dengan menekan tombol play yang ada pada menu tollbar pada layar kerja microsoft Visual Basic anda. Tampilan tolbarnya seperti pada gambar dibawah ini dan silahkan anda click tombol play seperti pada gambar yang saya tandai pake warna merah.
8. Maka hasilnya akan tampak seperti pada gambar dibawah ini:
9. Silahkan pilih salah satu kode yang ada pada combo box yang anda buat tadi lalu click proses maka hasilnya akan terlihat semua, akan tampil secara otomatis kolom-kolom yang masih kosong tadi, dan selesai sudah langkah kita, silahkan ikuti langkah-langkahnya dan selamat mencoba ya..
Bagikan Artikel ini ke teman Anda...!!!
