в 16:40, 26 мая 2010

2010-05-26T16:40:16Z

Admin: 1 версия

2010-05-26T12:51:29Z

1 версия

Новая страница

==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>

← Предыдущая	Версия 16:40, 26 мая 2010
(нет различий)

VB.Net by API/System.Windows.Forms/MessageBoxIcon - История изменений

в 16:40, 26 мая 2010

Admin: 1 версия