VB.Net by API/System.Windows.Forms/MessageBoxButtons

Материал из VB Эксперт
Перейти к: навигация, поиск

MessageBoxButtons.AbortRetryIgnore

<source lang="vbnet"> Imports System.Windows.Forms public class MessageBoxWithMessageAndTile

  public Shared Sub Main
       MessageBox.Show("Message", "Title", MessageBoxButtons.AbortRetryIgnore, MessageBoxIcon.Warning)
  End Sub

End class


 </source>


MessageBoxButtons.OKCancel

<source lang="vbnet"> Imports System.Windows.Forms public class MessageBoxOKCancelInformation

  public Shared Sub Main
     Dim answer As DialogResult
     answer = MessageBox.Show("A","B", MessageBoxButtons.OKCancel,MessageBoxIcon.Information)
  End Sub

End class


 </source>


MessageBoxButtons.RetryCancel

<source lang="vbnet"> Imports System.Windows.Forms Public Class Test

   Public Shared Sub Main
       Dim drResult As DialogResult
       drResult = MessageBox.Show("Q?", "Sample", MessageBoxButtons.RetryCancel)
   
       If drResult = DialogResult.Retry Then
         Console.WriteLine("Retry")
       Else
         Console.WriteLine("Cancel")
       End If
   
       Select Case MessageBox.Show("Bad stuff happened","Long Process", MessageBoxButtons.AbortRetryIgnore)
         Case DialogResult.Abort
           Console.WriteLine("abort")
         Case DialogResult.Retry
           Console.WriteLine("retry")
         Case DialogResult.Cancel
           Console.WriteLine("cancel")
         Case Else
           Console.WriteLine("Else")
       End Select
   End Sub

End Class


 </source>