VB - Combo box (1)

Sebenarnya saya bingung untuk judul dan menjelaskan apa yang akan saya share pada postingan kali ini mungkin karena saya lagi puasa kali ya?? :D, oh iya selamat menunaikan ibadah puasa untuk umat muslim yak :)

langkah 1

ok kali ini saya akan share tentang penggunaan combobox pada vb 6.0 nah untuk itu, komponen yang kita perlukan adalah 1 form, 4 label (1 label dijadikan sebagai objek "BOZSCRIPT") dan 3 combobox jadi kita pakai projectnya yang standar saja. nah desain komponen-komponen tersebut seperti gambar dibawah ini :

tutorial vb
tapi jangan lupa ubah name yang ada pada propeties dari masing-masing combobox tersebut,
untuk combo1 diganti menjadi combowarna, combo2 diganti combosize, dan combo3 diganti dengan combofont.

langkah 2

jika sudah selesai pada langkah pertama sekarang kita mengisi script/perintah,  pertama klik dua kali di form untuk masuk ke tampilan yang seperti pada gambar dibawah.

disini kita bakal buat pilihan-pilihan pada masing-masing combobox, pada form load ketikkan script dibawah ini:
Combowarna.AddItem "Biru"
Combowarna.AddItem "Putih"
Combowarna.AddItem "Merah"
Combowarna.AddItem "Kuning"
Combowarna.AddItem "Hijau"

Combosize.AddItem "12"
Combosize.AddItem "14"
Combosize.AddItem "18"
Combosize.AddItem "20"
Combosize.AddItem "25"

Combofont.AddItem "Times New Roman"
Combofont.AddItem "Arial"
Combofont.AddItem "Algerian"
Combofont.AddItem "Jokerman"
Combofont.AddItem "Calibri"

script diatas digunakan untuk menampilkan pilihan pada masing-masing combobox

langkah 3

nah sekarang kita akan memberikan script atau perintah dimasing-masing pilihan pada combobox lalu ketikkan script dibawah ini :
Private Sub Combowarna_Click()
If Combowarna.Text = "Biru" Then
Label1.ForeColor = vbBlue
ElseIf Combowarna.Text = "Putih" Then
Label1.ForeColor = vbWhite
ElseIf Combowarna.Text = "Merah" Then
Label1.ForeColor = vbRed
ElseIf Combowarna.Text = "Kuning" Then
Label1.ForeColor = vbYellow
ElseIf Combowarna.Text = "Hijau" Then
Label1.ForeColor = vbGreen
End If
End Sub
jadi disetiap kali kita memlih warna pada combobox ini maka warna dari tulisan yg ada pada objek "BOZSCRIPT" akan berubah.

langkah 4

kemudian kita lanjut untuk mengisi combosize, untuk itu ketikkan script yg ada dibawah ini :
If Combosize.Text = "12" Then
Label1.FontSize = 12
ElseIf Combosize.Text = "14" Then
Label1.FontSize = 14
ElseIf Combosize.Text = "18" Then
Label1.FontSize = 18
ElseIf Combosize.Text = "20" Then
Label1.FontSize = 20
ElseIf Combosize.Text = "25" Then
Label1.FontSize = 25
End If

jadi disetiap kali kita memlih warna pada combobox ini maka font size dari tulisan yg ada pada objek "BOZSCRIPT" akan berubah.

langkah 5

yg terakhir kita aka mengubah jenis font yg ada pada objek "BOZSCRIPT" dengan menggunkan combobox ketikkan script dibawah ini :

Private Sub Combofont_Click()
If Combofont.Text = "Times New Roman" Then
Label1.Font = "Times New Roman"
ElseIf Combofont.Text = "Arial" Then
Label1.Font = "Arial"
ElseIf Combofont.Text = "Algerian" Then
Label1.Font = "Algerian"
ElseIf Combofont.Text = "Jokerman" Then
Label1.Font = "Jokerman"
ElseIf Combofont.Text = "Calibri" Then
Label1.Font = "Calibri"
End If
End Sub


jadi disetiap kali kita memlih warna pada combobox ini maka jenis font dari tulisan yg ada pada objek "BOZSCRIPT" akan berubah.

jika sudah selesai sekarang kita tinggal menjalankan program ini yaitu dengan menekan (F5) pada keyboard.

Hasil Akhir

sekian dulu tutorialnya VB 6.0 mengenai penggunaan combobox sampai jumpa di tutorial selanjutnya, semoga bermanfaat :)

Eko Putra Nasaru

Phasellus facilisis convallis metus, ut imperdiet augue auctor nec. Duis at velit id augue lobortis porta. Sed varius, enim accumsan aliquam tincidunt, tortor urna vulputate quam, eget finibus urna est in augue.

No comments:

Post a Comment