by Peter Elisa SOuhoka (21 Submissions)
Category: Miscellaneous
Compatability: VB.NET
Difficulty: Unknown Difficulty
Originally Published: Thu 5th June 2008
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Auto Complete
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