Jobs
Author: Dipen Anovadia Date Submitted: 4/15/2006 Category: Microsoft Controls Compatibility: VB 6,VB 5 This code has been accessed 3349 times.
Email Yourself this snippet:
Public Const SHACF_AUTOAPPEND_FORCE_OFF As Long = &H80000000 Public Const SHACF_AUTOAPPEND_FORCE_ON As Long = &H40000000 Public Const SHACF_AUTOSUGGEST_FORCE_OFF As Long = &H20000000 Public Const SHACF_AUTOSUGGEST_FORCE_ON As Long = &H10000000 Public Const SHACF_DEFAULT As Long = &H0 Public Const SHACF_FILESYS_ONLY As Long = &H10 Public Const SHACF_FILESYSTEM As Long = &H1 Public Const SHACF_URLHISTORY As Long = &H2 Public Const SHACF_URLMRU As Long = &H4 Public Const SHACF_USETAB As Long = &H8 Public Const SHACF_URLALL As Long = (SHACF_URLHISTORY Or SHACF_URLMRU) Public Declare Sub SHAutoComplete Lib "shlwapi.dll" (ByVal hwndEdit As Long, ByVal dwFlags As Long)
Code
'NOTE: It may be possible that some old OS version may not support 'this feature... ' 'You can describe various options in 'dwFlags' argument' 'You can also place this SUB in Module, which is recommended. Public Sub EnableAutoComplete() SHAutoComplete Text1.hWnd, SHACF_URLALL + SHACF_AUTOAPPEND_FORCE_ON + SHACF_AUTOSUGGEST_FORCE_ON + SHACF_FILESYSTEM End Sub 'please contact for errors or feedbacks or other informations... 'dippu75@hotmail.com