Deklaration: Declare Function CommDlgExtendedError Lib "comdlg32.dll" () As Long Beschreibung: Parameter:
Rückgabewert: Rückgabekonstanten: Const CDERR_DIALOGFAILURE = &HFFFF ' Der Dialog kann nicht geöffnet werden Const CDERR_FINDRESFAILURE = &H6 ' Eine benötigte Ressource kann nicht gefunden werden Const CDERR_GENERALCODES = &H0 ' Eine Eigenschaft konnte nicht gelesen werden Const CDERR_INITIALIZATION = &H2 ' Nicht genug Speicher Const CDERR_LOADRESFAILURE = &H7 ' Eine benötigte Ressource kann nicht geladen werden Const CDERR_LOADSTRFAILURE = &H5 ' Ein benötigter String kann nicht gefunden werden Const CDERR_LOCKRESFAILURE = &H8 ' Die benötigte Ressource kann nicht gelockt werden Const CDERR_MEMALLOCFAILURE = &H9 ' Es kann kein Speicher zugewiesen werden Const CDERR_MEMLOCKFAILURE = &HA ' Der benötigte Speicher kann nicht gelockt werden Const CDERR_NOHINSTANCE = &H4 ' Es wurde kein gültiges Instanzhandle übergeben Const CDERR_NOHOOK = &HB ' Es wurde keine gültige Hookfunktion angegeben Const CDERR_NOTEMPLATE = &H3 ' Es wurde kein gültiges Template angegeben Const CDERR_REGISTERMSGFAIL = &HC ' Eine Fensternachricht konnte nicht registriert werden Const CDERR_STRUCTSIZE = &H1 ' Die Strukturgröße ist ungültig Const CFERR_CHOOSEFONTCODES = &H2000 ' Ein Fehler ist beim ChooseFont Dialog aufgetreten Const CFERR_MAXLESSTHANMIN = &H2002 ' Die maximale Fontgröße ist größer als die minimale Fontgröße Const CFERR_NOFONTS = &H2001 ' Es wurden keine existierenden Fonts gefunden Const FNERR_BUFFERTOOSMALL = &H3003 ' Der Puffer, um die Dateinamen zu empfangen, ist zu klein Const FNERR_FILENAMECODES = &H3000 ' Ein Fehler ist bei der Openfile- oder Savefile-Dialogbox aufgetreten Const FNERR_INVALIDFILENAME = &H3002 ' Der Funktion wurde ein ungültiger Dateiname übergeben oder es wurde einer ausgewählt Const FNERR_SUBCLASSFAILURE = &H3001 ' Nicht genügend Speicher für die Listbox Const FRERR_BUFFERLENGTHZERO = &H4001 ' Der Puffer ist ungültig Const FRERR_FINDREPLACECODES = &H4000 ' Ein Fehler ist im FindReplace-Dialog aufgetreten Const PDERR_CREATEICFAILURE = &H100A ' Die Dialogbox konnte keinen Informationskontext erstellen Const PDERR_DEFAULTDIFFERENT = &H100C ' Der übergebene Standarddrucker entspricht nicht dem Standarddrucker des Systems Const PDERR_DNDMMISMATCH = &H1009 ' Die Drucker der beiden Strukturen stimmen nicht überein Const PDERR_GETDEVMODEFAIL = &H1005 ' Die DEVMODE Struktur konnte nicht initialisiert werden Const PDERR_INITFAILURE = &H1006 ' Der Dialog konnte nicht initialisiert werden Const PDERR_LOADDRVFAILURE = &H1004 ' Der benötigte Druckertreiber konnte nicht geladen werden Const PDERR_NODEFAULTPRN = &H1008 ' Es wurde kein Standarddrucker gefunden Const PDERR_NODEVICES = &H1007 ' Es konnten keine Drucker gefunden werden Const PDERR_PARSEFAILURE = &H1002 ' Der Dialog konnte die in der Win.ini angegebenen Drucker nicht parsen Const PDERR_PRINTERCODES = &H1000 ' Ein Fehler ist im Print-Dialog aufgetreten Const PDERR_PRINTERNOTFOUND = &H100B ' Es konnten keine Informationen in der Win.ini über den angegebenen Drucker ' gefunden werden Const PDERR_RETDEFFAILURE = &H1003 ' Die Strukturhandles wurden nicht angegeben, aber es wurde beim ' Funktionsaufruf eine Rückgabe verlangt Const PDERR_SETUPFAILURE = &H1001 ' Der Dialog konnte die benötigten Ressourcen nicht laden Beispiel: Private Declare Function CommDlgExtendedError Lib "comdlg32.dll" () As Long Private Const CDERR_DIALOGFAILURE = &HFFFF ' Der Dialog kann nicht geöffnet werden Private Const CDERR_FINDRESFAILURE = &H6 ' Eine benötigte Ressource kann nicht gefunden werden Private Const CDERR_GENERALCODES = &H0 ' Eine Eigenschaft konnte nicht gelesen werden Private Const CDERR_INITIALIZATION = &H2 ' Nicht genug Speicher Private Const CDERR_LOADRESFAILURE = &H7 ' Eine benötigte Ressource kann nicht geladen werden Private Const CDERR_LOADSTRFAILURE = &H5 ' Ein benötigter String kann nicht gefunden werden Private Const CDERR_LOCKRESFAILURE = &H8 ' Die benötigte Ressource kann nicht gelockt werden Private Const CDERR_MEMALLOCFAILURE = &H9 ' Es kann kein Speicher zugewiesen werden Private Const CDERR_MEMLOCKFAILURE = &HA ' Der benötigte Speicher kann nicht gelockt werden Private Const CDERR_NOHINSTANCE = &H4 ' Es wurde kein gültiges Instanzhandle übergeben Private Const CDERR_NOHOOK = &HB ' Es wurde keine gültige Hookfunktion angegeben Private Const CDERR_NOTEMPLATE = &H3 ' Es wurde kein gültiges Template angegeben Private Const CDERR_REGISTERMSGFAIL = &HC ' Eine Fensternachricht konnte nicht registriert werden Private Const CDERR_STRUCTSIZE = &H1 ' Die Strukturgröße ist ungültig Private Const CFERR_CHOOSEFONTCODES = &H2000 ' Ein Fehler ist beim ChooseFont-Dialog aufgetreten Private Const CFERR_MAXLESSTHANMIN = &H2002 ' Die maximale Fontgröße ist größer als die minimale Fontgröße Private Const CFERR_NOFONTS = &H2001 ' Es wurden keine existierenden Fonts gefunden Private Const FNERR_BUFFERTOOSMALL = &H3003 ' Der Puffer um die Dateinamen zu empfangen ist zu klein Private Const FNERR_FILENAMECODES = &H3000 ' Ein Fehler ist bei der Openfile- oder Savefile-Dialogbox aufgetreten Private Const FNERR_INVALIDFILENAME = &H3002 ' Der Funktion wurde ein ungültiger Dateiname ' übergeben oder es wurde einer ausgewählt Private Const FNERR_SUBCLASSFAILURE = &H3001 ' Nicht genügend Speicher für die Listbox Private Const FRERR_BUFFERLENGTHZERO = &H4001 ' Der Puffer ist ungültig Private Const FRERR_FINDREPLACECODES = &H4000 ' Ein Fehler ist im FindReplace-Dialog aufgetreten Private Const PDERR_CREATEICFAILURE = &H100A ' Die Dialogbox konnte keinen Informationskontext erstellen Private Const PDERR_DEFAULTDIFFERENT = &H100C ' Der übergebene Standarddrucker entspricht ' nicht dem Standarddrucker des Systems Private Const PDERR_DNDMMISMATCH = &H1009 ' Die Drucker der beiden Strukturen stimmen nicht überein Private Const PDERR_GETDEVMODEFAIL = &H1005 ' Die DEVMODE Struktur konnte nicht initialisiert werden Private Const PDERR_INITFAILURE = &H1006 ' Der Dialog konnte nicht initialisiert werden Private Const PDERR_LOADDRVFAILURE = &H1004 ' Der benötigte Druckertreiber konnte nicht geladen werden Private Const PDERR_NODEFAULTPRN = &H1008 ' Es wurde kein Standarddrucker gefunden Private Const PDERR_NODEVICES = &H1007 ' Es konnten keine Drucker gefunden werden Private Const PDERR_PARSEFAILURE = &H1002 ' Der Dialog konnte die in der Win.ini angegebenen Drucker nicht parsen Private Const PDERR_PRINTERCODES = &H1000 ' Ein Fehler ist im Print-Dialog aufgetreten Private Const PDERR_PRINTERNOTFOUND = &H100B ' Es konnten keine Informationen in der Win.ini ' über den angegebenen Drucker gefunden werden Private Const PDERR_RETDEFFAILURE = &H1003 ' Die Strukturhandles wurden nicht angegeben, aber es wurde ' beim Funktionsaufruf eine Rückgabe verlangt Private Const PDERR_SETUPFAILURE = &H1001 ' Der Dialog konnte die benötigten Ressourcen nicht laden Private Sub Command1_Click() On Error GoTo ErrDlg ' Dialog öffnen und Pufferfehler erzeugen With CommonDialog1 .MaxFileSize = 1 ' Der Puffer ist mit dem Wert zu klein um einen Dateinamen zu empfangen .Filter = "*.* - Alle Dateien|*.*" .DialogTitle = "Datei Öffnen" .CancelError = True .ShowOpen End With MsgBox "Die Datei " & CommonDialog1.FileName & " wurde erfolgreich gewählt." Exit Sub ' Fehler auswerten Select Case CommDlgExtendedError Case 0 MsgBox "Sie haben keine Datei gewählt" Case FNERR_BUFFERTOOSMALL MsgBox "Der Puffer ist zu klein um die Dateinamen zu empfangen," _ & vbCrLf & _ "setzen sie 'MaxFileSize' auf einen größeren wert.", vbCritical, _ ' "Fehler: " & CommDlgExtendedError ' ... und so weiter Case Else MsgBox "Fehler " & CommDlgExtendedError End Select End Sub Diese Seite wurde bereits 9.165 mal aufgerufen. |
vb@rchiv CD Vol.6 Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! Online-Update-Funktion Entwickler-Vollversionen u.v.m. Buchempfehlung Tipp des Monats März 2024 Dieter Otter UTF-8 Konvertierung von Dateien und Strings VB6 selbst verfügt über keine Funktionen zur UTF-8 Konvertierung von Daten. Mit Hilfe des ADODB.Stream-Objekts lassen sich diese fehlenden Funktionen aber schnell nachrüsten. Neu! sevCommand 4.0 Professionelle Schaltflächen im modernen Design! Mit nur wenigen Mausklicks statten auch Sie Ihre Anwendungen ab sofort mit grafischen Schaltflächen im modernen Look & Feel aus (WinXP, Office, Vista oder auch Windows 8), inkl. große Symbolbibliothek. |
||||||||||||
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. |