title image


Smiley ja geht ABER
hiho



siehe selbst....

eine UF ist leichter zu gestalten









Betriebssysteme:

Windows 95

Windows 98

Windows NT ab Version 4.0

Windows 2000

Windows ME



--------------------------------------------------------------------------------



Deklaration:



Declare Function MessageBoxIndirect Lib "user32.dll" Alias "MessageBoxIndirectA" (lpMsgBoxParams As MSGBOXPARAMS) As Long





--------------------------------------------------------------------------------



Beschreibung:

Diese Funktion ruft eine Standard Messagebox auf wobei noch die Sprache der Button Beschriftungen gewählt werden kann, ein Benutzerdefiniertes Icon in dem Dialog gewählt werden kann und eine Funktionsadresse angegeben werden kann um Ereignisse zu empfangen.



--------------------------------------------------------------------------------



Funktions Rückgabe:

Ist die Funktion erfolgreich so liefert sie eine der Rückgabe-Konstanten die den Button beschriebt der gewählt wurde. Andernfalls wird der wert "0" zurückgegeben. Für erweiterte Fehlerinformationen rufen sie die  GetLastError-Funktion auf.



Rückgabe Konstanten:







Const  IDABORT = 3 'Beenden wurde gewählt

Const  IDCANCEL = 2 'Abbrechen wurde gewählt

Const  IDIGNORE = 5 'Ignorieren wurde gewählt

Const  IDNO = 7 'Nein wurde gewählt

Const  IDOK = 1 'OK wurde gewählt

Const  IDRETRY = 4 'Wiederholen wurde gewählt

Const  IDYES = 6 'Ja wurde gewählt













--------------------------------------------------------------------------------



Funktions Parameter:

lpMsgBoxParams

Erwartet eine  MSGBOXPARAMS-Struktur die gefüllt ist mit Informationen die, die Messagbox beschreibt.







--------------------------------------------------------------------------------



Beispiel:



Private Declare Function MessageBox Lib "user32.dll" Alias "MessageBoxA" (ByVal hWnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal uType As Long) As Long

Private Declare Function MessageBoxEx Lib "user32.dll" Alias "MessageBoxExA" (ByVal hWnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal uType As Long, ByVal wLanguageId As Long) As Long

Private Declare Function MessageBoxIndirect Lib "user32.dll" Alias "MessageBoxIndirectA" (lpMsgBoxParams As MSGBOXPARAMS) As Long



Private Type MSGBOXPARAMS

   cbSize As Long

   hwndOwner As Long

   hInstance As Long

   lpszText As String

   lpszCaption As String

   dwStyle As Long

   lpszIcon As Long

   dwContextHelpId As Long

   lpfnMsgBoxCallback As Long

   dwLanguageId As Long

End Type



'MessageBox / MessageBoxEx / MessageBoxIndirect Rückgabe-Konstanten

Private Const IDABORT = 3 'Beenden wurde gewählt

Private Const IDCANCEL = 2 'Abbrechen wurde gewählt

Private Const IDIGNORE = 5 'Ignorieren wurde gewählt

Private Const IDNO = 7 'Nein wurde gewählt

Private Const IDOK = 1 'OK wurde gewählt

Private Const IDRETRY = 4 'Wiederholen wurde gewählt

Private Const IDYES = 6 'Ja wurde gewählt



'Messagebox / MessageBoxEx uType - Konstanten / MSGBOXPARAMS dwStyle-Konstanten

Private Const ABORTRETRYIGNORE = &H2 'Abbrechen, Wiederholen, Weiter

Private Const MB_HELP = &H4000 'Hilfe, ist nur sichtbar in verbindung mit einem anderen Button

Private Const MB_OK = &H0 'OK

Private Const MB_OKCANCEL = &H1 'OK, Abbrechen

Private Const MB_RETRYCANCEL = &H5 'Wiederholen, Abbrechen

Private Const MB_YESNO = &H4 'Ja, Nein

Private Const MB_YESNOCANCEL = &H3 'Ja, Nein, Abbrechen

Private Const MB_ICONERROR = &H10 'Fehler Symbol

Private Const MB_ICONEXCLAMATION = &H30 'Ausrufezeichen Symbol

Private Const MB_ICONINFORMATION = &H40 'Informations Symbol

Private Const MB_ICONQUESTION = &H20 'Fragezeichen Symbol

