2
www.ChF-Online.de  

Fehlermeldungen des CommonDialogs auswerten

   Neuigkeiten
   API-Aufrufe in VBA
 Belieb. Datei öffnen
aktiv aktiv CommonDialog-Fehler
 Dateidatum lesen & setzen
 rel. Dateipfad korrigieren
 Flex. Öffnen-Dialog
 Flex. Speichern-Dialog
 Kurze Unterbrechung
 Pfade und Verzeichnisse
 Spracheinstellung
 TreeView löschen
 Verzeichnisauswahl
 Verzeichnisauswahl /UNC
   VBA2HTML
   Word
   Word-VBA
   Word2007 (RibbonX)
   Word2010 (RibbonX)
   Outlook-VBA
   Links zu VB(A)
   DocToHelp
   Netport Express XL
   Astronomie
   Gästebuch
   Volltextsuche
   Sitemap
   Buch:Word-Programmierung
   Impressum & Kontakt
   Datenschutzerklärung
Getestet unter Word2000Getestet unter WordXPGetestet unter Win2000  
Makro/Datei speichern
Print

Diese Funktion ermittelt den letzten Fehlercode des CommonDialog-Dialogs zum Öffnen einer Datei.
Wenn der Dialog ohne eine Auswahl geschlossen wird ist die Rückgabe "0".

Public Declare Function CommDlgExtendedError Lib "comdlg32.dll" () As Long 

Schlug der Aufruf des Dialogs fehl, so wird einer der aufgeführten Fehlercodes zurückgeliefert. Wurde der Dialog erfolgreich beendet und eine Auswahl getroffen so ist der Rückgabewert undefiniert.

Select Case CommDlgExtendedError
Case COMDLG32ERR_DIALOGFAILURE
  strMsg = "Der Dialog kann nicht geöffnet werden."
Case COMDLG32ERR_FINDRESFAILURE
  strMsg = "Eine benötigte Ressource kann nicht gefunden werden."
Case COMDLG32ERR_INITIALIZATION
  strMsg = "Der Dialog konnte nicht initialisiert werden (Nicht genug Speicher)."
Case COMDLG32ERR_LOADRESFAILURE
  strMsg = "Der Dialog konnte eine angegebene Resource nicht laden."
Case COMDLG32ERR_LOADSTRFAILURE
  strMsg = "Es konnte ein angegebener String nicht geladen werden."
Case COMDLG32ERR_LOCKRESFAILURE
  strMsg = "Es konnte eine angegebene Resource nicht sperren werden."
Case COMDLG32ERR_MEMALLOCFAILURE
  strMsg = "Die CommonDialog-Fenster Funktion konnte keinen Speicher alloziieren."
Case COMDLG32ERR_MEMLOCKFAILURE
  strMsg = "Der benötigte Speicher kann nicht gesperrt werden."
Case COMDLG32ERR_NOHINSTANCE
  strMsg = "Es wurde kein gültiger Instanzhandle übergeben."
Case COMDLG32ERR_NOHOOK
  strMsg = "Es wurde keine gültige Hookfunktion angegeben."
Case COMDLG32ERR_REGISTERMSGFAIL
  strMsg = "Die RegisterWindowMessage " & _
  " Funktion lieferte einen Fehler beim Aufruf zurück."
Case COMDLG32ERR_NOTEMPLATE
  strMsg = "Es wurde kein gültiges Template angegeben."
Case COMDLG32ERR_STRUCTSIZE
  strMsg = "Die Strukturgröße ist ungültig."
Case COMDLG32ERR_CANCEL
  strMsg = "Der Dialog wurde mit der Cancel-Taste geschlossen."
Case Else 
  strMsg = "Undefined error ..." & CommDlgExtendedError
End Select   

 Besucher: 1 online  |  35 heute  |  1631 diesen Monat  |  1601617 insgesamt | Seitenaufrufe: 36   Letzte Änderung: 24.06.2006 © 2001-14 Christian Freßdorf
  Alles Große und Edle ist einfacher Art.
Gottfried Keller
 powered by phpCMS and PAX