Masih meneruskan tutorial Sebelumnya, Sekarang saya masih akan membahas tentang combobox, jika kemaren combobox bisa multi column dengan data diambil dari database, sekarang kita membahas combobox dengan icon dan combobox multi select tanpa database.
1. Buat projeck baru dengan VB6
2. Tambahkan control OsenxpSuite kedalam toolbox. Klik Project>Componet. Cari dan centang OsenXPSuite 2006
3. Tambahkan 2 OsenXPComboBox, 1 OsenXPButton, 1 OsenXPListbox
4. Masukan kode berikut kedalam codingan
Form 1 Code
Private Sub Form_Load()
OsenXPForm1.DrawGradientForm = True
OsenXPComboBox1.AddItem "Disket", NormalIcon:=0
OsenXPComboBox1.AddItem "CPU", NormalIcon:=1
OsenXPComboBox1.AddItem "Restore", NormalIcon:=2
OsenXPComboBox2.Style = CheckBox
OsenXPComboBox2.AddItem " Buku"
OsenXPComboBox2.AddItem " Pensil"
OsenXPComboBox2.AddItem " Pengahapus"
End Sub
Private Sub OsenXPButton1_Click()
OsenXPListBox1.Clear
For i = 0 To OsenXPComboBox2.ListCount - 1
If OsenXPComboBox2.Selected(i) Then
OsenXPListBox1.AddItem OsenXPComboBox2.List(i)
End If
Next
End Sub
Silahkan di download dan dikomentari
Download Source Code
Download OsenXP Suite 2006 Setup
Download OsenXp Suite 2006 Key