Private Const MB_DEFBUTTON1 = &H0 'Standardbutton 1

Private Const MB_DEFBUTTON2 = &H100 'Standardbutton 2

Private Const MB_DEFBUTTON3 = &H200 'Standardbutton 3

Private Const MB_DEFBUTTON4 = &H300 'Standardbutton 4

Private Const MB_APPLMODAL = &H0 'Die Messagebox ist Modal zum Programm

Private Const MB_SYSTEMMODAL = &H1000 'Die Messagebox ist Modal zum System

Private Const MB_TASKMODAL = &H2000 'Die Messagebox ist Modal zum Thread

Private Const MB_DEFAULT_DESKTOP_ONLY = &H20000 '(Win NT/2000) die Dialogbox wird nur auf dem Standard Desktop angezeigt

Private Const MB_RIGHT = &H80000 'Der Text wird Recht ausgerichtet

Private Const MB_RTLREADING = &H100000 'Richtet die Schrift der Dialogbox von Rechts nach Links fall dies der Systemstandard ist

Private Const MB_SETFOREGROUND = &H10000 'Die Messagebox wird in dem Fordergrund gebracht.

Private Const MB_USERICON = &H80& '(MSGBOXPARAMS) legt fest das ein Benutzerdefiniertes Icon angezeigt werden soll



'MessageBoxEx wLanguageID-Konstanten / MSGBOXPARAMS dwLanguageId-Konstanten

Private Const LANG_BULGARIAN = &H2 'Bulgarisch

Private Const LANG_CHINESE = &H4 'Chinesisch

Private Const LANG_CROATIAN = &H1A 'Kroatisch

Private Const LANG_CZECH = &H5 'Tschechisch

Private Const LANG_DANISH = &H6 'Dänisch

Private Const LANG_DUTCH = &H13 'Holländisch

Private Const LANG_ENGLISH = &H9 'Englisch

Private Const LANG_FINNISH = &HB 'Finnisch

Private Const LANG_FRENCH = &HC 'Französisch

Private Const LANG_GERMAN = &H7 'Deutsch

Private Const LANG_GREEK = &H8 'Grichisch

Private Const LANG_HUNGARIAN = &HE 'Ungarisch

Private Const LANG_ICELANDIC = &HF '??

Private Const LANG_ITALIAN = &H10 'Italienisch

Private Const LANG_JAPANESE = &H11 'Japanisch

Private Const LANG_KOREAN = &H12 'Koreanisch

Private Const LANG_NEUTRAL = &H0 'Neutral

Private Const LANG_NORWEGIAN = &H14 'Norwegisch

Private Const LANG_POLISH = &H15 'Polnisch

Private Const LANG_PORTUGUESE = &H16 'Portugisisch

Private Const LANG_ROMANIAN = &H18 'Romänisch

Private Const LANG_RUSSIAN = &H19 'Russisch

Private Const LANG_SLOVAK = &H1B '??

Private Const LANG_SLOVENIAN = &H24 'Slovenisch

Private Const LANG_SPANISH = &HA 'Spanisch

Private Const LANG_SWEDISH = &H1D 'Schwedisch

Private Const LANG_TURKISH = &H1F 'Türkisch

Private Const SUBLANG_CHINESE_HONGKONG = &H1D 'Chinesisch (Hong Kong)

Private Const SUBLANG_CHINESE_SIMPLIFIED = &H2 'Chinesisch (China)

Private Const SUBLANG_CHINESE_SINGAPORE = &H4 'Chinesisch (Signapur)

Private Const SUBLANG_CHINESE_TRADITIONAL = &H1 'Chinesisch (Taiwan)

Private Const SUBLANG_DEFAULT = &H1 'Standard

Private Const SUBLANG_DUTCH = &H1 'Holländisch

Private Const SUBLANG_DUTCH_BELGIAN = &H2 'Holländisch (Belgien)

Private Const SUBLANG_ENGLISH_AUS = &H3 'Englisch (Australien)

Private Const SUBLANG_ENGLISH_CAN = &H4 'Englisch (Kanada)

Private Const SUBLANG_ENGLISH_EIRE = &H6 'Englisch (Irland)

Private Const SUBLANG_ENGLISH_NZ = &H5 'Englisch (Neu Seeland)

