Cara Agar Teks Lengkap Secara Otomatis di ComboBox

Di tutorial sebelumnya saya sudah menjelaskan tentang Cara Agar Combo Box Menampilkan Isi itemnya secara otomatis, masih dengan toolbox yang sama, kali ini kita akan membuat Item / teks yang ada di combo box tertulis secara lengkap ketika mengetikan sebuah kalimat secara otomatis, mudahnya ketika kita menuliskan sebuah kata di combo box (misal) "Visu", otomatis akan lengkap dengan sendirinya menjadi "Visual Basic", sehingga memudahkan kita atau user dalam mengisi sebuah form, untuk membuatnya :

1. Jalankan VB dengan Project standar Exe

2. Lalu tambahkan 1 buah module dan tambahkan script berikut :

Option Explicit

Const CB_Find = &H14C

Public Declare Function SendMessage Lib "user32" _Alias "SendMessageA" (ByVal hwnd As Long, _ByVal wMsg As Long, ByVal wParam As Long, _lParam As Any) As Long

Public Enum EnumKarakterAsli = 0Ubah = 1End Enum

Public Function Auto( _cbCombo As ComboBox, _sKeyAscii As Integer, _Optional bUpperCase As Boolean = True, _Optional cCharacter As EnumKarakter = Asli) _As IntegerDim lngFind As Long, intPos As IntegerDim intLength As Integer, tStr As StringWith cbComboIf sKeyAscii = 8 ThenIf .SelStart = 0 Then Exit Function.SelStart = .SelStart - 1.SelLength = 32000.SelText = ""ElseintPos = .SelStarttStr = .TextIf bUpperCase = True Then.SelText = UCase(Chr(sKeyAscii))Else.SelText = (Chr(sKeyAscii))End IfEnd If

lngFind = SendMessage(.hwnd, CB_Find, 0, _ByVal .Text)If lngFind = -1 ThenExit FunctionElseintPos = .SelStartintLength = Len(.List(lngFind)) - Len(.Text)If cCharacter = Ubah Then.SelText = .SelText & Right(.List(lngFind), _intLength)Else.Text = .List(lngFind)End If.SelStart = intPos.SelLength = intLengthEnd IfEnd WithEnd Function

3. Jika sudah tambahkan satu combo box, tanpa melakukan perubahan apapun termasuk name, tuliskan script berikut :

'Script untuk memanggil fungi Auto dan memasangnya di Combo box
Private Sub Combo1_KeyPress(KeyAscii As Integer)
KeyAscii = Auto(Combo1, KeyAscii, False, Asli)
End Sub

Private Sub Form_Load()
With Combo1
.Text = ""
.clear
.AddItem "Blues Pedia"
.AddItem "Tutorial"
.AddItem "Visua Basic"
.AddItem "Auto Complete"
.AddItem "Combo Box"
.AddItem "Succes"
End With
End Sub

4. Jika sudah, jalankan program
tuliskan beberapa huruf pada texbox, maka otomatis combo box akan melengkapinya,

Sekian tutorial kali ini semoga bermanfaat