Die Community zu .NET und Classic VB.

Startseite / Tipps / VB 5/6-Tipp 0203: Eigenschaftsdialog aufrufen

VB 5/6-Tipp 0203: Eigenschaftsdialog aufrufen

 von Johannes Wolff

Schwierigkeitsgrad:

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 --------------

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.