Private Const SUBLANG_ENGLISH_UK = &H2 'Englisch (UK)

Private Const SUBLANG_ENGLISH_US = &H1 'Englisch (USA)

Private Const SUBLANG_FRENCH = &H1 'Französisch

Private Const SUBLANG_FRENCH_BELGIAN = &H2 'Französisch (Belgien)

Private Const SUBLANG_FRENCH_CANADIAN = &H3 'Französisch (Kanada)

Private Const SUBLANG_FRENCH_SWISS = &H4 'Französisch (Schweiz)

Private Const SUBLANG_GERMAN = &H1 'Deutsch

Private Const SUBLANG_GERMAN_AUSTRIAN = &H3 'Deutsch (Österreich)

Private Const SUBLANG_GERMAN_SWISS = &H2 'Deutsch (Schweiz)

Private Const SUBLANG_ITALIAN = &H1 'Italienisch

Private Const SUBLANG_ITALIAN_SWISS = &H2 'Italienisch (Schweiz)

Private Const SUBLANG_NEUTRAL = &H0 'Neutral (Standard)

Private Const SUBLANG_NORWEGIAN_BOKMAL = &H1 'Norwegisch (Bokma)

Private Const SUBLANG_NORWEGIAN_NYNORSK = &H2 'Norwegisch (Nynorsk)

Private Const SUBLANG_PORTUGUESE = &H2 'Portugisisch

Private Const SUBLANG_PORTUGUESE_BRAZILIAN = &H1 'Portugisisch (Brasilianisch)

Private Const SUBLANG_SPANISH = &H1 'Spanisch (Castilian)

Private Const SUBLANG_SPANISH_MEXICAN = &H2 'Spanisch (Mexikanisch)

Private Const SUBLANG_SPANISH_MODERN = &H3 'Spanisch (Modern)

Private Const SUBLANG_SYS_DEFAULT = &H2 'System Standard





'Normale Messagebox aufrufen um einen Fehler zu Simulieren

Private Sub Command1_Click()

   Dim MsgRet As Long



   'MessageBox aufrufen

   MsgRet = MessageBox(Me.hWnd, "Achtung sie haben den 'Command-Button' 1 geklickt.", "Schwerer Ausnahmefehler", MB_OKCANCEL Or MB_SYSTEMMODAL Or MB_ICONERROR)



   'MessageBox Auswerten

   If MsgRet = IDOK Then

      Debug.Print "OK wurde gewählt"

   ElseIf MsgRet = IDCANCEL Then

      Debug.Print "Abbrechen wurde gewählt"

   End If

End Sub





'Erweiterte Messagebox aufrufen um einen vorgang zum wiederholen Simulieren

Private Sub Command2_Click()

   Dim MsgRet As Long



   MsgRet = MessageBoxEx(Me.hWnd, "Der 'Command-Button' 1 wurde falsch geklickt.", "Falsch geklickt", ABORTRETRYIGNORE Or MB_APPLMODAL Or MB_ICONINFORMATION, (SUBLANG_GERMAN * 1024) Or LANG_GERMAN)



   'MessageBox Auswerten

   If MsgRet = IDABORT Then

      Debug.Print "Abbrechen wurde gewählt"

   ElseIf MsgRet = IDRETRY Then

      Debug.Print "Wiederholen wurde gewählt"

   ElseIf MsgRet = IDIGNORE Then

      Debug.Print "Ignorieren wurde gekilckt"

   End If

End Sub





'eine Messagebox wie bei Command2 nur mit einem eigenem Titelleisten Icon

Private Sub Command3_Click()

   Dim MsgRet As Long, MsgParams As MSGBOXPARAMS



   'Mesagbox Eigenschaften setzen, das Icon wird nicht in der IDE angezeigt

   With MsgParams

      .cbSize = Len(MsgParams)

      .dwLanguageId = (SUBLANG_GERMAN * 1024) Or LANG_GERMAN

      .dwStyle = ABORTRETRYIGNORE Or MB_APPLMODAL Or MB_USERICON

      .hInstance = App.hInstance

      .hwndOwner = Me.hWnd

      .lpszCaption = "Falsch geklickt"

      .lpszText = "Der 'Command-Button' 1 wurde falsch geklickt."

      .lpszIcon = 101 '"101" ist der Name einer Icon-Ressource

      .lpfnMsgBoxCallback = 0 'hier könnte man die Adresse einer Funktion zum empfangen von ereignissen angeben

   End With



   'MessageBox aufrufen

   MsgRet = MessageBoxIndirect(MsgParams)



   'MessageBox Auswerten

   If MsgRet = IDABORT Then

      Debug.Print "Abbrechen wurde gewählt"

   ElseIf MsgRet = IDRETRY Then

      Debug.Print "Wiederholen wurde gewählt"

   ElseIf MsgRet = IDIGNORE Then

      Debug.Print "Ignorieren wurde gekilckt"

   End If

