1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
|
Private Sub Form_Click ()
Dim Answer, Msg as String ' Variable deklarieren.
Unload Form1 ' Formular entladen.
Msg = "Formular1 ist entladen. Wählen Sie 'Ja', um das Formular zu laden und"
Msg = Msg & "anzuzeigen. Wählen Sie 'Nein', um das Formular zu "
Msg = Msg & "laden, ohne es einzublenden."
Answer = MsgBox(Msg, vbYesNo) ' Benutzerantwort.
If Answer = vbYes Then ' Antwort auswerten.
Show ' Wenn "Ja", Formular anzeigen.
Else
Load Form1 ' Wenn "Nein", Formular nur laden.
Msg = "Formular1 ist jetzt geladen. Wählen Sie 'OK', um es "
Msg = Msg & "anzuzeigen."
MsgBox Msg ' Meldung anzeigen.
Show ' Formular einblenden.
End If
End Sub |