Kategorie: Messageboxen

Private Sub frmMain_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
    Dim strMeldung As String = "Wollen Sie die Anwendung beenden?"
    Dim dr As DialogResult = MessageBox.Show(strMeldung, My.Application.Info.Title, MessageBoxButtons.YesNo)

    If dr = Windows.Forms.DialogResult.Yes Then
        e.Cancel = False
    Else
        e.Cancel = True
    End If
End Sub

• im Beispiel wird eine Messagebox mit individuellem Fragetext: “Objekt löschen?”
• dem Anwendungsnamen: My.Application.Info.Title
• entprechenden Buttons: MessageBoxButtons.YesNo
• und einem Icon: MessageBoxIcon.Question
• angezeigt und das Ergebnis abgefragt.

If MessageBox.Show("Objekt löschen?", My.Application.Info.Title, MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
   ...
End If