End Sub















bzw.









Betriebssysteme:

Windows 95

Windows 98

Windows NT ab Version 3.1

Windows 2000

Windows ME



--------------------------------------------------------------------------------



Deklaration:



Declare Function MessageBoxEx Lib "user32.dll" Alias "MessageBoxExA" (ByVal hWnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal uType As Long, ByVal wLanguageId As Long) As Long





--------------------------------------------------------------------------------



Beschreibung:

Diese Funktion ruft eine Standard Messagebox auf wobei noch die Sprache der Button Beschriftungen gewählt werden kann.



--------------------------------------------------------------------------------



Funktions Rückgabe:

Ist die Funktion erfolgreich so liefert sie eine der Rückgabe-Konstanten die den Button beschriebt der gewählt wurde. Andernfalls wird der wert "0" zurückgegeben. Für erweiterte Fehlerinformationen rufen sie die  GetLastError-Funktion auf.



Rückgabe Konstanten:







Const  IDABORT = 3 'Beenden wurde gewählt

Const  IDCANCEL = 2 'Abbrechen wurde gewählt

Const  IDIGNORE = 5 'Ignorieren wurde gewählt

Const  IDNO = 7 'Nein wurde gewählt

Const  IDOK = 1 'OK wurde gewählt

Const  IDRETRY = 4 'Wiederholen wurde gewählt

Const  IDYES = 6 'Ja wurde gewählt













--------------------------------------------------------------------------------



Funktions Parameter:

hWnd

Erwartet den Fensterhandle des Fensters welches die Messagebox aufruft.





lpText

Erwartet den Text der inmitten der Messagebox angezeigt werden soll.





lpCaption

Erwartet den Text der in der Titelleiste der Messagbox angezeigt werden soll.





uType

Erwartet eine oder eine Kombination aus mehreren der "uType"-Konstanten die, die Eigenschaften der Dialogbox beschreiben wie zb. die verschiedenen Buttons, Symbole oder die Ausrichtung des Textes.



uType Konstanten:







Const  ABORTRETRYIGNORE = &H2 'Abbrechen, Wiederholen, Weiter

Const  MB_HELP = &H4000 'Hilfe, ist nur sichtbar in verbindung mit einem anderen Button

Const  MB_OK = &H0 'OK

Const  MB_OKCANCEL = &H1 'OK, Abbrechen

Const  MB_RETRYCANCEL = &H5 'Wiederholen, Abbrechen

Const  MB_YESNO = &H4 'Ja, Nein

Const  MB_YESNOCANCEL = &H3 'Ja, Nein, Abbrechen

Const  MB_ICONERROR = &H10 'Fehler Symbol

Const  MB_ICONEXCLAMATION = &H30 'Ausrufezeichen Symbol

Const  MB_ICONINFORMATION = &H40 'Informations Symbol

Const  MB_ICONQUESTION = &H20 'Fragezeichen Symbol

Const  MB_DEFBUTTON1 = &H0 'Standardbutton 1

Const  MB_DEFBUTTON2 = &H100 'Standardbutton 2

Const  MB_DEFBUTTON3 = &H200 'Standardbutton 3

Const  MB_DEFBUTTON4 = &H300 'Standardbutton 4

Const  MB_APPLMODAL = &H0 'Die Messagebox ist Modal zum Programm

Const  MB_SYSTEMMODAL = &H1000 'Die Messagebox ist Modal zum System

Const  MB_TASKMODAL = &H2000 'Die Messagebox ist Modal zum Thread

Const  MB_DEFAULT_DESKTOP_ONLY = &H20000 '(Win NT/2000) die Dialogbox wird nur auf dem Standard Desktop angezeigt

Const  MB_RIGHT = &H80000 'Der Text wird Recht ausgerichtet

