DIR Return Create A Forum - Home
       ---------------------------------------------------------
       Hack Community
  HTML https://roshacks.createaforum.com
       ---------------------------------------------------------
       *****************************************************
   DIR Return to: VB.NET
       *****************************************************
       #Post#: 507--------------------------------------------------
       [VB.NET] MessageBox With All Functions
       By: pipo1337 Date: May 13, 2018, 7:26 am
       ---------------------------------------------------------
       [code]Public Class Form1
       Private Sub Form1_Load(ByVal sender As System.Object, _
       ByVal e As System.EventArgs) Handles MyBase.Load
       '
       ' First show a single-argument dialog box with MessageBox.Show.
       '
       MessageBox.Show("Dot Net Perls is awesome.")
       '
       ' Show a two-argument dialog box with this method.
       '
       MessageBox.Show("Dot Net Perls is awesome.", _
       "Important Message")
       '
       ' Use a three-argument dialog box with MessageBox.Show.
       ' ... Also store the result value in a variable slot.
       '
       Dim result1 As DialogResult = MessageBox.Show("Is Dot Net Perls
       awesome?", _
       "Important Question", _
       MessageBoxButtons.YesNo)
       '
       ' Use four parameters with the method.
       ' ... Use the YesNoCancel enumerated constant and the Question
       icon.
       '
       Dim result2 As DialogResult = MessageBox.Show("Is Dot Net Perls
       awesome?", _
       "Important Query", _
       MessageBoxButtons.YesNoCancel, _
       MessageBoxIcon.Question)
       '
       ' Use five arguments on the method.
       ' ... This asks a question and you can test the result using
       the variable.
       '
       Dim result3 As DialogResult = MessageBox.Show("Is Visual Basic
       awesome?", _
       "The Question", _
       MessageBoxButtons.YesNoCancel, _
       MessageBoxIcon.Question, _
       MessageBoxDefaultButton.Button2)
       '
       ' Use if-statement with dialog result.
       '
       If result1 = DialogResult.Yes And _
       result2 = DialogResult.Yes And _
       result3 = DialogResult.No Then
       MessageBox.Show("You answered yes, yes and no.") ' Another
       dialog.
       End If
       '
       ' Use MessageBox.Show overload that has seven arguments.
       '
       MessageBox.Show("Dot Net Perls is the best.", _
       "Critical Warning", _
       MessageBoxButtons.OKCancel, _
       MessageBoxIcon.Warning, _
       MessageBoxDefaultButton.Button1, _
       MessageBoxOptions.RightAlign, _
       True)
       '
       ' Show a dialog box with a single button.
       '
       MessageBox.Show("Dot Net Perls is super.", _
       "Important Note", _
       MessageBoxButtons.OK, _
       MessageBoxIcon.Exclamation, _
       MessageBoxDefaultButton.Button1)
       End Sub
       End Class[/code]
       *****************************************************