Die Community zu .NET und Classic VB.
Menü

VB 5/6-Tipp 0203: Eigenschaftsdialog aufrufen

 von 

Beschreibung 

Der typische, bekannte Dateieigenschaftsdialog (wow was ein Wort) läßt sich via ShellExecute sehr einfach aufrufen.

Schwierigkeitsgrad:

Schwierigkeitsgrad 1

Verwendete API-Aufrufe:

ShellExecuteEx

Download:

Download des Beispielprojektes [2 KB]

'Dieser Quellcode stammt von http://www.activevb.de
'und kann frei verwendet werden. Für eventuelle Schäden
'wird nicht gehaftet.

'Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
'Ansonsten viel Spaß und Erfolg mit diesem Source!

'------------- Anfang Projektdatei Project1.vbp -------------
'--------- Anfang Formular "Form1" alias Form1.frm  ---------
' Steuerelement: Schaltfläche "Command1"


'Dank an JoWolff

Option Explicit

Private Declare Function ShellExecuteEx Lib "shell32.dll" _
        (ShellExExInfo As SHELLEXECUTEINFO) As Long
        
Const SEE_MASK_INVOKEIDLIST = &HC
Const SEE_MASK_NOCLOSEPROCESS = &H40
Const SEE_MASK_FLAG_NO_UI = &H400

Private Type SHELLEXECUTEINFO
  cbSize As Long
  fMask As Long
  hwnd As Long
  lpVerb As String
  lpFile As String
  lpParameters As String
  lpDirectory As String
  nShow As Long
  hInstApp As Long
  lpIDList As Long
  lpClass As String
  hkeyClass As Long
  dwHotKey As Long
  hIcon As Long
  hProcess As Long
End Type

Private Sub Command1_Click()
  Dim ShInfo As SHELLEXECUTEINFO
  
    With ShInfo
      .cbSize = Len(ShInfo)
      .fMask = SEE_MASK_NOCLOSEPROCESS _
               Or SEE_MASK_INVOKEIDLIST _
               Or SEE_MASK_FLAG_NO_UI
      .hwnd = Me.hwnd
      .lpVerb = "properties"
      .lpFile = App.Path & "\Form1.frm"
      .lpIDList = 0
    End With

    Call ShellExecuteEx(ShInfo)
End Sub
'---------- Ende Formular "Form1" alias Form1.frm  ----------
'-------------- Ende Projektdatei Project1.vbp --------------

Tipp-Kompatibilität:

Windows/VB-VersionWin32sWin95Win98WinMEWinNT4Win2000WinXP
VB4
VB5
VB6

Hat dieser Tipp auf Ihrem Betriebsystem und mit Ihrer VB-Version funktioniert?

Ja, funktioniert!

Nein, funktioniert nicht bei mir!

VB-Version:

Windows-Version:

Ihre Meinung  

Falls Sie Fragen zu diesem Artikel haben oder Ihre Erfahrung mit anderen Nutzern austauschen möchten, dann teilen Sie uns diese bitte in einem der unten vorhandenen Themen oder über einen neuen Beitrag mit. Hierzu können sie einfach einen Beitrag in einem zum Thema passenden Forum anlegen, welcher automatisch mit dieser Seite verknüpft wird.

Archivierte Nutzerkommentare 

Klicken Sie diesen Text an, wenn Sie die 1 archivierten Kommentare ansehen möchten.
Diese stammen noch von der Zeit, als es noch keine direkte Forenunterstützung für Fragen und Kommentare zu einzelnen Artikeln gab.
Aus Gründen der Vollständigkeit können Sie sich die ausgeblendeten Kommentare zu diesem Artikel aber gerne weiterhin ansehen.

Kommentar von HenryF am 08.07.2003 um 14:56

Wie ist es möglich diesen Tipp auch für mehrere Dateien zu nutzen? Also ich habe im Verzeichnis nicht nur die Datei Form1.frm sondern noch weitere z.B. Form1.frx und Projekt1.vbp und möchte jetzt, daß die Eigenschaften aller Dateien angezeigt werden, so als wenn ich im Explorer alle Dateien markiere und dann Eigenschaften anzeigen wähle.

Danke HF