vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
DTA-Dateien erstellen inkl. BLZ-/Kontonummernpr?fung  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Newsletter  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2016
 
zurück
Rubrik: Dateisystem · Dateien allgemein   |   VB-Versionen: VB4, VB5, VB616.01.02
Datei-Eigenschaften Dialog anzeigen

Dieses Beispiel ziegt, wie sich der Windows Datei-Eigenschaften Dialog aufrufen lässt.

Autor:   Dieter OtterBewertung:     [ Jetzt bewerten ]Views:  18.713 
www.tools4vb.deSystem:  Win9x, WinNT, Win2k, WinXP, Vista, Win7, Win8, Win10 Beispielprojekt auf CD 

Summer-Special bei Tools & Components!
Gute Laune Sommer bei Tools & Components
Top Summer-Special - Sparen Sie teilweise bis zu 120,- EUR
Alle sev-Entwicklerkomponenten und Komplettpakete jetzt bis zu 25% reduziert!
zum Beispiel:
  • Developer CD nur 479,20 EUR statt 599,- EUR
  • sevDTA 2.0 nur 224,30 EUR statt 299,- EUR
  •  
  • vb@rchiv   Vol.6 nur 20,00 EUR statt 24,95 EUR
  • sevCoolbar 3.0 nur 55,20 EUR statt 69,- EUR
  • - Werbung -Und viele weitere Angebote           Aktionspreise nur für kurze Zeit gültig

    Jeder kennt ihn - den "Datei-Eigenschaften"-Dialog von Windows. Aktiviert wird der Dialog über das Kontextmenü einer Datei im Windows Explorer. Der Dialog zeigt die wichtigsten Eigenschaften einer Datei an, wie Erstellungsdatum, Dateiattribute, Version einer Datei u.a.

    Mit der Windows API Funktion ShellExecuteEx können Sie den Datei-Eigenschaften Dialog auch aus Ihrerm VB-Programm heraus starten und anzeigen.

    ' zunächst die benötigten API-Deklarationen
    Private Declare Function ShellExecuteEx Lib "shell32.dll" ( _
      LPSHELLEXECUTEINFO As SHELLEXECUTEINFO) As Long
     
    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 Const SEE_MASK_FLAG_NO_UI = &H400
    Private Const SEE_MASK_INVOKEIDLIST = &HC
    Private Const SEE_MASK_NOCLOSEPROCESS = &H40
    ' Datei-Eigenschaften Dialog anzeigen
    Public Sub ShowFileInfoDlg(ByVal hWnd As Long, _
      ByVal sFilename As String)
     
      Dim FILEINFO As SHELLEXECUTEINFO
     
      With FILEINFO
        .cbSize = Len(FILEINFO)
        .fMask = SEE_MASK_FLAG_NO_UI Or _
          SEE_MASK_INVOKEIDLIST Or _
          SEE_MASK_NOCLOSEPROCESS
        .hWnd = hWnd
        .lpVerb = "properties"
        .lpFile = sFileName
      End With
     
      Call ShellExecuteEx(FILEINFO)
    End Sub

    Beispiel
    Nehmen Sie ein Formular und plazieren darauf ein File-, ein Dir-, und ein Drive-Steuerelement. Fügen Sie nachfolgenden Code in den Codeteil der Form ein:

    Private Sub Dir1_Change()
      ' Verzeichnis-Wechsel
      File1.Path = Dir1.Path
      File1.Refresh
    End Sub
    Private Sub Drive1_Change()
      ' Laufwerk-Wechsel
      On Error Resume Next
      Dim sOldDrive As String
      sOldDrive = Left$(Dir1.Path, 2)
     
      ' Laufwerk bereit?
      Dir1.Path = Left$(Drive1.Drive, 2)
      If Err <> 0 Then
        ' Fehler!
        Drive1.Drive = sOldDrive
      Else
        Dir1.Refresh
      End If
    End Sub
    Private Sub File1_DblClick()
      ' Doppelklick - Datei-Eigenschaften anzeigen
      Dim sFilename As String
     
      With File1
        If .ListIndex > -1 Then
          If Right(.Path, 1) = "\" Then
            sFilename = .Path & .List(.ListIndex)
          Else
            sFilename = .Path & "\" & .List(.ListIndex)
          End If
          ShowFileInfoDlg Me.hWnd, sFilename
        End If
      End With
    End Sub

    Starten Sie das Beispiel und doppelklicken Sie auf einen Eintrag im File-Steuerelement, um den dazugehörigen "Datei-Eigenschaften" Dialog zu aktivieren.
     

    Dieser Tipp wurde bereits 18.713 mal aufgerufen.

    Voriger Tipp   |   Zufälliger Tipp   |   Nächster Tipp

    Über diesen Tipp im Forum diskutieren
    Haben Sie Fragen oder Anregungen zu diesem Tipp, können Sie gerne mit anderen darüber in unserem Forum diskutieren.

    Neue Diskussion eröffnen

    nach obenzurück


    Anzeige

    Kauftipp Unser Dauerbrenner!Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv  Vol.6
    (einschl. Beispielprojekt!)

    Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
    - nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten
    - Symbol-Galerie mit mehr als 3.200 Icons im modernen Look
    Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m.
     
       

    Druckansicht Druckansicht Copyright ©2000-2016 vb@rchiv Dieter Otter
    Alle Rechte vorbehalten.
    Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

    Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel