| FatalExit, FatalAppExit |
| |
| |
| Private Declare Sub FatalExit Lib "kernel32" (ByVal code As Long) |
| Private Declare Sub FatalAppExit Lib "kernel32" Alias "FatalAppExitA" _ |
| (ByVal uAction As Long, ByVal lpMessageText As String) |
| |
| Private Sub Command1_Click() | |
| FatalExit 1 | Zeigt kleines Fenster mit Microsoft-Meldung "Diese |
| End Sub | Anwendung wird aufgrund eines ungültigen Vorgangs...". |
| |
| Private Sub Command2_Click() | |
| FatalAppExit 0, "Schwerer Ausnahmefehler :-)" | Zeigt großes weißes Fenster wie z.B. in alten Win 3.1- |
| End Sub | Programmen; Meldung kann man selbst programmieren. |
| |
 | |
| |
| |
| |
| |
| |
| . |
| |
| |
| |
| |
| |
| |
| |
| |
zurück