Const  MB_RTLREADING = &H100000 'Richtet die Schrift der Dialogbox von Rechts nach Links fall dies der Systemstandard ist

Const  MB_SETFOREGROUND = &H10000 'Die Messagebox wird in dem Fordergrund gebracht.











wLanguageId

Erwartet einen Sprach-ID der die Sprache beschreibt in der die Button Beschriftungen angezeigt werden sollen. Ist die gewählte Sprache nicht Installiert so wird die Standard Systemsprache gewählt. Der Sprach ID kann ermittelt werden in dem man eine Untersprache mit 1024 multipliziert und das Ergebnis dann mittels dem OR-Befehl mit der Hauptsprache Kombiniert.



wLanguageId Konstanten:







Const  LANG_BULGARIAN = &H2 'Bulgarisch

Const  LANG_CHINESE = &H4 'Chinesisch

Const  LANG_CROATIAN = &H1A 'Kroatisch

Const  LANG_CZECH = &H5 'Tschechisch

Const  LANG_DANISH = &H6 'Dänisch

Const  LANG_DUTCH = &H13 'Holländisch

Const  LANG_ENGLISH = &H9 'Englisch

Const  LANG_FINNISH = &HB 'Finnisch

Const  LANG_FRENCH = &HC 'Französisch

Const  LANG_GERMAN = &H7 'Deutsch

Const  LANG_GREEK = &H8 'Grichisch

Const  LANG_HUNGARIAN = &HE 'Ungarisch

Const  LANG_ICELANDIC = &HF '??

Const  LANG_ITALIAN = &H10 'Italienisch

Const  LANG_JAPANESE = &H11 'Japanisch

Const  LANG_KOREAN = &H12 'Koreanisch

Const  LANG_NEUTRAL = &H0 'Neutral

Const  LANG_NORWEGIAN = &H14 'Norwegisch

Const  LANG_POLISH = &H15 'Polnisch

Const  LANG_PORTUGUESE = &H16 'Portugisisch

Const  LANG_ROMANIAN = &H18 'Romänisch

Const  LANG_RUSSIAN = &H19 'Russisch

Const  LANG_SLOVAK = &H1B '??

Const  LANG_SLOVENIAN = &H24 'Slovenisch

Const  LANG_SPANISH = &HA 'Spanisch

Const  LANG_SWEDISH = &H1D 'Schwedisch

Const  LANG_TURKISH = &H1F 'Türkisch

Const  SUBLANG_CHINESE_HONGKONG = &H1D 'Chinesisch (Hong Kong)

Const  SUBLANG_CHINESE_SIMPLIFIED = &H2 'Chinesisch (China)

Const  SUBLANG_CHINESE_SINGAPORE = &H4 'Chinesisch (Signapur)

Const  SUBLANG_CHINESE_TRADITIONAL = &H1 'Chinesisch (Taiwan)

Const  SUBLANG_DEFAULT = &H1 'Standard

Const  SUBLANG_DUTCH = &H1 'Holländisch

Const  SUBLANG_DUTCH_BELGIAN = &H2 'Holländisch (Belgien)

Const  SUBLANG_ENGLISH_AUS = &H3 'Englisch (Australien)

Const  SUBLANG_ENGLISH_CAN = &H4 'Englisch (Kanada)

Const  SUBLANG_ENGLISH_EIRE = &H6 'Englisch (Irland)

Const  SUBLANG_ENGLISH_NZ = &H5 'Englisch (Neu Seeland)

Const  SUBLANG_ENGLISH_UK = &H2 'Englisch (UK)

Const  SUBLANG_ENGLISH_US = &H1 'Englisch (USA)

Const  SUBLANG_FRENCH = &H1 'Französisch

Const  SUBLANG_FRENCH_BELGIAN = &H2 'Französisch (Belgien)

Const  SUBLANG_FRENCH_CANADIAN = &H3 'Französisch (Kanada)

Const  SUBLANG_FRENCH_SWISS = &H4 'Französisch (Schweiz)

Const  SUBLANG_GERMAN = &H1 'Deutsch

Const  SUBLANG_GERMAN_AUSTRIAN = &H3 'Deutsch (Österreich)

Const  SUBLANG_GERMAN_SWISS = &H2 'Deutsch (Schweiz)

