• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Auto selection

Auto selection

Auto selection

API Declarations


'programmed By:Prabir Das
'Email:[email protected]

Dim i, comp1, comp3 As Integer
Dim comp, comp2, litem As String



Rate Auto selection

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

List1.AddItem "Prabir"
List1.AddItem "Pronit"
List1.AddItem "Amit"
List1.AddItem "Shubhankar"
List1.AddItem "Abhijit"
List1.AddItem "Abhi"
List1.AddItem "Amitabh"
End Sub

Private Sub Text1_Change()

 comp = Text1.Text
 
 'comp1 = Len(Text1.Text)
    For i = 0 To List1.ListCount - 1
   
'comp1 = CInt(comp)

    
    'comp = Text1.Text
    
    litem = List1.List(i)
    
    comp2 = Left(litem, comp1)

        If comp = comp2 Then
            List1.Selected(i) = True
        End If
    Next
End Sub