| 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: Einen Rückgabewert erwarten Sie hier allerdings vergebens. |
| Tipp-Download |
| Quelle : http://alcatraz138.wohnheim.uni-kl.de/vb |
 |