Const  SUBLANG_ITALIAN = &H1 'Italienisch

Const  SUBLANG_ITALIAN_SWISS = &H2 'Italienisch (Schweiz)

Const  SUBLANG_NEUTRAL = &H0 'Neutral (Standard)

Const  SUBLANG_NORWEGIAN_BOKMAL = &H1 'Norwegisch (Bokma)

Const  SUBLANG_NORWEGIAN_NYNORSK = &H2 'Norwegisch (Nynorsk)

Const  SUBLANG_PORTUGUESE = &H2 'Portugisisch

Const  SUBLANG_PORTUGUESE_BRAZILIAN = &H1 'Portugisisch (Brasilianisch)

Const  SUBLANG_SPANISH = &H1 'Spanisch (Castilian)

Const  SUBLANG_SPANISH_MEXICAN = &H2 'Spanisch (Mexikanisch)

Const  SUBLANG_SPANISH_MODERN = &H3 'Spanisch (Modern)

Const  SUBLANG_SYS_DEFAULT = &H2 'System Standard













--------------------------------------------------------------------------------



Beispiel:



Private Declare Function MessageBox Lib "user32.dll" Alias "MessageBoxA" (ByVal hWnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal uType As Long) As Long

Private Declare Function MessageBoxEx Lib "user32.dll" Alias "MessageBoxExA" (ByVal hWnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal uType As Long, ByVal wLanguageId As Long) As Long

Private Declare Function MessageBoxIndirect Lib "user32.dll" Alias "MessageBoxIndirectA" (lpMsgBoxParams As MSGBOXPARAMS) As Long



Private Type MSGBOXPARAMS

   cbSize As Long

   hwndOwner As Long

   hInstance As Long

   lpszText As String

   lpszCaption As String

   dwStyle As Long

   lpszIcon As Long

   dwContextHelpId As Long

   lpfnMsgBoxCallback As Long

   dwLanguageId As Long

End Type



'MessageBox / MessageBoxEx / MessageBoxIndirect Rückgabe-Konstanten

Private Const IDABORT = 3 'Beenden wurde gewählt

Private Const IDCANCEL = 2 'Abbrechen wurde gewählt

Private Const IDIGNORE = 5 'Ignorieren wurde gewählt

Private Const IDNO = 7 'Nein wurde gewählt

Private Const IDOK = 1 'OK wurde gewählt

Private Const IDRETRY = 4 'Wiederholen wurde gewählt

Private Const IDYES = 6 'Ja wurde gewählt



'Messagebox / MessageBoxEx uType - Konstanten / MSGBOXPARAMS dwStyle-Konstanten

Private Const ABORTRETRYIGNORE = &H2 'Abbrechen, Wiederholen, Weiter

Private Const MB_HELP = &H4000 'Hilfe, ist nur sichtbar in verbindung mit einem anderen Button

Private Const MB_OK = &H0 'OK

Private Const MB_OKCANCEL = &H1 'OK, Abbrechen

Private Const MB_RETRYCANCEL = &H5 'Wiederholen, Abbrechen

Private Const MB_YESNO = &H4 'Ja, Nein

Private Const MB_YESNOCANCEL = &H3 'Ja, Nein, Abbrechen

Private Const MB_ICONERROR = &H10 'Fehler Symbol

Private Const MB_ICONEXCLAMATION = &H30 'Ausrufezeichen Symbol

Private Const MB_ICONINFORMATION = &H40 'Informations Symbol

Private Const MB_ICONQUESTION = &H20 'Fragezeichen Symbol

Private Const MB_DEFBUTTON1 = &H0 'Standardbutton 1

Private Const MB_DEFBUTTON2 = &H100 'Standardbutton 2

Private Const MB_DEFBUTTON3 = &H200 'Standardbutton 3

Private Const MB_DEFBUTTON4 = &H300 'Standardbutton 4

Private Const MB_APPLMODAL = &H0 'Die Messagebox ist Modal zum Programm

Private Const MB_SYSTEMMODAL = &H1000 'Die Messagebox ist Modal zum System

Private Const MB_TASKMODAL = &H2000 'Die Messagebox ist Modal zum Thread

Private Const MB_DEFAULT_DESKTOP_ONLY = &H20000 '(Win NT/2000) die Dialogbox wird nur auf dem Standard Desktop angezeigt

