Melengkapi Isi Combobox di Visual Basic

Agar Lebih Mudah Download saja di sini :

Download Project


Persiapan :

Object	Name	Property	Value
Form	Form1	Text	-
Combo1	Combo1	Text	-
Combo2	Combo2	Text	-
Combo3	Combo3	Text	-
Combo4	Combo4	Text	-
Combo5	Combo5	Text	-

Copykan kode Ini kedalam Form

Option Explicit<br /> Const CB_FINDSTRING = &H14C<br /> Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long<br /> Public Enum EnumKarakter<br /> Asli = 0<br /> Ubah = 1<br /> End Enum<br /> Dim Karakter As EnumKarakter<br /> Private Sub isisemuacombobox()<br /> Dim ctrl As Control<br /> For Each ctrl In Form1.Controls<br /> If TypeOf ctrl Is ComboBox Then<br /> With ctrl<br /> .AddItem "Amrullah"<br /> .AddItem "Iswadi"<br /> .AddItem "Cut Maria Aini"<br /> .AddItem "Zoel Fathi fauzan"<br /> .AddItem "M.Nasir"<br /> .AddItem "Azhari"<br /> .AddItem "Cut Siti Meutia"<br /> .Text = .List(0)<br /> End With<br /> End If<br /> Next<br /> <br /> End Sub<br /> Private Sub Combo1_KeyPress(KeyAscii As Integer)<br /> KeyAscii = AutoComplete(Combo1, KeyAscii, True, Asli)<br /> End Sub<br /> <br /> Private Sub Combo2_KeyPress(KeyAscii As Integer)<br /> KeyAscii = AutoComplete(Combo2, KeyAscii, False, Ubah)<br /> <br /> End Sub<br /> <br /> Private Sub Combo3_KeyPress(KeyAscii As Integer)<br /> KeyAscii = AutoComplete(Combo3, KeyAscii, True, Ubah)<br /> End Sub<br /> <br /> Private Sub Combo4_KeyPress(KeyAscii As Integer)<br /> KeyAscii = AutoComplete(Combo4, KeyAscii, False, Asli)<br /> <br /> End Sub<br /> <br /> Private Sub Combo5_KeyPress(KeyAscii As Integer)<br /> KeyAscii = AutoComplete(Combo5, KeyAscii)<br /> End Sub<br /> <br /> Private Sub Form_Load()<br /> isisemuacombobox<br /> End Sub<br /> Public Function AutoComplete(cbCombo As ComboBox, sKeyAscii As Integer, Optional bUpperCase As Boolean = True, Optional cCharacter As EnumKarakter = Asli) As Integer<br /> Dim lngFind As Long, intPos As Integer<br /> Dim intLength As Integer, tStr As String<br /> With cbCombo<br /> If sKeyAscii = 8 Then<br /> If .SelStart = 0 Then Exit Function<br /> .SelStart = .SelStart - 1<br /> .SelLength = 32000<br /> .SelText = ""<br /> Else<br /> intPos = .SelStart<br /> tStr = .Text<br /> If bUpperCase = True Then<br /> .SelText = UCase(Chr(sKeyAscii))<br /> Else 'bUpperCase = KecilSemua Then<br /> .SelText = (Chr(sKeyAscii))<br /> End If<br /> lngFind = SendMessage(.hwnd, CB_FINDSTRING, 0, ByVal .Text)<br /> If lngFind = -1 Then<br /> .Text = tStr<br /> .SelStart = intPos<br /> .SelLength = (Len(.Text) - intPos)<br /> AutoComplete = 0<br /> Exit Function<br /> Else<br /> intPos = .SelStart<br /> intLength = Len(.List(lngFind)) - Len(.Text)<br /> If cCharacter = Ubah Then<br /> .SelText = .SelText & Right(.List(lngFind), intLength)<br /> .Text = .List(lngFind)<br /> End If<br /> .SelStart = intPos<br /> .SelLength = intLength<br /> End If<br /> End If<br /> End With<br /> End Function<br />

Jalankan dengan Menekan F5 pada Keyboard
Good Luck

Topik lain