в 16:40, 26 мая 2010

2010-05-26T16:40:30Z

Admin: 1 версия

2010-05-26T12:53:56Z

1 версия

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

==Insert statement into With statement==

<source lang="vbnet">Imports System.Drawing
Imports System.Windows.Forms
Public Class WithForm : Inherits Form
Public Shared Sub Main()
Dim frm as New Form
With frm
.BackColor = Color.Gray
.ForeColor = Color.Red
.Text = "The With Statement"
Dim fnt As Font = .Font
MsgBox(fnt.Name)
.Enabled = True
.Topmost = True
.MinimizeBox = False
.ShowDialog()
End With
End Sub
End Class</source>

==Nested With statement==

<source lang="vbnet">Imports System.Drawing
Imports System.Windows.Forms
Public Class Form1 : Inherits Form
Public Shared Sub Main()
Dim frm As New Form1()
Application.Run(frm)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
With Me
.BackColor = Color.Gray
.ForeColor = Color.Red
.Text = "The With Statement"
.Enabled = True
.TopMost = True
.MinimizeBox = False
For Each ctrl As Control In .Controls
With ctrl
.BackColor = SystemColors.Window
.AutoSize = False
.Cursor = Cursors.Hand
End With
Next
End With
End Sub
End Class</source>

==Use With statement with Form object==

<source lang="vbnet">Imports System.Drawing
Imports System.Windows.Forms
Public Class WithForm : Inherits Form
Public Shared Sub Main()
Dim frm as New Form
With frm
.BackColor = Color.Gray
.ForeColor = Color.Red
.Text = "The With Statement"
.Enabled = True
.Topmost = True
.MinimizeBox = False
.ShowDialog()
End With
End Sub
End Class</source>

==Use With statement with OpenFileDialog==

<source lang="vbnet">Imports System.Windows.Forms
public class OpenFileDialogWith
public Shared Sub Main
Dim OpenFileDialog1 As OpenFileDialog = New System.Windows.Forms.OpenFileDialog
With OpenFileDialog1
.FileName = "C:\My Documents\Doc1.txt"
.DefaultExt = ".txt"
.Filter = "Text Files|*.TXT"
.Filter = "Bitmaps|*.BMP|GIF Images|*.GIF|" & _
"JPG Images|*.JPG|All Images|*.BMP;*.GIF;*.JPG"
.FilterIndex = 2
.InitialDirectory = "C:\My Documents"
.ShowReadOnly = True
.ReadOnlyChecked = True
End With
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
Console.WriteLine(OpenFileDialog1.FileName)

End If

End Sub
End class</source>

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

VB.Net Tutorial/Statements/With statement - История изменений

в 16:40, 26 мая 2010

Admin: 1 версия