VB.Net by API/System.Windows.Forms/MessageBoxIcon — различия между версиями
Admin (обсуждение | вклад) м (1 версия) |
|
(нет различий)
|
Версия 19:40, 26 мая 2010
MessageBoxIcon.Error
<source lang="vbnet"> Imports System Imports System.Drawing Imports System.Data Imports System.IO Imports System.Collections Imports System.Windows.Forms Imports System.Drawing.Printing Public Class MainClass
Shared Sub Main() Dim intResult As Integer intResult = MessageBox.Show("The A drive is not ready." & _ vbCrLf & vbCrLf & _ "Please insert a diskette into the drive.", _ "Device Not Ready", _ MessageBoxButtons.AbortRetryIgnore, _ MessageBoxIcon.Error, _ MessageBoxDefaultButton.Button2) If intResult = DialogResult.Abort Then " Do abort processing here... Console.WriteLine( "Abort Clicked") ElseIf intResult = DialogResult.Retry Then " Do retry processing here... Console.WriteLine("Retry Clicked") Else "It has to be ignore " Do ignore processing here... Console.WriteLine("Ignore Clicked") End If End Sub
End Class
</source>
MessageBoxIcon.Information
<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>
MessageBoxIcon.Warning
<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>