Private Const MB_RIGHT = &H80000 'Der Text wird Recht ausgerichtet

Private Const MB_RTLREADING = &H100000 'Richtet die Schrift der Dialogbox von Rechts nach Links fall dies der Systemstandard ist

Private Const MB_SETFOREGROUND = &H10000 'Die Messagebox wird in dem Fordergrund gebracht.

Private Const MB_USERICON = &H80& '(MSGBOXPARAMS) legt fest das ein Benutzerdefiniertes Icon angezeigt werden soll



'MessageBoxEx wLanguageID-Konstanten / MSGBOXPARAMS dwLanguageId-Konstanten

Private Const LANG_BULGARIAN = &H2 'Bulgarisch

Private Const LANG_CHINESE = &H4 'Chinesisch

Private Const LANG_CROATIAN = &H1A 'Kroatisch

Private Const LANG_CZECH = &H5 'Tschechisch

Private Const LANG_DANISH = &H6 'Dänisch

Private Const LANG_DUTCH = &H13 'Holländisch

Private Const LANG_ENGLISH = &H9 'Englisch

Private Const LANG_FINNISH = &HB 'Finnisch

Private Const LANG_FRENCH = &HC 'Französisch

Private Const LANG_GERMAN = &H7 'Deutsch

Private Const LANG_GREEK = &H8 'Grichisch

Private Const LANG_HUNGARIAN = &HE 'Ungarisch

Private Const LANG_ICELANDIC = &HF '??

Private Const LANG_ITALIAN = &H10 'Italienisch

Private Const LANG_JAPANESE = &H11 'Japanisch

Private Const LANG_KOREAN = &H12 'Koreanisch

Private Const LANG_NEUTRAL = &H0 'Neutral

Private Const LANG_NORWEGIAN = &H14 'Norwegisch

Private Const LANG_POLISH = &H15 'Polnisch

Private Const LANG_PORTUGUESE = &H16 'Portugisisch

Private Const LANG_ROMANIAN = &H18 'Romänisch

Private Const LANG_RUSSIAN = &H19 'Russisch

Private Const LANG_SLOVAK = &H1B '??

Private Const LANG_SLOVENIAN = &H24 'Slovenisch

Private Const LANG_SPANISH = &HA 'Spanisch

Private Const LANG_SWEDISH = &H1D 'Schwedisch

Private Const LANG_TURKISH = &H1F 'Türkisch

Private Const SUBLANG_CHINESE_HONGKONG = &H1D 'Chinesisch (Hong Kong)

Private Const SUBLANG_CHINESE_SIMPLIFIED = &H2 'Chinesisch (China)

Private Const SUBLANG_CHINESE_SINGAPORE = &H4 'Chinesisch (Signapur)

Private Const SUBLANG_CHINESE_TRADITIONAL = &H1 'Chinesisch (Taiwan)

Private Const SUBLANG_DEFAULT = &H1 'Standard

Private Const SUBLANG_DUTCH = &H1 'Holländisch

Private Const SUBLANG_DUTCH_BELGIAN = &H2 'Holländisch (Belgien)

Private Const SUBLANG_ENGLISH_AUS = &H3 'Englisch (Australien)

Private Const SUBLANG_ENGLISH_CAN = &H4 'Englisch (Kanada)

Private Const SUBLANG_ENGLISH_EIRE = &H6 'Englisch (Irland)

Private Const SUBLANG_ENGLISH_NZ = &H5 'Englisch (Neu Seeland)

Private Const SUBLANG_ENGLISH_UK = &H2 'Englisch (UK)

Private Const SUBLANG_ENGLISH_US = &H1 'Englisch (USA)

Private Const SUBLANG_FRENCH = &H1 'Französisch

Private Const SUBLANG_FRENCH_BELGIAN = &H2 'Französisch (Belgien)

Private Const SUBLANG_FRENCH_CANADIAN = &H3 'Französisch (Kanada)

Private Const SUBLANG_FRENCH_SWISS = &H4 'Französisch (Schweiz)

Private Const SUBLANG_GERMAN = &H1 'Deutsch

Private Const SUBLANG_GERMAN_AUSTRIAN = &H3 'Deutsch (Österreich)

Private Const SUBLANG_GERMAN_SWISS = &H2 'Deutsch (Schweiz)

Private Const SUBLANG_ITALIAN = &H1 'Italienisch

