• Home
 · 
• Miscellaneous
 · 
• Auto Complete

Auto Complete

Auto Complete

Rate Auto Complete

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Private Declare Function SHAutoComplete Lib "Shlwapi.dll" _
        (ByVal hWndEdit As Long, _
        ByVal dwFlags As Long) As Long

Public Enum SHAC_Constants
    Default = &H0
    FileSystem = &H1
    URLHistory = &H2
    URLMRU = &H4
    URLAll = (&H2 Or &H4)
End Enum

Public Sub AutoComplete(txtItem As TextBox, lngType As SHAC_Constants)
    On Error GoTo ErrHandler

    SHAutoComplete txtItem.hWnd, lngType
    
    Exit Sub
   
ErrHandler:
End Sub

Private Sub Form_Load()
  AutoComplete Text1, Default
End Sub