تعرف على طريقة الاكمال التلقائي في combo Box

لكي يتم اكمال ما تقوم بكتابة في مربع السرد Combo box

طلبت مني اليوم في برنامج وهاهي الطريقة للاستفادة

اولا عرف متغير عام لحفظ مفتاح الحرف

Option Explicit

Private vKeyCode As Integer

الاجراء

Public Sub AutoComplete(ByVal sComboBox As ComboBox, ByVal KeyCode As Integer)

Dim Counter As Integer
Dim Length As Integer

    With sComboBox
        If .Text = "" Then Exit Sub
    
        If KeyCode = vbKeyBack Or KeyCode = vbKeyDelete Then
            KeyCode = 0
            Exit Sub
        End If
        
        For Counter = 0 To .ListCount - 1
            Length = Len(.Text)
            If Mid(.List(Counter), 1, Len(.Text)) = .Text Then
                .Text = .List(Counter)
                .SelStart = Length
                .SelLength = Len(.Text)
                .ListIndex = Counter
                Exit For
            End If
        
        Next
    End With
    
End Sub

قم ياستدعاء الاجرائية من داخل المربع في حدث Change

Private Sub Combo1_Change()

    Call AutoComplete(Combo1, vKeyCode)
    
End Sub