[VBasic] Umfangreiche Messagebox erstellen

Malte

Beiträge: 5 424

Aktivitätspunkte: 27 865

1

Sonntag, 14. Juni 2009, 16:44

Umfangreiche Messagebox erstellen

Umfangreiche Messagebox erstellen - So geht's
So erstellt man in Visual Basic eine Frage bzw. Nachricht

Quellcode

 Dim titel As String
    	Dim nachricht As String
    	Dim style As MsgBoxStyle
    	Dim response As MsgBoxResult
    	nachricht = "Haben Sie dieses Tutorial verstanden ?"   ' Eine Frage definieren

    	style = MsgBoxStyle.YesNoCancel 'Hier die Art der Message. In diesem Fall: Ja \ Nein \ Abbrechen

    	titel = "Frage..."   ' Hier kommt der Titel der Message hin

    	response = MsgBox(nachricht, style, titel)

    	'Was passiert, wenn das jeweilige angeklickt wurde
	' Wenn "Ja" angeklickt wurde, passiert...
	If response = MsgBoxResult.Yes Then
        	MsgBox("Super!")  'MsgBox verwendet man für eine einfach Nachricht, ohne großen Aufwand
	'Wenn "Nein" angeklickt wurde, passiert... 'Beachte: Hier muss das ElseIf hin
    	ElseIf response = MsgBoxResult.No Then 
        	MsgBox("Lesen Sie nochmal genauer")
	'Wenn "Abbrechen" angeklickt wurde, passiert...
    	ElseIf response = MsgBoxResult.Cancel Then
        	MsgBox("Das war aussagekräftig")
    	End If

Farbliches Codebeispiel

In diesem Beispiel wird die Messagebox ausgeführt, wenn man auf einen Button klickt!
Dieses Prinzip kann man aber auch z.b bei "Form1.Load" verwendet, oder "Form1.FormClosed"
Das Resultat sollte wie folgendermaßen aussehen: