Simulate an Outlook Address Book Records Selection

This tip shows how to simulate the look of an Oultlook address book records selection.

  • Open a New VB Project and add a New Form with 1 Text Box and a List Box.
  • Copy this code and you are set to go:
  •  	Private Sub Text1_Change()	    	    Dim intI As Integer	    Dim strTmp As String	    	    strTmp = Text1.Text	    intI = MatchList(strTmp, List1) 'Call the Function	    	    If intI >= 0 Then	        List1.ListIndex = intI	        List1.TopIndex = intI	    End If	End Sub	Function MatchList(strIn As String, listIn As ListBox) As Integer	'------------------------------------------------------------	'Function to match the typed string from an existing list box	'NOTE : The list should be sorted	'------------------------------------------------------------	    Dim blnMatchFound As Boolean	    Dim intI As Integer	    Dim intstrLength As Integer	    Dim strFirstLetter As String	    	    intstrLength = Trim(Len(strIn))	    strFirstLetter = UCase(Left(Trim(strIn), 1))	    	    '*** Search for exact match ***	    For intI = 0 To listIn.ListCount - 1	     If Left(UCase(listIn.List(intI)), intstrLength) LikeUCase(strIn) Then	         blnMatchFound = True	         MatchList = intI	         Exit Function	     End If	    Next	    	    '*** Search for After/Before strings (if no match has beenfound) ***	    If blnMatchFound = False Then	        For intI = 0 To listIn.ListCount - 1	          If Left(UCase(listIn.List(intI)), 1) >UCase(strFirstLetter) Then	              blnMatchFound = True	              MatchList = intI	              Exit Function	          Else	              blnMatchFound = True	              MatchList = intI	          End If	        Next	    End If	    	End Function	Private Sub Form_Load()	    List1.AddItem

    Share the Post:
    Share on facebook
    Share on twitter
    Share on linkedin


    The Latest

    technology leadership

    Why the World Needs More Technology Leadership

    As a fact, technology has touched every single aspect of our lives. And there are some technology giants in today’s world which have been frequently opined to have a strong influence on recent overall technological influence. Moreover, those tech giants have popular technology leaders leading the companies toward achieving greatness.

    iOS app development

    The Future of iOS App Development: Trends to Watch

    When it launched in 2008, the Apple App Store only had 500 apps available. By the first quarter of 2022, the store had about 2.18 million iOS-exclusive apps. Average monthly app releases for the platform reached 34,000 in the first half of 2022, indicating rapid growth in iOS app development.

    microsoft careers

    Top Careers at Microsoft

    Microsoft has gained its position as one of the top companies in the world, and Microsoft careers are flourishing. This multinational company is efficiently developing popular software and computers with other consumer electronics. It is a dream come true for so many people to acquire a high paid, high-prestige job