VB-Homepage Tipp 283

Systemeigene Suche verwenden

Sie können selbstverständlich versuchen für Ihr Programm eine eigene Suchen Funktion zu kreieren, das würde Ihnen sicher viele Stunden rege Arbeit verschaffen. Wenn Sie also nicht wissen wohin mit der freien Zeit, dann ist der Tipp nichts für Sie.

Für alle anderen, gibt es hier den Tipp, wie man die systemeigene Suche aus dem Programm heraus aufrufen kann.
Mit ihren vielen Optionen genügt sie sicher den meisten Anforderungen.

Die Vorgehensweise ist allerdings etwas anders, als bei den vielen Möglichkeit systemeigene Dialoge zu nutzen.
Hier wird nicht über Shell32 - APIs zugegriffen, sondern über DDE.

Erstellen Sie sich ein neues Projekt mit einer Form.

Fügen Sie einen CommandButton (Command1) und ein Label Objekt (Label1) der Form hinzu. Das Label-Objekt fungiert hier als DDE-Container.
Als einzige Angabe müssen Sie dem
CommandButton in der Click Aktion folgendes übergeben.

On Error GoTo err_FindFile

With label1
     .LinkTopic = "Folders|AppProperties"
     .LinkMode = vbLinkManual
     .LinkExecute "[Openfindfile(,)]"
End With

Exit Sub

err_FindFile:
MsgBox "FEHLER"

Einen Rückgabewert erwarten Sie hier allerdings vergebens.


Tipp-Download

Quelle : http://alcatraz138.wohnheim.uni-kl.de/vb

Zurück zur Übersichtsseite