Private Const SUBLANG_ITALIAN_SWISS = &H2 'Italienisch (Schweiz)

Private Const SUBLANG_NEUTRAL = &H0 'Neutral (Standard)

Private Const SUBLANG_NORWEGIAN_BOKMAL = &H1 'Norwegisch (Bokma)

Private Const SUBLANG_NORWEGIAN_NYNORSK = &H2 'Norwegisch (Nynorsk)

Private Const SUBLANG_PORTUGUESE = &H2 'Portugisisch

Private Const SUBLANG_PORTUGUESE_BRAZILIAN = &H1 'Portugisisch (Brasilianisch)

Private Const SUBLANG_SPANISH = &H1 'Spanisch (Castilian)

Private Const SUBLANG_SPANISH_MEXICAN = &H2 'Spanisch (Mexikanisch)

Private Const SUBLANG_SPANISH_MODERN = &H3 'Spanisch (Modern)

Private Const SUBLANG_SYS_DEFAULT = &H2 'System Standard





'Normale Messagebox aufrufen um einen Fehler zu Simulieren

Private Sub Command1_Click()

   Dim MsgRet As Long



   'MessageBox aufrufen

   MsgRet = MessageBox(Me.hWnd, "Achtung sie haben den 'Command-Button' 1 geklickt.", "Schwerer Ausnahmefehler", MB_OKCANCEL Or MB_SYSTEMMODAL Or MB_ICONERROR)



   'MessageBox Auswerten

   If MsgRet = IDOK Then

      Debug.Print "OK wurde gewählt"

   ElseIf MsgRet = IDCANCEL Then

      Debug.Print "Abbrechen wurde gewählt"

   End If

End Sub





'Erweiterte Messagebox aufrufen um einen vorgang zum wiederholen Simulieren

Private Sub Command2_Click()

   Dim MsgRet As Long



   MsgRet = MessageBoxEx(Me.hWnd, "Der 'Command-Button' 1 wurde falsch geklickt.", "Falsch geklickt", ABORTRETRYIGNORE Or MB_APPLMODAL Or MB_ICONINFORMATION, (SUBLANG_GERMAN * 1024) Or LANG_GERMAN)



   'MessageBox Auswerten

   If MsgRet = IDABORT Then

      Debug.Print "Abbrechen wurde gewählt"

   ElseIf MsgRet = IDRETRY Then

      Debug.Print "Wiederholen wurde gewählt"

   ElseIf MsgRet = IDIGNORE Then

      Debug.Print "Ignorieren wurde gekilckt"

   End If

End Sub





'eine Messagebox wie bei Command2 nur mit einem eigenem Titelleisten Icon

Private Sub Command3_Click()

   Dim MsgRet As Long, MsgParams As MSGBOXPARAMS



   'Mesagbox Eigenschaften setzen, das Icon wird nicht in der IDE angezeigt

   With MsgParams

      .cbSize = Len(MsgParams)

      .dwLanguageId = (SUBLANG_GERMAN * 1024) Or LANG_GERMAN

      .dwStyle = ABORTRETRYIGNORE Or MB_APPLMODAL Or MB_USERICON

      .hInstance = App.hInstance

      .hwndOwner = Me.hWnd

      .lpszCaption = "Falsch geklickt"

      .lpszText = "Der 'Command-Button' 1 wurde falsch geklickt."

      .lpszIcon = 101 '"101" ist der Name einer Icon-Ressource

      .lpfnMsgBoxCallback = 0 'hier könnte man die Adresse einer Funktion zum empfangen von ereignissen angeben

   End With



   'MessageBox aufrufen

   MsgRet = MessageBoxIndirect(MsgParams)



   'MessageBox Auswerten

   If MsgRet = IDABORT Then

      Debug.Print "Abbrechen wurde gewählt"

   ElseIf MsgRet = IDRETRY Then

      Debug.Print "Wiederholen wurde gewählt"

   ElseIf MsgRet = IDIGNORE Then

      Debug.Print "Ignorieren wurde gekilckt"

   End If

End Sub










Feedback nicht vergessen ! Gutes gelingen wünscht Chris

I didn't write this; a very complex macro did.

0110110001101001011001010110001001100101001000000110011101110010111111001101111101100101001000000110001101101000011100100110100101110011

geschrieben von


Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: