![]() |
Tipp 0085
|
Auto-Vervollständigung des IE nutzen
|
 |
|
Autor/Einsender: Datum: |
|
Detlev Schubert 20.06.2001 |
|
Entwicklungsumgebung: |
|
VB 6 |
|
|
Mit der Eingabezeile der Webadresse besitzt der Internet
Explorer ein Feature, dass bereits beim Eingeben eine Liste der vorausgegangenen übereinstimmenden Einträge
anzeigt. Diese Auto-Vervollständigung von Webadressen und
der bereits eingegebenen Daten aus den Kommandozeilen, wie
z.B. "Ausführen" unter Start, kann mit ein
klein wenig Geschick unter Verwendung der API-Funktion SHAutoComplete
der "Shell Light-weight Utility Library" auch in
eigenen Programmen genutzt werden.
|
|
|
Option Explicit
Private Declare Function SHAutoComplete Lib "shlwapi" (ByVal _
hWnd As Long, ByVal dwFlags As Long) As Long
Private Const SHACF_DEFAULT = &H0
Private Const SHACF_FILESYSTEM = &H1
Private Const SHACF_URLHISTORY = &H2
Private Const SHACF_URLMRU = &H4
Private Const SHACF_USETAB = &H8
Private Const SHACF_FILESYS_ONLY = &H10
Private Const SHACF_URLALL = (SHACF_URLHISTORY Or SHACF_URLMRU)
Private Const SHACF_AUTOSUGGEST_FORCE_ON = &H10000000
Private Const SHACF_AUTOSUGGEST_FORCE_OFF = &H20000000
Private Const SHACF_AUTOAPPEND_FORCE_ON = &H40000000
Private Const SHACF_AUTOAPPEND_FORCE_OFF = &H80000000
Private Sub Form_Load()
EnableAutoComplete Text1.hWnd, 0&
End Sub
Function EnableAutoComplete(hWnd As Long, dwFlags As Long) _
As Boolean
On Error GoTo Err_AutoComplete
SHAutoComplete hWnd, dwFlags
EnableAutoComplete = True
Exit Function
Err_AutoComplete:
EnableAutoComplete = False
End Function
|
|
|
|
|
|
Um diesen Tipp nutzen zu können, muss der Internet
Explorer ab Version 4.0 installiert sein.
|
|
Windows-Version |
95 |
 |
|
98/SE |
 |
|
ME |
 |
|
NT |
 |
|
2000 |
 |
|
XP |
 |
|
Vista |
 |
|
Win
7 |
 |
|
|
VB-Version |
VBA 5 |
 |
|
VBA 6 |
 |
|
VB 4/16 |
 |
|
VB 4/32 |
 |
|
VB 5 |
 |
|
VB 6 |
 |
|
|
|
Download (3
kB)
|
Downloads bisher: [ 1141 ]
|
|
|