combo Trik

setelah beberapa saat buka2 direktori kerja, saya menemukan file ini. File yang saya buat waktu membantu menyelesaikan permasalah seorang temen dengan combo. Dari pada lumutan di dalam direktori saya posting disini aja ya...
Ini contoh trik combo, tinggal di edit sedikit dan bisa digunakan sesuai keinginan anda.

"sebelumnya sediakan 2 combobox di form anda. copy paste deh..

Private Sub Form_Load()
Dim i As Integer
For i = 1 To Screen.FontCount
Me.Combo1.AddItem Screen.Fonts(i)
Me.Combo2.AddItem Screen.Fonts(i)
Next i
End Sub


'+++++++++++ Coding combo2

Private Sub Combo1_Change()
Dim item As Integer, count As Integer

'deteksi jumlah item di combo
count = Me.Combo1.ListCount - 1

For item = 0 To count
'jika huruf awal = huruf awal item
If LCase$(Me.Combo1.Text) = Left$(LCase(Me.Combo1.List(item)), Len(LCase(Combo1.Text))) Then
'menetapkan isi terpilih
Me.Combo1.ListIndex = item
Exit For
End If
Next item

SendKeys "{F4}"

End Sub


Private Sub Combo1_GotFocus()
SendKeys "{F4}"
End Sub


'+++++++++++ Coding combo2
Private Sub Combo2_GotFocus()
SendKeys "{F4}"
End Sub