в 16:40, 26 мая 2010

2010-05-26T16:40:06Z

Admin: 1 версия

2010-05-26T12:44:32Z

1 версия

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

==MessageBox: Abort, Retry and Ignore==

<source lang="vbnet">
Imports System
Imports System.Collections
Imports System.ruponentModel
Imports System.Windows.Forms
Imports System.Data
Imports System.Configuration
Imports System.Resources
Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.IO
Imports System.Drawing.Printing

Public Class MainClass
Shared Sub Main()
Dim intResult As DialogResult
"Get the results of the button clicked
intResult = MessageBox.Show("The A drive is not ready." & _
ControlChars.CrLf & ControlChars.CrLf & _
"Please insert a diskette into the drive.", "Device Not Ready", _
MessageBoxButtons.AbortRetryIgnore, MessageBoxIcon.Error, _
MessageBoxDefaultButton.Button2)
"Process the results of the button clicked
Select Case intResult
Case DialogResult.Abort
"Do abort processing here...
System.Console.WriteLine("Abort Clicked")
Case DialogResult.Retry
"Do retry processing here...
System.Console.WriteLine("Retry Clicked")
Case DialogResult.Ignore
"Do ignore processing here...
System.Console.WriteLine("Ignore Clicked")
End Select
End Sub
End Class

</source>

==Message Box: Abort Retry Ignore==

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

==Message box Demo==

<source lang="vbnet">
Imports System
Imports System.Windows.Forms
Class MyFirstForm
Inherits Form
Private WithEvents mybutton As Button
Public Sub New()
Me.Text = "Hello, WinForms!"
mybutton = New Button()
mybutton.Text = "Click Me!"
Me.Controls.Add(mybutton)
End Sub
Public Sub mybutton_Click(sender As Object, e As EventArgs) Handles mybutton.Click
MessageBox.Show("Message")
End Sub
Shared Sub Main()
Dim myform As Form = New MyFirstForm()
Application.Run(myform)
End Sub
End Class

</source>

==MessageBox: OK or Cancel==

<source lang="vbnet">
Imports System
Imports System.Collections
Imports System.ruponentModel
Imports System.Windows.Forms
Imports System.Data
Imports System.Configuration
Imports System.Resources
Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.IO
Imports System.Drawing.Printing

Public Class MainClass
Shared Sub Main()

If MessageBox.Show("Info Text.","Title", MessageBoxButtons.OKCancel, _
Nothing, MessageBoxDefaultButton.Button1) = DialogResult.OK Then
System.Console.WriteLine("OK Clicked")
Else
System.Console.WriteLine("Cancel Clicked")
End If
End Sub
End Class

</source>

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

VB.Net/GUI/MessageBox - История изменений

в 16:40, 26 мая 2010

Admin: 1 версия