Tipp 0324 Windows-Suchen-Dialog anzeigen
Autor/Einsender:
Datum:
  Markus Schutz
02.04.2003
Entwicklungsumgebung:   VB 5
Dieser Tipp zeigt wie man mit Hilfe der API-Funktion ShellExecute den Windows-Suchen-Dialog mit einem vorgegebenen 'Suchen in'-Verzeichnis anzeigen kann.
 
Option Explicit

Private Declare Function ShellExecute Lib "shell32.dll" Alias _
      "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation _
      As String, ByVal lpFile As String, ByVal lpParameters _
      As String, ByVal lpDirectory As String, ByVal nShowCmd _
      As Long) As Long

Private Const SW_SHOWNORMAL = 1

Private Sub cmd_Suchen_Click()
  On Error GoTo err_Handler

  Dim strStartPath As String

  strStartPath = Dir1.Path
  ShellExecute Me.hwnd, "find", strStartPath, "", "C:\", _
        SW_SHOWNORMAL
  Exit Sub

err_Handler:
  MsgBox "Es ist ein allgemeiner Fehler aufgetreten." & vbCrLf & _
          vbCrLf & "Fehlernummer: " & Err.Number & vbCrLf & _
          "Fehlerbeschreibung: " & Err.Description, vbOKOnly + _
          vbCritical, "Allgemeiner Fehler"
End Sub
 
Weitere Links zum Thema
Windows-Ausführen-Dialog anzeigen
Windows-Beenden-Dialog anzeigen
Windows-Öffnen-mit-Dialog anzeigen
Windows-Restart-Dialog anzeigen

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: [ 1156 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Projekte | Tutorials | API-Referenz | VB-/VBA-Tipps | Komponenten | Bücherecke | VB/VBA-Forum | VB.Net-Forum | DirectX-Forum | Foren-Archiv | DirectX | VB.Net-Tipps | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Samstag, 20. August 2011