VB.Net by API/System.Windows.Forms/Form
Содержание
- 1 Form.AcceptButton
- 2 Form.Activated
- 3 Form.AddOwnedForm
- 4 Form.AutoScaleBaseSize
- 5 Form.AutoScroll
- 6 Form.CancelButton
- 7 Form.Click
- 8 Form.ClientSize
- 9 Form.Controls
- 10 Form.Controls.Add
- 11 Form.Controls.AddRange
- 12 Form.CreateGraphics
- 13 Form.Deactivate
- 14 Form.Enter
- 15 Form.FormBorderStyle
- 16 Form.Icon
- 17 Form.IsMdiContainer
- 18 Form.LayoutMdi
- 19 Form.Leave
- 20 Form.Load
- 21 Form.MdiParent
- 22 Form.Menu
- 23 Form.MouseDown
- 24 Form.MouseMove
- 25 Form.MouseUp
- 26 Form.OnNotifyMessage
- 27 Form.OnPaint
- 28 Form.OnResize
- 29 Form.Opacity
- 30 Form.Paint
- 31 Form.Region
- 32 Form.RemoveOwnedForm
- 33 Form.Resize
- 34 Form.ResizeRedraw
- 35 Form.SetStyle
- 36 Form.ShowDialog
- 37 Form.Size
- 38 Form.Text
- 39 Form.TransparencyKey
- 40 Form.WndProc
- 41 Inherits Form
Form.AcceptButton
<source lang="vbnet">
Imports System Imports System.Collections Imports System.Data Imports System.IO Imports System.Xml.Serialization Imports System.Windows.Forms Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Drawing.Text Imports System.Drawing.Printing
Public Class MainClass
Shared Sub Main() Dim myForm As New Form1() If myForm.ShowDialog() = DialogResult.Cancel Then MessageBox.Show("You pressed the cancel button") Else MessageBox.Show("You pressed OK.") End If End Sub
End Class
Public Class Form1
Inherits System.Windows.Forms.Form
- Region " Windows Form Designer generated code "
Public Sub New() MyBase.New() "This call is required by the Windows Form Designer. InitializeComponent() "Add any initialization after the InitializeComponent() call End Sub "Form overrides dispose to clean up the component list. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub Friend WithEvents btnOK As System.Windows.Forms.Button Friend WithEvents btnCancel As System.Windows.Forms.Button Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox "Required by the Windows Form Designer Private components As System.ruponentModel.Container "NOTE: The following procedure is required by the Windows Form Designer "It can be modified using the Windows Form Designer. "Do not modify it using the code editor. <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() Me.PictureBox1 = New System.Windows.Forms.PictureBox() Me.btnCancel = New System.Windows.Forms.Button() Me.btnOK = New System.Windows.Forms.Button() Me.SuspendLayout() " "PictureBox1 " Me.PictureBox1.Anchor = ((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right) Me.PictureBox1.Location = New System.Drawing.Point(0, 8) Me.PictureBox1.Name = "PictureBox1" Me.PictureBox1.Size = New System.Drawing.Size(288, 184) Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage Me.PictureBox1.TabIndex = 2 Me.PictureBox1.TabStop = False " "btnCancel " Me.btnCancel.Anchor = System.Windows.Forms.AnchorStyles.Bottom Me.btnCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel Me.btnCancel.Location = New System.Drawing.Point(168, 240) Me.btnCancel.Name = "btnCancel" Me.btnCancel.Size = New System.Drawing.Size(88, 32) Me.btnCancel.TabIndex = 1 Me.btnCancel.Text = "Cancel" " "btnOK " Me.btnOK.Anchor = System.Windows.Forms.AnchorStyles.Bottom Me.btnOK.DialogResult = System.Windows.Forms.DialogResult.OK Me.btnOK.Location = New System.Drawing.Point(40, 240) Me.btnOK.Name = "btnOK" Me.btnOK.Size = New System.Drawing.Size(80, 32) Me.btnOK.TabIndex = 0 Me.btnOK.Text = "OK" " "Form1 " Me.AutoScaleBaseSize = New System.Drawing.Size(6, 15) Me.ClientSize = New System.Drawing.Size(292, 288) Me.ControlBox = False Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.PictureBox1, Me.btnCancel, Me.btnOK}) Me.MaximizeBox = False Me.MinimizeBox = False Me.Name = "Form1" Me.Text = "Sample Custom dialog box" Me.ResumeLayout(False) End Sub
- End Region
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.Visible = False Me.AcceptButton = btnOK Me.CancelButton = btnCancel End Sub
End Class
</source>
Form.Activated
<source lang="vbnet"> Imports System.Windows.Forms Module Module1
Sub Main() Application.Run(New Form1) End Sub
End Module Public Class Form1
Inherits System.Windows.Forms.Form
- Region " Windows Form Designer generated code "
Public Sub New() MyBase.New() "This call is required by the Windows Form Designer. InitializeComponent() "Add any initialization after the InitializeComponent() call End Sub "Form overrides dispose to clean up the component list. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub "Required by the Windows Form Designer Private components As System.ruponentModel.IContainer "NOTE: The following procedure is required by the Windows Form Designer "It can be modified using the Windows Form Designer. "Do not modify it using the code editor. Friend WithEvents TabControl1 As System.Windows.Forms.TabControl Friend WithEvents TabPage1 As System.Windows.Forms.TabPage Friend WithEvents TabPage2 As System.Windows.Forms.TabPage Friend WithEvents TabPage3 As System.Windows.Forms.TabPage Friend WithEvents TabPage4 As System.Windows.Forms.TabPage Friend WithEvents TextBox1 As System.Windows.Forms.TextBox Friend WithEvents TextBox2 As System.Windows.Forms.TextBox Friend WithEvents TextBox3 As System.Windows.Forms.TextBox Friend WithEvents TextBox4 As System.Windows.Forms.TextBox <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() Me.TabControl1 = New System.Windows.Forms.TabControl() Me.TabPage1 = New System.Windows.Forms.TabPage() Me.TextBox1 = New System.Windows.Forms.TextBox() Me.TabPage2 = New System.Windows.Forms.TabPage() Me.TextBox2 = New System.Windows.Forms.TextBox() Me.TabPage3 = New System.Windows.Forms.TabPage() Me.TextBox3 = New System.Windows.Forms.TextBox() Me.TabPage4 = New System.Windows.Forms.TabPage() Me.TextBox4 = New System.Windows.Forms.TextBox() Me.TabControl1.SuspendLayout() Me.TabPage1.SuspendLayout() Me.TabPage2.SuspendLayout() Me.TabPage3.SuspendLayout() Me.TabPage4.SuspendLayout() Me.SuspendLayout() " "TabControl1 " Me.TabControl1.Controls.AddRange(New System.Windows.Forms.Control() {Me.TabPage1, Me.TabPage2, Me.TabPage3, Me.TabPage4}) Me.TabControl1.Location = New System.Drawing.Point(48, 48) Me.TabControl1.Name = "TabControl1" Me.TabControl1.SelectedIndex = 0 Me.TabControl1.Size = New System.Drawing.Size(288, 200) Me.TabControl1.TabIndex = 0 " "TabPage1 " Me.TabPage1.Controls.AddRange(New System.Windows.Forms.Control() {Me.TextBox1}) Me.TabPage1.Location = New System.Drawing.Point(4, 22) Me.TabPage1.Name = "TabPage1" Me.TabPage1.Size = New System.Drawing.Size(280, 174) Me.TabPage1.TabIndex = 0 Me.TabPage1.Text = "Visual Basic .Net" " "TextBox1 " Me.TextBox1.Location = New System.Drawing.Point(8, 8) Me.TextBox1.Multiline = True Me.TextBox1.Name = "TextBox1" Me.TextBox1.Size = New System.Drawing.Size(264, 160) Me.TextBox1.TabIndex = 0 Me.TextBox1.Text = "" " "TabPage2 " Me.TabPage2.Controls.AddRange(New System.Windows.Forms.Control() {Me.TextBox2}) Me.TabPage2.Location = New System.Drawing.Point(4, 22) Me.TabPage2.Name = "TabPage2" Me.TabPage2.Size = New System.Drawing.Size(280, 174) Me.TabPage2.TabIndex = 1 Me.TabPage2.Text = "C# " " "TextBox2 " Me.TextBox2.Location = New System.Drawing.Point(8, 8) Me.TextBox2.Multiline = True Me.TextBox2.Name = "TextBox2" Me.TextBox2.Size = New System.Drawing.Size(264, 160) Me.TextBox2.TabIndex = 0 Me.TextBox2.Text = "" " "TabPage3 " Me.TabPage3.Controls.AddRange(New System.Windows.Forms.Control() {Me.TextBox3}) Me.TabPage3.Location = New System.Drawing.Point(4, 22) Me.TabPage3.Name = "TabPage3" Me.TabPage3.Size = New System.Drawing.Size(280, 174) Me.TabPage3.TabIndex = 2 Me.TabPage3.Text = "HTML" " "TextBox3 " Me.TextBox3.Location = New System.Drawing.Point(8, 8) Me.TextBox3.Multiline = True Me.TextBox3.Name = "TextBox3" Me.TextBox3.Size = New System.Drawing.Size(264, 160) Me.TextBox3.TabIndex = 0 Me.TextBox3.Text = "" " "TabPage4 " Me.TabPage4.Controls.AddRange(New System.Windows.Forms.Control() {Me.TextBox4}) Me.TabPage4.Location = New System.Drawing.Point(4, 22) Me.TabPage4.Name = "TabPage4" Me.TabPage4.Size = New System.Drawing.Size(280, 174) Me.TabPage4.TabIndex = 3 Me.TabPage4.Text = "Upgrading" " "TextBox4 " Me.TextBox4.Location = New System.Drawing.Point(8, 8) Me.TextBox4.Multiline = True Me.TextBox4.Name = "TextBox4" Me.TextBox4.Size = New System.Drawing.Size(264, 160) Me.TextBox4.TabIndex = 0 Me.TextBox4.Text = "" " "Form1 " Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(528, 389) Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.TabControl1}) Me.Name = "Form1" Me.Text = "TabControlDemo" Me.TabControl1.ResumeLayout(False) Me.TabPage1.ResumeLayout(False) Me.TabPage2.ResumeLayout(False) Me.TabPage3.ResumeLayout(False) Me.TabPage4.ResumeLayout(False) Me.ResumeLayout(False) End Sub
- End Region
Private Sub Form1_Activated(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Activated TextBox1.Text = "some text" TextBox2.Text = "some text" TextBox3.Text = "some text" TextBox4.Text = "some text" End Sub
End Class
</source>
Form.AddOwnedForm
<source lang="vbnet"> Imports System Imports System.Drawing Imports System.Windows.Forms Imports System.ruponentModel Public Class MainClass
Shared Sub Main() Dim form1 As Form = New Form1 Application.Run(form1)
End Sub
End Class Public Class OwnedForm
Inherits System.Windows.Forms.Form
- Region " Windows Form Designer generated code "
Public Sub New() MyBase.New() "This call is required by the Windows Form Designer. InitializeComponent() "Add any initialization after the InitializeComponent() call End Sub "Form overrides dispose to clean up the component list. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub Friend WithEvents lblState As System.Windows.Forms.Label "Required by the Windows Form Designer Private components As System.ruponentModel.Container "NOTE: The following procedure is required by the Windows Form Designer "It can be modified using the Windows Form Designer. "Do not modify it using the code editor. <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() Me.lblState = New System.Windows.Forms.Label() Me.SuspendLayout() " "lblState " Me.lblState.Location = New System.Drawing.Point(12, 12) Me.lblState.Name = "lblState" Me.lblState.Size = New System.Drawing.Size(184, 56) Me.lblState.TabIndex = 0 " "OwnedForm " Me.AutoScaleBaseSize = New System.Drawing.Size(5, 14) Me.ClientSize = New System.Drawing.Size(204, 78) Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.lblState}) Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Name = "OwnedForm" Me.StartPosition = System.Windows.Forms.FormStartPosition.Manual Me.Text = "Owned Form" Me.ResumeLayout(False) End Sub
- End Region
End Class
Public Class Form1
Inherits System.Windows.Forms.Form
- Region " Windows Form Designer generated code "
Public Sub New() MyBase.New() "This call is required by the Windows Form Designer. InitializeComponent() "Add any initialization after the InitializeComponent() call End Sub "Form overrides dispose to clean up the component list. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub Friend WithEvents cmdAddOwnership As System.Windows.Forms.Button Friend WithEvents cmdReleaseOwnership As System.Windows.Forms.Button "Required by the Windows Form Designer Private components As System.ruponentModel.Container "NOTE: The following procedure is required by the Windows Form Designer "It can be modified using the Windows Form Designer. "Do not modify it using the code editor. Friend WithEvents label1 As System.Windows.Forms.Label <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() Me.cmdAddOwnership = New System.Windows.Forms.Button() Me.cmdReleaseOwnership = New System.Windows.Forms.Button() Me.label1 = New System.Windows.Forms.Label() Me.SuspendLayout() " "cmdAddOwnership " Me.cmdAddOwnership.FlatStyle = System.Windows.Forms.FlatStyle.System Me.cmdAddOwnership.Location = New System.Drawing.Point(12, 180) Me.cmdAddOwnership.Name = "cmdAddOwnership" Me.cmdAddOwnership.Size = New System.Drawing.Size(120, 32) Me.cmdAddOwnership.TabIndex = 0 Me.cmdAddOwnership.Text = "Set Ownership" " "cmdReleaseOwnership " Me.cmdReleaseOwnership.FlatStyle = System.Windows.Forms.FlatStyle.System Me.cmdReleaseOwnership.Location = New System.Drawing.Point(148, 180) Me.cmdReleaseOwnership.Name = "cmdReleaseOwnership" Me.cmdReleaseOwnership.Size = New System.Drawing.Size(128, 32) Me.cmdReleaseOwnership.TabIndex = 1 Me.cmdReleaseOwnership.Text = "Remove Ownership" " "label1 " Me.label1.Location = New System.Drawing.Point(40, 32) Me.label1.Name = "label1" Me.label1.Size = New System.Drawing.Size(216, 80) Me.label1.TabIndex = 5 Me.label1.Text = "Minimize to check the ownership." " "Owner " Me.AutoScaleBaseSize = New System.Drawing.Size(5, 14) Me.ClientSize = New System.Drawing.Size(288, 222) Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.label1, Me.cmdReleaseOwnership, Me.cmdAddOwnership}) Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Name = "Owner" Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "Basic Form" Me.ResumeLayout(False) End Sub
- End Region
Private frmOwned As New OwnedForm() Private Sub Owner_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.Show() frmOwned.Show() End Sub Private Sub cmdAddOwnership_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAddOwnership.Click Me.AddOwnedForm(frmOwned) frmOwned.lblState.Text = "I"m Owned" End Sub Private Sub cmdReleaseOwnership_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdReleaseOwnership.Click Me.RemoveOwnedForm(frmOwned) frmOwned.lblState.Text = "I"m Free!" End Sub
End Class
</source>
Form.AutoScaleBaseSize
<source lang="vbnet"> Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Windows.Forms public class TextureTransform
public Shared Sub Main Application.Run(New Form1) End Sub
End class public class Form1
Inherits System.Windows.Forms.Form Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs) Dim g As Graphics = e.Graphics Dim str As String = "www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru " g.ScaleTransform(2, 1) g.RotateTransform(45.0F, System.Drawing.Drawing2D.MatrixOrder.Prepend) g.TranslateTransform(-20, -70) g.DrawString(str, New Font("Verdana", 10), New SolidBrush(Color.Blue), New RectangleF(50, 20, 200, 300)) End Sub Public Sub New() MyBase.New() Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(292, 273) Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen End Sub
End Class
</source>
Form.AutoScroll
<source lang="vbnet"> Imports System Imports System.Drawing Imports System.Windows.Forms Imports System.ruponentModel Imports System.Drawing.Drawing2D Imports System.IO Public Class MainClass
Shared Sub Main() Dim form1 As Form = New Form1 Application.Run(form1)
End Sub
End Class
Public Class Form1
Inherits System.Windows.Forms.Form
- Region " Windows Form Designer generated code "
Public Sub New() MyBase.New() "This call is required by the Windows Form Designer. InitializeComponent() "Add any initialization after the InitializeComponent() call End Sub "Form overrides dispose to clean up the component list. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub "Required by the Windows Form Designer Private components As System.ruponentModel.IContainer "NOTE: The following procedure is required by the Windows Form Designer "It can be modified using the Windows Form Designer. "Do not modify it using the code editor. Friend WithEvents Panel1 As System.Windows.Forms.Panel Friend WithEvents Button1 As System.Windows.Forms.Button Friend WithEvents Button2 As System.Windows.Forms.Button Friend WithEvents Button3 As System.Windows.Forms.Button Friend WithEvents Button4 As System.Windows.Forms.Button Friend WithEvents Button5 As System.Windows.Forms.Button Friend WithEvents Button6 As System.Windows.Forms.Button <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() Me.Panel1 = New System.Windows.Forms.Panel() Me.Button6 = New System.Windows.Forms.Button() Me.Button5 = New System.Windows.Forms.Button() Me.Button4 = New System.Windows.Forms.Button() Me.Button3 = New System.Windows.Forms.Button() Me.Button2 = New System.Windows.Forms.Button() Me.Button1 = New System.Windows.Forms.Button() Me.Panel1.SuspendLayout() Me.SuspendLayout() " "Panel1 " Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D Me.Panel1.Controls.AddRange(New System.Windows.Forms.Control() {Me.Button6, Me.Button5, Me.Button4, Me.Button3, Me.Button2, Me.Button1}) Me.Panel1.Location = New System.Drawing.Point(8, 8) Me.Panel1.Name = "Panel1" Me.Panel1.Size = New System.Drawing.Size(260, 232) Me.Panel1.TabIndex = 0 " "Button6 " Me.Button6.FlatStyle = System.Windows.Forms.FlatStyle.System Me.Button6.Location = New System.Drawing.Point(16, 180) Me.Button6.Name = "Button6" Me.Button6.Size = New System.Drawing.Size(168, 24) Me.Button6.TabIndex = 5 Me.Button6.Text = "Button6" " "Button5 " Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.System Me.Button5.Location = New System.Drawing.Point(16, 148) Me.Button5.Name = "Button5" Me.Button5.Size = New System.Drawing.Size(168, 24) Me.Button5.TabIndex = 4 Me.Button5.Text = "Button5" " "Button4 " Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.System Me.Button4.Location = New System.Drawing.Point(16, 116) Me.Button4.Name = "Button4" Me.Button4.Size = New System.Drawing.Size(168, 24) Me.Button4.TabIndex = 3 Me.Button4.Text = "Button4" " "Button3 " Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.System Me.Button3.Location = New System.Drawing.Point(16, 84) Me.Button3.Name = "Button3" Me.Button3.Size = New System.Drawing.Size(168, 24) Me.Button3.TabIndex = 2 Me.Button3.Text = "Button3" " "Button2 " Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.System Me.Button2.Location = New System.Drawing.Point(16, 52) Me.Button2.Name = "Button2" Me.Button2.Size = New System.Drawing.Size(168, 24) Me.Button2.TabIndex = 1 Me.Button2.Text = "Button2" " "Button1 " Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.System Me.Button1.Location = New System.Drawing.Point(16, 20) Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size(168, 24) Me.Button1.TabIndex = 0 Me.Button1.Text = "Button1" " "ScrollableForm " Me.AutoScaleBaseSize = New System.Drawing.Size(5, 14) Me.AutoScroll = True Me.ClientSize = New System.Drawing.Size(224, 147) Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Panel1}) Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Name = "ScrollableForm" Me.Text = "Scrollable Form" Me.Panel1.ResumeLayout(False) Me.ResumeLayout(False) End Sub
- End Region
Private Sub ScrollableForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.Refresh() End Sub
End Class
</source>
Form.CancelButton
<source lang="vbnet"> Imports System Imports System.Collections Imports System.Data Imports System.IO Imports System.Xml.Serialization Imports System.Windows.Forms Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Drawing.Text Imports System.Drawing.Printing
Public Class MainClass
Shared Sub Main() Dim myForm As New Form1() If myForm.ShowDialog() = DialogResult.Cancel Then MessageBox.Show("You pressed the cancel button") Else MessageBox.Show("You pressed OK.") End If End Sub
End Class
Public Class Form1
Inherits System.Windows.Forms.Form
- Region " Windows Form Designer generated code "
Public Sub New() MyBase.New() "This call is required by the Windows Form Designer. InitializeComponent() "Add any initialization after the InitializeComponent() call End Sub "Form overrides dispose to clean up the component list. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub Friend WithEvents btnOK As System.Windows.Forms.Button Friend WithEvents btnCancel As System.Windows.Forms.Button Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox "Required by the Windows Form Designer Private components As System.ruponentModel.Container "NOTE: The following procedure is required by the Windows Form Designer "It can be modified using the Windows Form Designer. "Do not modify it using the code editor. <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() Me.PictureBox1 = New System.Windows.Forms.PictureBox() Me.btnCancel = New System.Windows.Forms.Button() Me.btnOK = New System.Windows.Forms.Button() Me.SuspendLayout() " "PictureBox1 " Me.PictureBox1.Anchor = ((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ Or System.Windows.Forms.AnchorStyles.Right) Me.PictureBox1.Location = New System.Drawing.Point(0, 8) Me.PictureBox1.Name = "PictureBox1" Me.PictureBox1.Size = New System.Drawing.Size(288, 184) Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage Me.PictureBox1.TabIndex = 2 Me.PictureBox1.TabStop = False " "btnCancel " Me.btnCancel.Anchor = System.Windows.Forms.AnchorStyles.Bottom Me.btnCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel Me.btnCancel.Location = New System.Drawing.Point(168, 240) Me.btnCancel.Name = "btnCancel" Me.btnCancel.Size = New System.Drawing.Size(88, 32) Me.btnCancel.TabIndex = 1 Me.btnCancel.Text = "Cancel" " "btnOK " Me.btnOK.Anchor = System.Windows.Forms.AnchorStyles.Bottom Me.btnOK.DialogResult = System.Windows.Forms.DialogResult.OK Me.btnOK.Location = New System.Drawing.Point(40, 240) Me.btnOK.Name = "btnOK" Me.btnOK.Size = New System.Drawing.Size(80, 32) Me.btnOK.TabIndex = 0 Me.btnOK.Text = "OK" " "Form1 " Me.AutoScaleBaseSize = New System.Drawing.Size(6, 15) Me.ClientSize = New System.Drawing.Size(292, 288) Me.ControlBox = False Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.PictureBox1, Me.btnCancel, Me.btnOK}) Me.MaximizeBox = False Me.MinimizeBox = False Me.Name = "Form1" Me.Text = "Sample Custom dialog box" Me.ResumeLayout(False) End Sub
- End Region
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.Visible = False Me.AcceptButton = btnOK Me.CancelButton = btnCancel End Sub
End Class
</source>
Form.Click
<source lang="vbnet"> Imports System.Diagnostics Imports System.Windows.Forms public class FormEvents
public Shared Sub Main Application.Run(New Form1) End Sub
End class
Public Class Form1
Inherits System.Windows.Forms.Form
- Region " Windows Form Designer generated code "
Public Sub New() MyBase.New() "This call is required by the Windows Form Designer. InitializeComponent() "Add any initialization after the InitializeComponent() call Console.WriteLine("New Event Fired") End Sub "Form overrides dispose to clean up the component list. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) Console.WriteLine("Dispose Method Executed") If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub Friend WithEvents btnLoop As System.Windows.Forms.Button Friend WithEvents btnRemember As System.Windows.Forms.Button Friend WithEvents Button1 As System.Windows.Forms.Button Friend WithEvents Button2 As System.Windows.Forms.Button Friend WithEvents Button3 As System.Windows.Forms.Button "Required by the Windows Form Designer Private components As System.ruponentModel.IContainer "NOTE: The following procedure is required by the Windows Form Designer "It can be modified using the Windows Form Designer. "Do not modify it using the code editor. <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() Me.btnLoop = New System.Windows.Forms.Button() Me.btnRemember = New System.Windows.Forms.Button() Me.Button1 = New System.Windows.Forms.Button() Me.Button2 = New System.Windows.Forms.Button() Me.Button3 = New System.Windows.Forms.Button() Me.SuspendLayout() " "btnLoop " Me.btnLoop.Location = New System.Drawing.Point(24, 56) Me.btnLoop.Name = "btnLoop" Me.btnLoop.TabIndex = 0 Me.btnLoop.Text = "Loop" " "btnRemember " Me.btnRemember.Location = New System.Drawing.Point(136, 56) Me.btnRemember.Name = "btnRemember" Me.btnRemember.Size = New System.Drawing.Size(112, 23) Me.btnRemember.TabIndex = 1 Me.btnRemember.Text = "Remember Position" " "Button1 " Me.Button1.Location = New System.Drawing.Point(24, 16) Me.Button1.Name = "Button1" Me.Button1.TabIndex = 2 Me.Button1.Text = "Button1" " "Button2 " Me.Button2.Location = New System.Drawing.Point(128, 16) Me.Button2.Name = "Button2" Me.Button2.TabIndex = 3 Me.Button2.Text = "Button2" " "Button3 " Me.Button3.Location = New System.Drawing.Point(224, 16) Me.Button3.Name = "Button3" Me.Button3.Size = New System.Drawing.Size(72, 24) Me.Button3.TabIndex = 4 Me.Button3.Text = "Button3" " "Form1 " Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(320, 134) Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Button3, Me.Button2, Me.Button1, Me.btnRemember, Me.btnLoop}) Me.Name = "Form1" Me.Text = "Event-O-Rama" Me.ResumeLayout(False) End Sub
- End Region
Dim formsize As System.Drawing.Size Dim formlocation As System.Drawing.Point
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load Console.WriteLine("Load Event Fired") formsize = Me.Size formlocation = Me.Location End Sub Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Activated Console.WriteLine("Activated Event Fired") End Sub Private Sub Form1_Closed(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Closed Console.WriteLine("Closed Event Fired") End Sub Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ruponentModel.CancelEventArgs) Handles MyBase.Closing Console.WriteLine("Closing Event Fired") Dim answer As MsgBoxResult answer = MsgBox("Do you want to close this window?", MsgBoxStyle.YesNo, "Demonstration of the Closing event") If answer = MsgBoxResult.No Then e.Cancel = True End If End Sub Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Click Console.WriteLine("Click Event Fired") End Sub Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove Console.WriteLine("MouseMove Event Fired") End Sub Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Resize Console.WriteLine("Resize Event Fired " & Me.Size.Width.ToString()) End Sub Private Sub Form1_Deactivate(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Deactivate Console.WriteLine("Deactivate Event Fired") End Sub Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint Console.WriteLine("Paint Event Fired") End Sub Private Sub Form1_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Leave Console.WriteLine("Leave Event Fired") End Sub Private Sub Form1_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Enter Console.WriteLine("Enter Event Fired") End Sub
Private Sub btnLoop_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnLoop.Enter Console.WriteLine("btnLoop Enter Event Fired") "btnLoop_Leave(sender, e) End Sub Private Sub btnLoop_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnLoop.Leave Console.WriteLine("btnLoop Leave Event Fired") "btnLoop_Enter(sender, e) End Sub Private Sub btnRemember_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnRemember.Click Me.Size = formsize Me.Location = formlocation End Sub Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) _ Handles Button1.Click, Button2.Click, Button3.Click MsgBox(sender.Text & " was clicked!") End Sub
End Class
</source>
Form.ClientSize
<source lang="vbnet"> Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Windows.Forms public class TextureTransform
public Shared Sub Main Application.Run(New Form1) End Sub
End class public class Form1
Inherits System.Windows.Forms.Form Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs) Dim g As Graphics = e.Graphics Dim str As String = "www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru www.vbex.ru " g.ScaleTransform(2, 1) g.RotateTransform(45.0F, System.Drawing.Drawing2D.MatrixOrder.Prepend) g.TranslateTransform(-20, -70) g.DrawString(str, New Font("Verdana", 10), New SolidBrush(Color.Blue), New RectangleF(50, 20, 200, 300)) End Sub Public Sub New() MyBase.New() Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(292, 273) Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen End Sub
End Class
</source>
Form.Controls
<source lang="vbnet"> Imports System Imports System.ruponentModel Imports System.Windows.Forms Imports System.Data Imports System.Configuration Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Drawing.Text Imports System.Globalization Imports System.Text Imports System.Collections Public Class MainClass
Shared Sub Main() Dim myform As Form = New Form1() Application.Run(myform) End Sub
End Class
Public Class Form1
" Declare the btnHi button WithEvents. Private WithEvents buttonHi As Button " Make the new buttonHi button. Private Sub btnMakeHiButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMakeHiButton.Click buttonHi = New Button buttonHi.SetBounds(96, 50, 75, 23) buttonHi.Text = "Say Hi" Me.Controls.Add(buttonHi) End Sub " The user clicked the buttonHi button. Private Sub buttonHi_Click(ByVal sender As Object, _ ByVal e As System.EventArgs) Handles buttonHi.Click MessageBox.Show("Hi") End Sub Private Sub btnRemoveHiButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRemoveHiButton.Click Me.Controls.Remove(buttonHi) buttonHi = Nothing End Sub
End Class
<Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _ Partial Public Class Form1
Inherits System.Windows.Forms.Form "Form overrides dispose to clean up the component list. <System.Diagnostics.DebuggerNonUserCode()> _ Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing AndAlso components IsNot Nothing Then components.Dispose() End If MyBase.Dispose(disposing) End Sub "Required by the Windows Form Designer Private components As System.ruponentModel.IContainer "NOTE: The following procedure is required by the Windows Form Designer "It can be modified using the Windows Form Designer. "Do not modify it using the code editor. <System.Diagnostics.DebuggerStepThrough()> _ Private Sub InitializeComponent() Me.btnMakeHiButton = New System.Windows.Forms.Button Me.btnRemoveHiButton = New System.Windows.Forms.Button Me.SuspendLayout() " "btnMakeHiButton " Me.btnMakeHiButton.Location = New System.Drawing.Point(8, 8) Me.btnMakeHiButton.Name = "btnMakeHiButton" Me.btnMakeHiButton.Size = New System.Drawing.Size(112, 23) Me.btnMakeHiButton.TabIndex = 0 Me.btnMakeHiButton.Text = "Make Hi Button" " "btnRemoveHiButton " Me.btnRemoveHiButton.Location = New System.Drawing.Point(144, 8) Me.btnRemoveHiButton.Name = "btnRemoveHiButton" Me.btnRemoveHiButton.Size = New System.Drawing.Size(112, 23) Me.btnRemoveHiButton.TabIndex = 1 Me.btnRemoveHiButton.Text = "Remove Hi Button" " "Form1 " Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(292, 273) Me.Controls.Add(Me.btnRemoveHiButton) Me.Controls.Add(Me.btnMakeHiButton) Me.Name = "Form1" Me.Text = "Form1" Me.ResumeLayout(False) End Sub Friend WithEvents btnMakeHiButton As System.Windows.Forms.Button Friend WithEvents btnRemoveHiButton As System.Windows.Forms.Button
End Class
</source>
Form.Controls.Add
<source lang="vbnet"> Option Strict On Imports System.Drawing Imports System.Windows.Forms Public Class Form1 : Inherits Form
Private WithEvents cmdClickCtr As Button = New Button() Public Sub New() Me.cmdClickCtr.Location = New Point(100, 75) Me.cmdClickCtr.Size = New Size(100, 50) Me.cmdClickCtr.Text = "Click Counter" Me.Controls.Add(cmdClickCtr) Me.Text = "Click Counter" End Sub Private Sub cmdClickCtr_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) _ Handles cmdClickCtr.Click Static ctr As Integer = 1 MsgBox("Button was clicked " & ctr & " times.") ctr += 1 End Sub Public Shared Sub Main() Dim frm As New Form1() frm.ShowDialog() End Sub
End Class
</source>
Form.Controls.AddRange
<source lang="vbnet"> Imports System Imports System.Drawing Imports System.Windows.Forms public class MainClass
Shared Sub Main() Dim form1 As Form = New Form1 Application.Run(form1) End Sub
End Class
Public Class Form1
Inherits System.Windows.Forms.Form
- Region " Windows Form Designer generated code "
Public Sub New() MyBase.New() "This call is required by the Windows Form Designer. InitializeComponent() "Add any initialization after the InitializeComponent() call End Sub "Form overrides dispose to clean up the component list. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub Friend WithEvents ctl1 As System.Windows.Forms.ContainerControl Friend WithEvents textBox2 As System.Windows.Forms.TextBox Friend WithEvents textBox1 As System.Windows.Forms.TextBox Friend WithEvents textBox3 As System.Windows.Forms.TextBox "Required by the Windows Form Designer Private components As System.ruponentModel.IContainer "NOTE: The following procedure is required by the Windows Form Designer "It can be modified using the Windows Form Designer. "Do not modify it using the code editor. <System.Diagnostics.DebuggerStepThroughAttribute()> Private Sub InitializeComponent() Me.textBox1 = New System.Windows.Forms.TextBox() Me.ctl1 = New System.Windows.Forms.ContainerControl() Me.textBox2 = New System.Windows.Forms.TextBox() Me.textBox3 = New System.Windows.Forms.TextBox() Me.ctl1.SuspendLayout() Me.SuspendLayout() " "textBox1 " Me.textBox1.Location = New System.Drawing.Point(128, 24) Me.textBox1.Name = "textBox1" Me.textBox1.Size = New System.Drawing.Size(136, 20) Me.textBox1.TabIndex = 0 Me.textBox1.Text = "textBox1" " "ctl1 " Me.ctl1.AutoScroll = True Me.ctl1.BackColor = System.Drawing.Color.DarkBlue Me.ctl1.Controls.AddRange(New System.Windows.Forms.Control() {Me.textBox2, Me.textBox1}) Me.ctl1.Location = New System.Drawing.Point(24, 32) Me.ctl1.Name = "ctl1" Me.ctl1.Size = New System.Drawing.Size(216, 104) Me.ctl1.TabIndex = 0 " "textBox2 " Me.textBox2.Location = New System.Drawing.Point(32, 24) Me.textBox2.Name = "textBox2" Me.textBox2.Size = New System.Drawing.Size(64, 20) Me.textBox2.TabIndex = 1 Me.textBox2.Text = "textBox2" " "textBox3 " Me.textBox3.Location = New System.Drawing.Point(176, 168) Me.textBox3.Name = "textBox3" Me.textBox3.Size = New System.Drawing.Size(72, 20) Me.textBox3.TabIndex = 1 Me.textBox3.Text = "textBox3" " "Form1 " Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(292, 273) Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.textBox3, Me.ctl1}) Me.Name = "Form1" Me.Text = "Form1" Me.ctl1.ResumeLayout(False) Me.ResumeLayout(False) End Sub
- End Region
End Class
</source>
Form.CreateGraphics
<source lang="vbnet">
Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Windows.Forms public class DrawCircle
public Shared Sub Main Application.Run(New Form1) End Sub
End class public class Form1
Inherits System.Windows.Forms.Form Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs) Dim a As Graphics = e.Graphics Dim mypen As Pen Dim myrect As RectangleF mypen = New Pen(System.Drawing.Color.Red, 6) a = Me.CreateGraphics a.Clear(Me.BackColor) a.DrawEllipse(mypen, 100, 100, 50, 50) a.DrawEllipse(mypen, 75, 75, 100, 100) a.DrawEllipse(mypen, 25, 25, 200, 200) a.DrawEllipse(mypen, 0, 0, 250, 250) myrect.X = 300 myrect.Y = 10 myrect.Width = 250 myrect.Height = 100 a.DrawEllipse(mypen, myrect) myrect.X = 400 myrect.Y = 10 myrect.Width = 100 myrect.Height = 250 a.DrawEllipse(mypen, myrect)
a.Dispose() mypen.Dispose() End Sub Public Sub New() MyBase.New() Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(292, 273) Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen End Sub
End Class
</source>
Form.Deactivate
<source lang="vbnet"> Imports System.Diagnostics Imports System.Windows.Forms public class FormEvents
public Shared Sub Main Application.Run(New Form1) End Sub
End class
Public Class Form1
Inherits System.Windows.Forms.Form
- Region " Windows Form Designer generated code "
Public Sub New() MyBase.New() "This call is required by the Windows Form Designer. InitializeComponent() "Add any initialization after the InitializeComponent() call Console.WriteLine("New Event Fired") End Sub "Form overrides dispose to clean up the component list. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) Console.WriteLine("Dispose Method Executed") If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub Friend WithEvents btnLoop As System.Windows.Forms.Button Friend WithEvents btnRemember As System.Windows.Forms.Button Friend WithEvents Button1 As System.Windows.Forms.Button Friend WithEvents Button2 As System.Windows.Forms.Button Friend WithEvents Button3 As System.Windows.Forms.Button "Required by the Windows Form Designer Private components As System.ruponentModel.IContainer "NOTE: The following procedure is required by the Windows Form Designer "It can be modified using the Windows Form Designer. "Do not modify it using the code editor. <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() Me.btnLoop = New System.Windows.Forms.Button() Me.btnRemember = New System.Windows.Forms.Button() Me.Button1 = New System.Windows.Forms.Button() Me.Button2 = New System.Windows.Forms.Button() Me.Button3 = New System.Windows.Forms.Button() Me.SuspendLayout() " "btnLoop " Me.btnLoop.Location = New System.Drawing.Point(24, 56) Me.btnLoop.Name = "btnLoop" Me.btnLoop.TabIndex = 0 Me.btnLoop.Text = "Loop" " "btnRemember " Me.btnRemember.Location = New System.Drawing.Point(136, 56) Me.btnRemember.Name = "btnRemember" Me.btnRemember.Size = New System.Drawing.Size(112, 23) Me.btnRemember.TabIndex = 1 Me.btnRemember.Text = "Remember Position" " "Button1 " Me.Button1.Location = New System.Drawing.Point(24, 16) Me.Button1.Name = "Button1" Me.Button1.TabIndex = 2 Me.Button1.Text = "Button1" " "Button2 " Me.Button2.Location = New System.Drawing.Point(128, 16) Me.Button2.Name = "Button2" Me.Button2.TabIndex = 3 Me.Button2.Text = "Button2" " "Button3 " Me.Button3.Location = New System.Drawing.Point(224, 16) Me.Button3.Name = "Button3" Me.Button3.Size = New System.Drawing.Size(72, 24) Me.Button3.TabIndex = 4 Me.Button3.Text = "Button3" " "Form1 " Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(320, 134) Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Button3, Me.Button2, Me.Button1, Me.btnRemember, Me.btnLoop}) Me.Name = "Form1" Me.Text = "Event-O-Rama" Me.ResumeLayout(False) End Sub
- End Region
Dim formsize As System.Drawing.Size Dim formlocation As System.Drawing.Point
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load Console.WriteLine("Load Event Fired") formsize = Me.Size formlocation = Me.Location End Sub Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Activated Console.WriteLine("Activated Event Fired") End Sub Private Sub Form1_Closed(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Closed Console.WriteLine("Closed Event Fired") End Sub Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ruponentModel.CancelEventArgs) Handles MyBase.Closing Console.WriteLine("Closing Event Fired") Dim answer As MsgBoxResult answer = MsgBox("Do you want to close this window?", MsgBoxStyle.YesNo, "Demonstration of the Closing event") If answer = MsgBoxResult.No Then e.Cancel = True End If End Sub Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Click Console.WriteLine("Click Event Fired") End Sub Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove Console.WriteLine("MouseMove Event Fired") End Sub Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Resize Console.WriteLine("Resize Event Fired " & Me.Size.Width.ToString()) End Sub Private Sub Form1_Deactivate(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Deactivate Console.WriteLine("Deactivate Event Fired") End Sub Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint Console.WriteLine("Paint Event Fired") End Sub Private Sub Form1_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Leave Console.WriteLine("Leave Event Fired") End Sub Private Sub Form1_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Enter Console.WriteLine("Enter Event Fired") End Sub
Private Sub btnLoop_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnLoop.Enter Console.WriteLine("btnLoop Enter Event Fired") "btnLoop_Leave(sender, e) End Sub Private Sub btnLoop_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnLoop.Leave Console.WriteLine("btnLoop Leave Event Fired") "btnLoop_Enter(sender, e) End Sub Private Sub btnRemember_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnRemember.Click Me.Size = formsize Me.Location = formlocation End Sub Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) _ Handles Button1.Click, Button2.Click, Button3.Click MsgBox(sender.Text & " was clicked!") End Sub
End Class
</source>
Form.Enter
<source lang="vbnet"> Imports System.Diagnostics Imports System.Windows.Forms public class FormEvents
public Shared Sub Main Application.Run(New Form1) End Sub
End class
Public Class Form1
Inherits System.Windows.Forms.Form
- Region " Windows Form Designer generated code "
Public Sub New() MyBase.New() "This call is required by the Windows Form Designer. InitializeComponent() "Add any initialization after the InitializeComponent() call Console.WriteLine("New Event Fired") End Sub "Form overrides dispose to clean up the component list. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) Console.WriteLine("Dispose Method Executed") If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub Friend WithEvents btnLoop As System.Windows.Forms.Button Friend WithEvents btnRemember As System.Windows.Forms.Button Friend WithEvents Button1 As System.Windows.Forms.Button Friend WithEvents Button2 As System.Windows.Forms.Button Friend WithEvents Button3 As System.Windows.Forms.Button "Required by the Windows Form Designer Private components As System.ruponentModel.IContainer "NOTE: The following procedure is required by the Windows Form Designer "It can be modified using the Windows Form Designer. "Do not modify it using the code editor. <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() Me.btnLoop = New System.Windows.Forms.Button() Me.btnRemember = New System.Windows.Forms.Button() Me.Button1 = New System.Windows.Forms.Button() Me.Button2 = New System.Windows.Forms.Button() Me.Button3 = New System.Windows.Forms.Button() Me.SuspendLayout() " "btnLoop " Me.btnLoop.Location = New System.Drawing.Point(24, 56) Me.btnLoop.Name = "btnLoop" Me.btnLoop.TabIndex = 0 Me.btnLoop.Text = "Loop" " "btnRemember " Me.btnRemember.Location = New System.Drawing.Point(136, 56) Me.btnRemember.Name = "btnRemember" Me.btnRemember.Size = New System.Drawing.Size(112, 23) Me.btnRemember.TabIndex = 1 Me.btnRemember.Text = "Remember Position" " "Button1 " Me.Button1.Location = New System.Drawing.Point(24, 16) Me.Button1.Name = "Button1" Me.Button1.TabIndex = 2 Me.Button1.Text = "Button1" " "Button2 " Me.Button2.Location = New System.Drawing.Point(128, 16) Me.Button2.Name = "Button2" Me.Button2.TabIndex = 3 Me.Button2.Text = "Button2" " "Button3 " Me.Button3.Location = New System.Drawing.Point(224, 16) Me.Button3.Name = "Button3" Me.Button3.Size = New System.Drawing.Size(72, 24) Me.Button3.TabIndex = 4 Me.Button3.Text = "Button3" " "Form1 " Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(320, 134) Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Button3, Me.Button2, Me.Button1, Me.btnRemember, Me.btnLoop}) Me.Name = "Form1" Me.Text = "Event-O-Rama" Me.ResumeLayout(False) End Sub
- End Region
Dim formsize As System.Drawing.Size Dim formlocation As System.Drawing.Point
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load Console.WriteLine("Load Event Fired") formsize = Me.Size formlocation = Me.Location End Sub Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Activated Console.WriteLine("Activated Event Fired") End Sub Private Sub Form1_Closed(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Closed Console.WriteLine("Closed Event Fired") End Sub Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ruponentModel.CancelEventArgs) Handles MyBase.Closing Console.WriteLine("Closing Event Fired") Dim answer As MsgBoxResult answer = MsgBox("Do you want to close this window?", MsgBoxStyle.YesNo, "Demonstration of the Closing event") If answer = MsgBoxResult.No Then e.Cancel = True End If End Sub Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Click Console.WriteLine("Click Event Fired") End Sub Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove Console.WriteLine("MouseMove Event Fired") End Sub Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Resize Console.WriteLine("Resize Event Fired " & Me.Size.Width.ToString()) End Sub Private Sub Form1_Deactivate(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Deactivate Console.WriteLine("Deactivate Event Fired") End Sub Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint Console.WriteLine("Paint Event Fired") End Sub Private Sub Form1_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Leave Console.WriteLine("Leave Event Fired") End Sub Private Sub Form1_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Enter Console.WriteLine("Enter Event Fired") End Sub
Private Sub btnLoop_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnLoop.Enter Console.WriteLine("btnLoop Enter Event Fired") "btnLoop_Leave(sender, e) End Sub Private Sub btnLoop_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnLoop.Leave Console.WriteLine("btnLoop Leave Event Fired") "btnLoop_Enter(sender, e) End Sub Private Sub btnRemember_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnRemember.Click Me.Size = formsize Me.Location = formlocation End Sub Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) _ Handles Button1.Click, Button2.Click, Button3.Click MsgBox(sender.Text & " was clicked!") End Sub
End Class
</source>
Form.FormBorderStyle
<source lang="vbnet">
Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Windows.Forms public class FormBackgroundPicture
public Shared Sub Main Application.Run(New Form1) End Sub
End class Public Class Form1
Inherits System.Windows.Forms.Form
- Region " Windows Form Designer generated code "
Public Sub New() MyBase.New() "This call is required by the Windows Form Designer. InitializeComponent() "Add any initialization after the InitializeComponent() call End Sub "Form overrides dispose to clean up the component list. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub "Required by the Windows Form Designer Private components As System.ruponentModel.IContainer "NOTE: The following procedure is required by the Windows Form Designer "It can be modified using the Windows Form Designer. "Do not modify it using the code editor. Friend WithEvents Button1 As System.Windows.Forms.Button <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Form1)) Me.Button1 = New System.Windows.Forms.Button Me.SuspendLayout() " "Button1 " Me.Button1.Location = New System.Drawing.Point(152, 88) Me.Button1.Name = "Button1" Me.Button1.TabIndex = 0 Me.Button1.Text = "Close" " "Form1 " Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.BackgroundImage = System.Drawing.Image.FromFile("yourfile.jpg") Me.ClientSize = New System.Drawing.Size(376, 208) Me.Controls.Add(Me.Button1) Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None Me.Name = "Form1" Me.Text = "Form1" Me.TransparencyKey = System.Drawing.Color.White Me.ResumeLayout(False) End Sub
- End Region
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.Close() End Sub
End Class
</source>
Form.Icon
<source lang="vbnet"> Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Windows.Forms public class MyResourcesMainFormIcon
public Shared Sub Main Application.Run(New Form1) End Sub
End class
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.Icon = New Icon("1.ico") End Sub
End Class <Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _ Partial Public Class Form1
Inherits System.Windows.Forms.Form "Form overrides dispose to clean up the component list. <System.Diagnostics.DebuggerNonUserCode()> _ Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing AndAlso components IsNot Nothing Then components.Dispose() End If MyBase.Dispose(disposing) End Sub "Required by the Windows Form Designer Private components As System.ruponentModel.IContainer "NOTE: The following procedure is required by the Windows Form Designer "It can be modified using the Windows Form Designer. "Do not modify it using the code editor. <System.Diagnostics.DebuggerStepThrough()> _ Private Sub InitializeComponent() Me.SuspendLayout() " "Form1 " Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(292, 273) Me.Name = "Form1" Me.Text = "Form1" Me.ResumeLayout(False) End Sub
End Class
</source>
Form.IsMdiContainer
<source lang="vbnet"> Imports System Imports System.Collections Imports System.Data Imports System.IO Imports System.Xml.Serialization Imports System.Windows.Forms Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Drawing.Text Imports System.Drawing.Printing
Public Class MainClass
Shared Sub Main() Dim form1 As Form = New Form1() Application.Run(form1) End Sub
End Class
Public Class Form1
Inherits System.Windows.Forms.Form
- Region " Windows Form Designer generated code "
Public Sub New() MyBase.New() "This call is required by the Windows Form Designer. InitializeComponent() "Add any initialization after the InitializeComponent() call End Sub "Form overrides dispose to clean up the component list. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub "Required by the Windows Form Designer Private components As System.ruponentModel.Container "NOTE: The following procedure is required by the Windows Form Designer "It can be modified using the Windows Form Designer. "Do not modify it using the code editor. <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() " "Form1 " Me.AutoScaleBaseSize = New System.Drawing.Size(6, 15) Me.ClientSize = New System.Drawing.Size(292, 268) Me.Name = "Form1" Me.Text = "MDI Example 1" End Sub
- End Region
Private Sub Form1_Load(ByVal sender As System.Object, _ ByVal e As System.EventArgs) _ Handles MyBase.Load Me.Text = "I"m an MDI Parent" Me.IsMdiContainer = True Dim MyChild As New System.Windows.Forms.Form() MyChild.MdiParent = Me MyChild.Show() MyChild.Text = "MDI Child" End Sub
End Class
</source>
Form.LayoutMdi
<source lang="vbnet"> Imports System Imports System.Drawing Imports System.Collections Imports System.ruponentModel Imports System.Windows.Forms Imports System.Data Imports System.Configuration Imports System.Resources Public Class ChildForm
Inherits System.Windows.Forms.Form
- Region " Windows Form Designer generated code "
Public Sub New() MyBase.New() "This call is required by the Windows Form Designer. InitializeComponent() "Add any initialization after the InitializeComponent() call End Sub "Form overrides dispose to clean up the component list. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub "Required by the Windows Form Designer Private components As System.ruponentModel.IContainer "NOTE: The following procedure is required by the Windows Form Designer "It can be modified using the Windows Form Designer. "Do not modify it using the code editor. Friend WithEvents mainMenu1 As System.Windows.Forms.MainMenu Friend WithEvents menuItem11 As System.Windows.Forms.MenuItem Friend WithEvents menuItem1 As System.Windows.Forms.MenuItem Friend WithEvents cmdFileClose As System.Windows.Forms.MenuItem Friend WithEvents menuItem13 As System.Windows.Forms.MenuItem Friend WithEvents menuItem5 As System.Windows.Forms.MenuItem Friend WithEvents menuItem4 As System.Windows.Forms.MenuItem Friend WithEvents menuItem6 As System.Windows.Forms.MenuItem <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() Me.mainMenu1 = New System.Windows.Forms.MainMenu() Me.menuItem11 = New System.Windows.Forms.MenuItem() Me.menuItem1 = New System.Windows.Forms.MenuItem() Me.cmdFileClose = New System.Windows.Forms.MenuItem() Me.menuItem13 = New System.Windows.Forms.MenuItem() Me.menuItem5 = New System.Windows.Forms.MenuItem() Me.menuItem4 = New System.Windows.Forms.MenuItem() Me.menuItem6 = New System.Windows.Forms.MenuItem() " "mainMenu1 " Me.mainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.menuItem11, Me.menuItem13}) " "menuItem11 " Me.menuItem11.Index = 0 Me.menuItem11.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.menuItem1, Me.cmdFileClose}) Me.menuItem11.MergeType = System.Windows.Forms.MenuMerge.MergeItems Me.menuItem11.Text = "&File" " "menuItem1 " Me.menuItem1.Index = 0 Me.menuItem1.MergeOrder = 1 Me.menuItem1.Text = "&Save" " "cmdFileClose " Me.cmdFileClose.Index = 1 Me.cmdFileClose.MergeOrder = 1 Me.cmdFileClose.Text = "&Close" " "menuItem13 " Me.menuItem13.Index = 1 Me.menuItem13.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.menuItem5, Me.menuItem4, Me.menuItem6}) Me.menuItem13.MergeOrder = 1 Me.menuItem13.Text = "&Edit" " "menuItem5 " Me.menuItem5.Index = 0 Me.menuItem5.Text = "Cu&t" " "menuItem4 " Me.menuItem4.Index = 1 Me.menuItem4.Text = "&Copy" " "menuItem6 " Me.menuItem6.Index = 2 Me.menuItem6.Text = "&Paste" " "ChildForm " Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(168, 147) Me.Menu = Me.mainMenu1 Me.Name = "ChildForm" Me.Text = "MDI Child" End Sub
- End Region
Private Sub cmdFileClose_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdFileClose.Click Close() End Sub
End Class Public Class ParentForm
Inherits System.Windows.Forms.Form
- Region " Windows Form Designer generated code "
Public Sub New() MyBase.New() "This call is required by the Windows Form Designer. InitializeComponent() "Add any initialization after the InitializeComponent() call End Sub "Form overrides dispose to clean up the component list. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub "Required by the Windows Form Designer Private components As System.ruponentModel.IContainer "NOTE: The following procedure is required by the Windows Form Designer "It can be modified using the Windows Form Designer. "Do not modify it using the code editor. Friend WithEvents cmdCascade As System.Windows.Forms.MenuItem Friend WithEvents menuItem7 As System.Windows.Forms.MenuItem Friend WithEvents menuItem3 As System.Windows.Forms.MenuItem Friend WithEvents cmdWindowArrangeIcons As System.Windows.Forms.MenuItem Friend WithEvents cmdWindowTileChildrenVert As System.Windows.Forms.MenuItem Friend WithEvents cmdWindowTileChildrenHoriz As System.Windows.Forms.MenuItem Friend WithEvents menuItem8 As System.Windows.Forms.MenuItem Friend WithEvents statusBar1 As System.Windows.Forms.StatusBar Friend WithEvents cmdFileNewChild As System.Windows.Forms.MenuItem Friend WithEvents cmdFileExit As System.Windows.Forms.MenuItem Friend WithEvents treeView1 As System.Windows.Forms.TreeView Friend WithEvents mainMenu1 As System.Windows.Forms.MainMenu Friend WithEvents menuItem1 As System.Windows.Forms.MenuItem Friend WithEvents menuItem9 As System.Windows.Forms.MenuItem Friend WithEvents splitter1 As System.Windows.Forms.Splitter <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() Me.cmdCascade = New System.Windows.Forms.MenuItem() Me.menuItem7 = New System.Windows.Forms.MenuItem() Me.menuItem3 = New System.Windows.Forms.MenuItem() Me.cmdWindowArrangeIcons = New System.Windows.Forms.MenuItem() Me.cmdWindowTileChildrenVert = New System.Windows.Forms.MenuItem() Me.cmdWindowTileChildrenHoriz = New System.Windows.Forms.MenuItem() Me.menuItem8 = New System.Windows.Forms.MenuItem() Me.statusBar1 = New System.Windows.Forms.StatusBar() Me.cmdFileNewChild = New System.Windows.Forms.MenuItem() Me.cmdFileExit = New System.Windows.Forms.MenuItem() Me.treeView1 = New System.Windows.Forms.TreeView() Me.mainMenu1 = New System.Windows.Forms.MainMenu() Me.menuItem1 = New System.Windows.Forms.MenuItem() Me.menuItem9 = New System.Windows.Forms.MenuItem() Me.splitter1 = New System.Windows.Forms.Splitter() Me.SuspendLayout() " "cmdCascade " Me.cmdCascade.Index = 1 Me.cmdCascade.Text = "&Cascade" " "menuItem7 " Me.menuItem7.Index = 4 Me.menuItem7.Text = "-" " "menuItem3 " Me.menuItem3.Index = 1 Me.menuItem3.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.cmdWindowArrangeIcons, Me.cmdCascade, Me.cmdWindowTileChildrenVert, Me.cmdWindowTileChildrenHoriz, Me.menuItem7, Me.menuItem8}) Me.menuItem3.MergeOrder = 2 Me.menuItem3.Text = "&Window" " "cmdWindowArrangeIcons " Me.cmdWindowArrangeIcons.Index = 0 Me.cmdWindowArrangeIcons.Text = "&Arrange Icons" " "cmdWindowTileChildrenVert " Me.cmdWindowTileChildrenVert.Index = 2 Me.cmdWindowTileChildrenVert.Text = "Tile Children &Vertically" " "cmdWindowTileChildrenHoriz " Me.cmdWindowTileChildrenHoriz.Index = 3 Me.cmdWindowTileChildrenHoriz.Text = "Tile Children &Horizontally" " "menuItem8 " Me.menuItem8.Index = 5 Me.menuItem8.MdiList = True Me.menuItem8.Text = "Window&s" " "statusBar1 " Me.statusBar1.Location = New System.Drawing.Point(0, 179) Me.statusBar1.Name = "statusBar1" Me.statusBar1.Size = New System.Drawing.Size(352, 22) Me.statusBar1.TabIndex = 4 Me.statusBar1.Text = "Ready" " "cmdFileNewChild " Me.cmdFileNewChild.Index = 0 Me.cmdFileNewChild.Shortcut = System.Windows.Forms.Shortcut.CtrlN Me.cmdFileNewChild.Text = "&New Child" " "cmdFileExit " Me.cmdFileExit.Index = 2 Me.cmdFileExit.MergeOrder = 2 Me.cmdFileExit.Text = "E&xit" " "treeView1 " Me.treeView1.Dock = System.Windows.Forms.DockStyle.Left Me.treeView1.ImageIndex = -1 Me.treeView1.Location = New System.Drawing.Point(3, 0) Me.treeView1.Name = "treeView1" Me.treeView1.Nodes.AddRange(New System.Windows.Forms.TreeNode() {New System.Windows.Forms.TreeNode("Children")}) Me.treeView1.SelectedImageIndex = -1 Me.treeView1.Size = New System.Drawing.Size(121, 179) Me.treeView1.TabIndex = 5 " "mainMenu1 " Me.mainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.menuItem1, Me.menuItem3}) " "menuItem1 " Me.menuItem1.Index = 0 Me.menuItem1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.cmdFileNewChild, Me.menuItem9, Me.cmdFileExit}) Me.menuItem1.MergeType = System.Windows.Forms.MenuMerge.MergeItems Me.menuItem1.Text = "&File" " "menuItem9 " Me.menuItem9.Index = 1 Me.menuItem9.MergeOrder = 2 Me.menuItem9.Text = "-" " "splitter1 " Me.splitter1.Name = "splitter1" Me.splitter1.Size = New System.Drawing.Size(3, 179) Me.splitter1.TabIndex = 6 Me.splitter1.TabStop = False " "ParentForm " Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(352, 201) Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.treeView1, Me.splitter1, Me.statusBar1}) Me.IsMdiContainer = True Me.Menu = Me.mainMenu1 Me.Name = "ParentForm" Me.Text = "MDI Parent" Me.ResumeLayout(False) End Sub
- End Region
Dim nextChild As Integer = 1
Public Sub ChildClosed(ByVal sender As Object, ByVal e As EventArgs) Dim node As TreeNode For Each node In treeView1.Nodes(0).Nodes If node.Tag Is sender Then treeView1.Nodes(0).Nodes.Remove(node) Exit For End If Next End Sub Private Sub cmdFileNewChild_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdFileNewChild.Click Dim child As Form = New ChildForm() child.Text = "Child " & nextChild.ToString() AddHandler child.Closed, AddressOf ChildClosed nextChild = nextChild + 1 child.MdiParent = Me child.Show() Dim node As TreeNode = New TreeNode(child.Text) node.Tag = child treeView1.Nodes(0).Nodes.Add(node) treeView1.Nodes(0).Expand() End Sub Private Sub cmdFileExit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdFileExit.Click Close() End Sub Private Sub cmdWindowArrangeIcons_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdWindowArrangeIcons.Click Me.LayoutMdi(MdiLayout.ArrangeIcons) End Sub Private Sub cmdCascade_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdCascade.Click Me.LayoutMdi(MdiLayout.Cascade) End Sub Private Sub cmdWindowTileChildrenVert_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdWindowTileChildrenVert.Click Me.LayoutMdi(MdiLayout.TileVertical) End Sub Private Sub cmdWindowTileChildrenHoriz_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdWindowTileChildrenHoriz.Click Me.LayoutMdi(MdiLayout.TileHorizontal) End Sub Private Sub treeView1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles treeView1.Click Dim child As Form If TypeOf (treeView1.SelectedNode.Tag) Is Form Then child = CType(treeView1.SelectedNode.Tag, Form) End If If Not child Is Nothing Then child.Activate() End Sub
End Class Public Class MainClass
Shared Sub Main() Dim myform As Form = New ParentForm() Application.Run(myform) End Sub
End Class
</source>
Form.Leave
<source lang="vbnet"> Imports System.Diagnostics Imports System.Windows.Forms public class FormEvents
public Shared Sub Main Application.Run(New Form1) End Sub
End class
Public Class Form1
Inherits System.Windows.Forms.Form
- Region " Windows Form Designer generated code "
Public Sub New() MyBase.New() "This call is required by the Windows Form Designer. InitializeComponent() "Add any initialization after the InitializeComponent() call Console.WriteLine("New Event Fired") End Sub "Form overrides dispose to clean up the component list. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) Console.WriteLine("Dispose Method Executed") If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub Friend WithEvents btnLoop As System.Windows.Forms.Button Friend WithEvents btnRemember As System.Windows.Forms.Button Friend WithEvents Button1 As System.Windows.Forms.Button Friend WithEvents Button2 As System.Windows.Forms.Button Friend WithEvents Button3 As System.Windows.Forms.Button "Required by the Windows Form Designer Private components As System.ruponentModel.IContainer "NOTE: The following procedure is required by the Windows Form Designer "It can be modified using the Windows Form Designer. "Do not modify it using the code editor. <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() Me.btnLoop = New System.Windows.Forms.Button() Me.btnRemember = New System.Windows.Forms.Button() Me.Button1 = New System.Windows.Forms.Button() Me.Button2 = New System.Windows.Forms.Button() Me.Button3 = New System.Windows.Forms.Button() Me.SuspendLayout() " "btnLoop " Me.btnLoop.Location = New System.Drawing.Point(24, 56) Me.btnLoop.Name = "btnLoop" Me.btnLoop.TabIndex = 0 Me.btnLoop.Text = "Loop" " "btnRemember " Me.btnRemember.Location = New System.Drawing.Point(136, 56) Me.btnRemember.Name = "btnRemember" Me.btnRemember.Size = New System.Drawing.Size(112, 23) Me.btnRemember.TabIndex = 1 Me.btnRemember.Text = "Remember Position" " "Button1 " Me.Button1.Location = New System.Drawing.Point(24, 16) Me.Button1.Name = "Button1" Me.Button1.TabIndex = 2 Me.Button1.Text = "Button1" " "Button2 " Me.Button2.Location = New System.Drawing.Point(128, 16) Me.Button2.Name = "Button2" Me.Button2.TabIndex = 3 Me.Button2.Text = "Button2" " "Button3 " Me.Button3.Location = New System.Drawing.Point(224, 16) Me.Button3.Name = "Button3" Me.Button3.Size = New System.Drawing.Size(72, 24) Me.Button3.TabIndex = 4 Me.Button3.Text = "Button3" " "Form1 " Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(320, 134) Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Button3, Me.Button2, Me.Button1, Me.btnRemember, Me.btnLoop}) Me.Name = "Form1" Me.Text = "Event-O-Rama" Me.ResumeLayout(False) End Sub
- End Region
Dim formsize As System.Drawing.Size Dim formlocation As System.Drawing.Point
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load Console.WriteLine("Load Event Fired") formsize = Me.Size formlocation = Me.Location End Sub Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Activated Console.WriteLine("Activated Event Fired") End Sub Private Sub Form1_Closed(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Closed Console.WriteLine("Closed Event Fired") End Sub Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ruponentModel.CancelEventArgs) Handles MyBase.Closing Console.WriteLine("Closing Event Fired") Dim answer As MsgBoxResult answer = MsgBox("Do you want to close this window?", MsgBoxStyle.YesNo, "Demonstration of the Closing event") If answer = MsgBoxResult.No Then e.Cancel = True End If End Sub Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Click Console.WriteLine("Click Event Fired") End Sub Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove Console.WriteLine("MouseMove Event Fired") End Sub Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Resize Console.WriteLine("Resize Event Fired " & Me.Size.Width.ToString()) End Sub Private Sub Form1_Deactivate(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Deactivate Console.WriteLine("Deactivate Event Fired") End Sub Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint Console.WriteLine("Paint Event Fired") End Sub Private Sub Form1_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Leave Console.WriteLine("Leave Event Fired") End Sub Private Sub Form1_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Enter Console.WriteLine("Enter Event Fired") End Sub
Private Sub btnLoop_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnLoop.Enter Console.WriteLine("btnLoop Enter Event Fired") "btnLoop_Leave(sender, e) End Sub Private Sub btnLoop_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnLoop.Leave Console.WriteLine("btnLoop Leave Event Fired") "btnLoop_Enter(sender, e) End Sub Private Sub btnRemember_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnRemember.Click Me.Size = formsize Me.Location = formlocation End Sub Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) _ Handles Button1.Click, Button2.Click, Button3.Click MsgBox(sender.Text & " was clicked!") End Sub
End Class
</source>
Form.Load
<source lang="vbnet"> Imports System.Windows.Forms Module Module1
Sub Main() Application.Run(New Form1) End Sub
End Module Public Class Form1
Inherits System.Windows.Forms.Form
- Region " Windows Form Designer generated code "
Public Sub New() MyBase.New() "This call is required by the Windows Form Designer. InitializeComponent() "Add any initialization after the InitializeComponent() call End Sub "Form overrides dispose to clean up the component list. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub "Required by the Windows Form Designer Private components As System.ruponentModel.IContainer "NOTE: The following procedure is required by the Windows Form Designer "It can be modified using the Windows Form Designer. "Do not modify it using the code editor. Friend WithEvents CheckedListBox1 As System.Windows.Forms.CheckedListBox Friend WithEvents Button1 As System.Windows.Forms.Button <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() Me.CheckedListBox1 = New System.Windows.Forms.CheckedListBox() Me.Button1 = New System.Windows.Forms.Button() Me.SuspendLayout() " "CheckedListBox1 " Me.CheckedListBox1.Location = New System.Drawing.Point(24, 32) Me.CheckedListBox1.Name = "CheckedListBox1" Me.CheckedListBox1.Size = New System.Drawing.Size(360, 64) Me.CheckedListBox1.TabIndex = 0 " "Button1 " Me.Button1.Location = New System.Drawing.Point(152, 120) Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size(96, 23) Me.Button1.TabIndex = 1 Me.Button1.Text = "Show Choice" " "Form1 " Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(416, 165) Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Button1, Me.CheckedListBox1}) Me.Name = "Form1" Me.Text = "CheckListBoxDemo" Me.ResumeLayout(False) End Sub
- End Region
Public List() As String = {"A","B","C","D"} Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load CheckedListBox1.BeginUpdate() CheckedListBox1.DataSource = List CheckedListBox1.EndUpdate() End Sub
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click If (CheckedListBox1.SelectedItem <> "") Then Dim Entry As Object For Each Entry In CheckedListBox1.CheckedItems MessageBox.Show(Entry.ToString()) Next Else MessageBox.Show("You must select an item") End If End Sub
End Class
</source>
Form.MdiParent
<source lang="vbnet">
Imports System Imports System.Collections Imports System.Data Imports System.IO Imports System.Xml.Serialization Imports System.Windows.Forms Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Drawing.Text Imports System.Drawing.Printing
Public Class MainClass
Shared Sub Main() Dim form1 As Form = New Form1() Application.Run(form1) End Sub
End Class
Public Class Form1
Inherits System.Windows.Forms.Form
- Region " Windows Form Designer generated code "
Public Sub New() MyBase.New() "This call is required by the Windows Form Designer. InitializeComponent() "Add any initialization after the InitializeComponent() call End Sub "Form overrides dispose to clean up the component list. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub "Required by the Windows Form Designer Private components As System.ruponentModel.Container "NOTE: The following procedure is required by the Windows Form Designer "It can be modified using the Windows Form Designer. "Do not modify it using the code editor. <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() " "Form1 " Me.AutoScaleBaseSize = New System.Drawing.Size(6, 15) Me.ClientSize = New System.Drawing.Size(292, 268) Me.Name = "Form1" Me.Text = "MDI Example 1" End Sub
- End Region
Private Sub Form1_Load(ByVal sender As System.Object, _ ByVal e As System.EventArgs) _ Handles MyBase.Load Me.Text = "I"m an MDI Parent" Me.IsMdiContainer = True Dim MyChild As New System.Windows.Forms.Form() MyChild.MdiParent = Me MyChild.Show() MyChild.Text = "MDI Child" End Sub
End Class
</source>
Form.Menu
<source lang="vbnet"> Imports System Imports System.Drawing Imports System.Reflection Imports System.Windows.Forms Imports System.IO
public class MainClass
Shared Sub Main() Dim form1 As Form = New Form1 Application.Run(form1) End Sub
End Class
Public Class Form1
Inherits System.Windows.Forms.Form
- Region " Windows Form Designer generated code "
Public Sub New() MyBase.New() "This call is required by the Windows Form Designer. InitializeComponent() "Add any initialization after the InitializeComponent() call End Sub "Form overrides dispose to clean up the component list. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub "Required by the Windows Form Designer Private components As System.ruponentModel.IContainer "NOTE: The following procedure is required by the Windows Form Designer "It can be modified using the Windows Form Designer. "Do not modify it using the code editor. Friend WithEvents Button1 As System.Windows.Forms.Button Friend WithEvents TextBox1 As System.Windows.Forms.TextBox <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() Me.Button1 = New System.Windows.Forms.Button() Me.TextBox1 = New System.Windows.Forms.TextBox() Me.SuspendLayout() " "Button1 " Me.Button1.Font = New System.Drawing.Font("Verdana", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Button1.Location = New System.Drawing.Point(4, 198) Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size(269, 37) Me.Button1.TabIndex = 0 Me.Button1.Text = "Show Menu Structure" " "TextBox1 " Me.TextBox1.Font = New System.Drawing.Font("Verdana", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.TextBox1.Location = New System.Drawing.Point(4, 6) Me.TextBox1.Multiline = True Me.TextBox1.Name = "TextBox1" Me.TextBox1.ScrollBars = System.Windows.Forms.ScrollBars.Vertical Me.TextBox1.Size = New System.Drawing.Size(272, 186) Me.TextBox1.TabIndex = 1 Me.TextBox1.Text = "" " "Form1 " Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(280, 257) Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.TextBox1, Me.Button1}) Me.Name = "Form1" Me.Text = "Menu Demo" Me.ResumeLayout(False) End Sub
- End Region
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim menu As New MainMenu() Dim item As MenuItem item = New MenuItem("File") item.MenuItems.Add("New", New System.EventHandler(AddressOf Me.MenuClick)) item.MenuItems.Add("Open", New System.EventHandler(AddressOf Me.MenuClick)) item.MenuItems.Add("Exit") " Add the top-level menu item to the MainMenu component " and set the MainMenu component to be the form"s menu. menu.MenuItems.Add(item) item = New MenuItem("Edit") item.MenuItems.Add("Copy", New System.EventHandler(AddressOf Me.MenuClick)) item.MenuItems.Add("Cut", New System.EventHandler(AddressOf Me.MenuClick)) item.MenuItems.Add("Paste", New System.EventHandler(AddressOf Me.MenuClick)) menu.MenuItems.Add(item) item = New MenuItem("Format") item.MenuItems.Add("Font") item.MenuItems(0).MenuItems.Add("Verdana", New System.EventHandler(AddressOf Me.MenuClick)) item.MenuItems(0).MenuItems.Add("Tahoma", New System.EventHandler(AddressOf Me.MenuClick)) item.MenuItems(0).MenuItems.Add("Georgia", New System.EventHandler(AddressOf Me.MenuClick)) item.MenuItems.Add("Color", New System.EventHandler(AddressOf Me.MenuClick)) item.MenuItems.Add("Style", New System.EventHandler(AddressOf Me.MenuClick)) menu.MenuItems.Add(item) Me.Menu = menu Dim cMenu As New ContextMenu() cMenu.MenuItems.Add("Copy", New System.EventHandler(AddressOf Me.MenuClick)) cMenu.MenuItems.Add("Cut", New System.EventHandler(AddressOf Me.MenuClick)) cMenu.MenuItems.Add("Paste", New System.EventHandler(AddressOf Me.MenuClick)) Me.TextBox1.ContextMenu = cMenu End Sub Sub MenuClick(ByVal sender As Object, ByVal e As System.EventArgs) MsgBox("You selected the command " & sender.text & " of the File menu") End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim mItem As MenuItem TextBox1.Clear() For Each mItem In Me.Menu.MenuItems TextBox1.AppendText(mItem.Text & vbCrLf) ScanSubItems(mItem) Next End Sub Sub ScanSubItems(ByVal menuItem As MenuItem) Dim item As MenuItem Static identation As Integer identation += 1 For Each item In menuItem.MenuItems TextBox1.AppendText(StrDup(identation, vbTab) & item.Text & vbCrLf) If item.IsParent Then ScanSubItems(item) Next identation -= 1 End Sub
End Class
</source>
Form.MouseDown
<source lang="vbnet">
Imports System Imports System.Drawing Imports System.Windows.Forms Public Class MainClass
Shared Sub Main() Dim myform As Form = New FrmPainter() Application.Run(myform) End Sub " Main
End Class Public Class FrmPainter
Inherits System.Windows.Forms.Form Dim shouldPaint As Boolean = False
- Region " Windows Form Designer generated code "
Public Sub New() MyBase.New() "This call is required by the Windows Form Designer. InitializeComponent() "Add any initialization after the InitializeComponent() call End Sub "Form overrides dispose to clean up the component list. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub "Required by the Windows Form Designer Private components As System.ruponentModel.Container "NOTE: The following procedure is required by the Windows Form Designer "It can be modified using the Windows Form Designer. "Do not modify it using the code editor. <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() " "Form1 " Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(292, 273) Me.Name = "Form1" Me.Text = "Painter" End Sub
- End Region
Private Sub FrmPainter_MouseMove( _ ByVal sender As System.Object, _ ByVal e As System.Windows.Forms.MouseEventArgs) _ Handles MyBase.MouseMove If shouldPaint Then Dim graphic As Graphics = CreateGraphics() graphic.FillRectangle _ (New SolidBrush(Color.BlueViolet), e.X, e.Y, 4, 4) End If End Sub Private Sub FrmPainter_MouseDown(ByVal sender As Object, _ ByVal e As System.Windows.Forms.MouseEventArgs) _ Handles MyBase.MouseDown shouldPaint = True End Sub Private Sub FrmPainter_MouseUp(ByVal sender As Object, _ ByVal e As System.Windows.Forms.MouseEventArgs) _ Handles MyBase.MouseUp shouldPaint = False End Sub
End Class
</source>
Form.MouseMove
<source lang="vbnet"> Imports System.Diagnostics Imports System.Windows.Forms public class FormEvents
public Shared Sub Main Application.Run(New Form1) End Sub
End class
Public Class Form1
Inherits System.Windows.Forms.Form
- Region " Windows Form Designer generated code "
Public Sub New() MyBase.New() "This call is required by the Windows Form Designer. InitializeComponent() "Add any initialization after the InitializeComponent() call Console.WriteLine("New Event Fired") End Sub "Form overrides dispose to clean up the component list. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) Console.WriteLine("Dispose Method Executed") If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub Friend WithEvents btnLoop As System.Windows.Forms.Button Friend WithEvents btnRemember As System.Windows.Forms.Button Friend WithEvents Button1 As System.Windows.Forms.Button Friend WithEvents Button2 As System.Windows.Forms.Button Friend WithEvents Button3 As System.Windows.Forms.Button "Required by the Windows Form Designer Private components As System.ruponentModel.IContainer "NOTE: The following procedure is required by the Windows Form Designer "It can be modified using the Windows Form Designer. "Do not modify it using the code editor. <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() Me.btnLoop = New System.Windows.Forms.Button() Me.btnRemember = New System.Windows.Forms.Button() Me.Button1 = New System.Windows.Forms.Button() Me.Button2 = New System.Windows.Forms.Button() Me.Button3 = New System.Windows.Forms.Button() Me.SuspendLayout() " "btnLoop " Me.btnLoop.Location = New System.Drawing.Point(24, 56) Me.btnLoop.Name = "btnLoop" Me.btnLoop.TabIndex = 0 Me.btnLoop.Text = "Loop" " "btnRemember " Me.btnRemember.Location = New System.Drawing.Point(136, 56) Me.btnRemember.Name = "btnRemember" Me.btnRemember.Size = New System.Drawing.Size(112, 23) Me.btnRemember.TabIndex = 1 Me.btnRemember.Text = "Remember Position" " "Button1 " Me.Button1.Location = New System.Drawing.Point(24, 16) Me.Button1.Name = "Button1" Me.Button1.TabIndex = 2 Me.Button1.Text = "Button1" " "Button2 " Me.Button2.Location = New System.Drawing.Point(128, 16) Me.Button2.Name = "Button2" Me.Button2.TabIndex = 3 Me.Button2.Text = "Button2" " "Button3 " Me.Button3.Location = New System.Drawing.Point(224, 16) Me.Button3.Name = "Button3" Me.Button3.Size = New System.Drawing.Size(72, 24) Me.Button3.TabIndex = 4 Me.Button3.Text = "Button3" " "Form1 " Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(320, 134) Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Button3, Me.Button2, Me.Button1, Me.btnRemember, Me.btnLoop}) Me.Name = "Form1" Me.Text = "Event-O-Rama" Me.ResumeLayout(False) End Sub
- End Region
Dim formsize As System.Drawing.Size Dim formlocation As System.Drawing.Point
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load Console.WriteLine("Load Event Fired") formsize = Me.Size formlocation = Me.Location End Sub Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Activated Console.WriteLine("Activated Event Fired") End Sub Private Sub Form1_Closed(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Closed Console.WriteLine("Closed Event Fired") End Sub Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ruponentModel.CancelEventArgs) Handles MyBase.Closing Console.WriteLine("Closing Event Fired") Dim answer As MsgBoxResult answer = MsgBox("Do you want to close this window?", MsgBoxStyle.YesNo, "Demonstration of the Closing event") If answer = MsgBoxResult.No Then e.Cancel = True End If End Sub Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Click Console.WriteLine("Click Event Fired") End Sub Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove Console.WriteLine("MouseMove Event Fired") End Sub Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Resize Console.WriteLine("Resize Event Fired " & Me.Size.Width.ToString()) End Sub Private Sub Form1_Deactivate(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Deactivate Console.WriteLine("Deactivate Event Fired") End Sub Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint Console.WriteLine("Paint Event Fired") End Sub Private Sub Form1_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Leave Console.WriteLine("Leave Event Fired") End Sub Private Sub Form1_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Enter Console.WriteLine("Enter Event Fired") End Sub
Private Sub btnLoop_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnLoop.Enter Console.WriteLine("btnLoop Enter Event Fired") "btnLoop_Leave(sender, e) End Sub Private Sub btnLoop_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnLoop.Leave Console.WriteLine("btnLoop Leave Event Fired") "btnLoop_Enter(sender, e) End Sub Private Sub btnRemember_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnRemember.Click Me.Size = formsize Me.Location = formlocation End Sub Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) _ Handles Button1.Click, Button2.Click, Button3.Click MsgBox(sender.Text & " was clicked!") End Sub
End Class
</source>
Form.MouseUp
<source lang="vbnet"> Imports System Imports System.Drawing Imports System.Windows.Forms Public Class MainClass
Shared Sub Main() Dim myform As Form = New FrmPainter() Application.Run(myform) End Sub " Main
End Class Public Class FrmPainter
Inherits System.Windows.Forms.Form Dim shouldPaint As Boolean = False
- Region " Windows Form Designer generated code "
Public Sub New() MyBase.New() "This call is required by the Windows Form Designer. InitializeComponent() "Add any initialization after the InitializeComponent() call End Sub "Form overrides dispose to clean up the component list. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub "Required by the Windows Form Designer Private components As System.ruponentModel.Container "NOTE: The following procedure is required by the Windows Form Designer "It can be modified using the Windows Form Designer. "Do not modify it using the code editor. <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() " "Form1 " Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(292, 273) Me.Name = "Form1" Me.Text = "Painter" End Sub
- End Region
Private Sub FrmPainter_MouseMove( _ ByVal sender As System.Object, _ ByVal e As System.Windows.Forms.MouseEventArgs) _ Handles MyBase.MouseMove If shouldPaint Then Dim graphic As Graphics = CreateGraphics() graphic.FillRectangle _ (New SolidBrush(Color.BlueViolet), e.X, e.Y, 4, 4) End If End Sub Private Sub FrmPainter_MouseDown(ByVal sender As Object, _ ByVal e As System.Windows.Forms.MouseEventArgs) _ Handles MyBase.MouseDown shouldPaint = True End Sub Private Sub FrmPainter_MouseUp(ByVal sender As Object, _ ByVal e As System.Windows.Forms.MouseEventArgs) _ Handles MyBase.MouseUp shouldPaint = False End Sub
End Class
</source>
Form.OnNotifyMessage
<source lang="vbnet">
Imports System.Windows.Forms Imports System.IO
Public Class WndProcTextBox
Inherits TextBox
- Region " Component Designer generated code "
Public Sub New(ByVal Container As System.ruponentModel.IContainer) MyClass.New() "Required for Windows.Forms Class Composition Designer support Container.Add(Me) End Sub Public Sub New() MyBase.New() "This call is required by the Component Designer. InitializeComponent() "Add any initialization after the InitializeComponent() call Me.SetStyle(ControlStyles.EnableNotifyMessage, True) End Sub "Component overrides dispose to clean up the component list. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub "Required by the Component Designer Private components As System.ruponentModel.IContainer "NOTE: The following procedure is required by the Component Designer "It can be modified using the Component Designer. "Do not modify it using the code editor. <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() components = New System.ruponentModel.Container() End Sub
- End Region
Public Delegate Sub ShowEventInfo(ByVal info As String) Public Event ShowEventInfoEvent As ShowEventInfo
Protected Overrides Sub OnNotifyMessage(ByVal m As System.Windows.Forms.Message) RaiseEvent ShowEventInfoEvent(String.Format("Msg: HWND({0}) LPARAM({1}) WPARAM({2}) MSG({3})", m.HWnd, m.LParam, m.WParam, m.Msg)) MyBase.OnNotifyMessage(m) End Sub
End Class
</source>
Form.OnPaint
<source lang="vbnet"> Imports System Imports System.Drawing Imports System.Windows.Forms public class MainClass
Shared Sub Main() Dim form1 As Form = New Form1 Application.Run(form1) End Sub
End Class
Public Class Form1
Inherits System.Windows.Forms.Form
- Region " Windows Form Designer generated code "
Public Sub New() MyBase.New() "This call is required by the Windows Form Designer. InitializeComponent() "Add any initialization after the InitializeComponent() call End Sub "Form overrides dispose to clean up the component list. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub Friend WithEvents cmdDrawStuff As System.Windows.Forms.Button Friend WithEvents cmdInvalidate As System.Windows.Forms.Button Friend WithEvents cmdOtherForm As System.Windows.Forms.Button "Required by the Windows Form Designer Private components As System.ruponentModel.IContainer "NOTE: The following procedure is required by the Windows Form Designer "It can be modified using the Windows Form Designer. "Do not modify it using the code editor. <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() Me.cmdOtherForm = New System.Windows.Forms.Button() Me.cmdDrawStuff = New System.Windows.Forms.Button() Me.cmdInvalidate = New System.Windows.Forms.Button() Me.SuspendLayout() " "cmdOtherForm " Me.cmdOtherForm.Location = New System.Drawing.Point(184, 136) Me.cmdOtherForm.Name = "cmdOtherForm" Me.cmdOtherForm.Size = New System.Drawing.Size(96, 32) Me.cmdOtherForm.TabIndex = 2 Me.cmdOtherForm.Text = "Other Form" " "cmdDrawStuff " Me.cmdDrawStuff.Location = New System.Drawing.Point(184, 80) Me.cmdDrawStuff.Name = "cmdDrawStuff" Me.cmdDrawStuff.Size = New System.Drawing.Size(96, 32) Me.cmdDrawStuff.TabIndex = 1 Me.cmdDrawStuff.Text = "Draw Stuff" " "cmdInvalidate " Me.cmdInvalidate.Location = New System.Drawing.Point(184, 24) Me.cmdInvalidate.Name = "cmdInvalidate" Me.cmdInvalidate.Size = New System.Drawing.Size(96, 32) Me.cmdInvalidate.TabIndex = 0 Me.cmdInvalidate.Text = "Invalidate" " "Form1 " Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(292, 273) Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.cmdOtherForm, Me.cmdDrawStuff, Me.cmdInvalidate}) Me.Name = "Form1" Me.Text = "Form1" Me.ResumeLayout(False) End Sub
- End Region
Dim backgroundbitmap As Bitmap Protected Overrides Sub OnResize(ByVal e As System.EventArgs) If Not Me.ClientRectangle.IsEmpty Then If Not Me.ClientSize.Equals(New Size(backgroundbitmap.Width, backgroundbitmap.Height)) Then Dim newbitmap As Bitmap newbitmap = New Bitmap(Me.ClientSize.Width, Me.ClientSize.Height) If Not backgroundbitmap Is Nothing Then Dim g As Graphics = graphics.FromImage(newbitmap) g.DrawImage(backgroundbitmap, 0, 0) End If backgroundbitmap = newbitmap End If End If End Sub Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
" MyBase.OnPaint(e)
e.Graphics.DrawLine(pens.Black, 0, 0, 200, 200) e.Graphics.DrawLine(pens.Red, 0, 200, 200, 0) "RaiseEvent Paint(Me, e) End Sub
End Class
</source>
Form.OnResize
<source lang="vbnet"> imports System imports System.Drawing imports System.Windows.Forms public class ControlDynamicSizeLocation : inherits Form
private WithEvents btnShow as Button public sub New() btnShow = new Button() btnShow.Parent = me Size = new Size(350,400) btnShow.Size = new Size(20, 20) OnResize(EventArgs.Empty) end sub protected overrides sub OnResize(ByVal e as EventArgs) MyBase.OnResize(e) btnShow.Location = new Point(me.ClientSize.Width/10, me.ClientSize.Height/10) end sub public shared sub Main() Application.Run(new ControlDynamicSizeLocation()) end sub
end class
</source>
Form.Opacity
<source lang="vbnet">
Imports System.Windows.Forms public class FormFadeOut
public Shared Sub Main Application.Run(New Form1) End Sub
End class Public Class Form1
Private Sub ActClose_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ActClose.Click Dim counter As Integer For counter = 90 To 10 Step -5 Me.Opacity = counter / 100 Me.Refresh() Threading.Thread.Sleep(100) Next counter Me.Close() End Sub
End Class
<Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _ Partial Class Form1
Inherits System.Windows.Forms.Form "Form overrides dispose to clean up the component list. <System.Diagnostics.DebuggerNonUserCode()> _ Protected Overrides Sub Dispose(ByVal disposing As Boolean) If disposing AndAlso components IsNot Nothing Then components.Dispose() End If MyBase.Dispose(disposing) End Sub "Required by the Windows Form Designer Private components As System.ruponentModel.IContainer "NOTE: The following procedure is required by the Windows Form Designer "It can be modified using the Windows Form Designer. "Do not modify it using the code editor. <System.Diagnostics.DebuggerStepThrough()> _ Private Sub InitializeComponent() Me.ActClose = New System.Windows.Forms.Button Me.SuspendLayout() " "ActClose " Me.ActClose.Location = New System.Drawing.Point(104, 112) Me.ActClose.Name = "ActClose" Me.ActClose.Size = New System.Drawing.Size(75, 23) Me.ActClose.TabIndex = 0 Me.ActClose.Text = "Close" Me.ActClose.UseVisualStyleBackColor = True " "Form1 " Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(292, 266) Me.Controls.Add(Me.ActClose) Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle Me.MaximizeBox = False Me.Name = "Form1" Me.Text = "Fading Form" Me.ResumeLayout(False) End Sub Friend WithEvents ActClose As System.Windows.Forms.Button
End Class
</source>
Form.Paint
<source lang="vbnet"> Imports System Imports System.Drawing Imports System.Windows.Forms
Public Class MainClass
Public Shared Sub Main() Application.Run(New OwnerDrawnButton()) End Sub
End Class Public Class OwnerDrawnButton
Inherits System.Windows.Forms.Form
- Region " Windows Form Designer generated code "
Public Sub New() MyBase.New() "This call is required by the Windows Form Designer. InitializeComponent() "Add any initialization after the InitializeComponent() call End Sub "Form overrides dispose to clean up the component list. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub "Required by the Windows Form Designer Private components As System.ruponentModel.IContainer "NOTE: The following procedure is required by the Windows Form Designer "It can be modified using the Windows Form Designer. "Do not modify it using the code editor. Friend WithEvents button4 As System.Windows.Forms.Button <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() Me.button4 = New System.Windows.Forms.Button() Me.SuspendLayout() " "button4 " Me.button4.Location = New System.Drawing.Point(16, 23) Me.button4.Name = "button4" Me.button4.Size = New System.Drawing.Size(200, 40) Me.button4.TabIndex = 2 Me.button4.Text = "button4" " "OwnerDrawnButton " Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(232, 86) Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.button4}) Me.Name = "OwnerDrawnButton" Me.Text = "OwnerDrawnButton" Me.ResumeLayout(False) End Sub
- End Region
Private Sub button4_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles button4.Paint Dim _pen As Pen = New Pen(Color.Red, 2) e.Graphics.DrawRectangle(_pen, 5, 5, button4.Width - 10, button4.Height - 10) End Sub
End Class
</source>
Form.Region
<source lang="vbnet"> Imports System Imports System.Drawing Imports System.Windows.Forms Imports System.ruponentModel Imports System.Drawing.Drawing2D Imports System.IO Public Class MainClass
Shared Sub Main() Dim form1 As Form = New Form1 Application.Run(form1)
End Sub
End Class
Public Class Form1
Inherits System.Windows.Forms.Form
- Region " Windows Form Designer generated code "
Public Sub New() MyBase.New() "This call is required by the Windows Form Designer. InitializeComponent() "Add any initialization after the InitializeComponent() call End Sub "Form overrides dispose to clean up the component list. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub "Required by the Windows Form Designer Private components As System.ruponentModel.IContainer "NOTE: The following procedure is required by the Windows Form Designer "It can be modified using the Windows Form Designer. "Do not modify it using the code editor. Friend WithEvents Button1 As System.Windows.Forms.Button <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() Me.Button1 = New System.Windows.Forms.Button() Me.SuspendLayout() " "Button1 " Me.Button1.Location = New System.Drawing.Point(20, 16) Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size(136, 36) Me.Button1.TabIndex = 0 Me.Button1.Text = "Button1" " "Form1 " Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(320, 226) Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Button1}) Me.Name = "Form1" Me.Text = "Shaped Form" Me.ResumeLayout(False) End Sub
- End Region
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim Path As New GraphicsPath() Path.AddEllipse(0, 0, Me.Width \ 2, Me.Height \ 2) Me.Region = New Region(Path) End Sub
End Class
</source>
Form.RemoveOwnedForm
<source lang="vbnet"> Imports System Imports System.Drawing Imports System.Windows.Forms Imports System.ruponentModel Public Class MainClass
Shared Sub Main() Dim form1 As Form = New Form1 Application.Run(form1)
End Sub
End Class Public Class OwnedForm
Inherits System.Windows.Forms.Form
- Region " Windows Form Designer generated code "
Public Sub New() MyBase.New() "This call is required by the Windows Form Designer. InitializeComponent() "Add any initialization after the InitializeComponent() call End Sub "Form overrides dispose to clean up the component list. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub Friend WithEvents lblState As System.Windows.Forms.Label "Required by the Windows Form Designer Private components As System.ruponentModel.Container "NOTE: The following procedure is required by the Windows Form Designer "It can be modified using the Windows Form Designer. "Do not modify it using the code editor. <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() Me.lblState = New System.Windows.Forms.Label() Me.SuspendLayout() " "lblState " Me.lblState.Location = New System.Drawing.Point(12, 12) Me.lblState.Name = "lblState" Me.lblState.Size = New System.Drawing.Size(184, 56) Me.lblState.TabIndex = 0 " "OwnedForm " Me.AutoScaleBaseSize = New System.Drawing.Size(5, 14) Me.ClientSize = New System.Drawing.Size(204, 78) Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.lblState}) Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Name = "OwnedForm" Me.StartPosition = System.Windows.Forms.FormStartPosition.Manual Me.Text = "Owned Form" Me.ResumeLayout(False) End Sub
- End Region
End Class
Public Class Form1
Inherits System.Windows.Forms.Form
- Region " Windows Form Designer generated code "
Public Sub New() MyBase.New() "This call is required by the Windows Form Designer. InitializeComponent() "Add any initialization after the InitializeComponent() call End Sub "Form overrides dispose to clean up the component list. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub Friend WithEvents cmdAddOwnership As System.Windows.Forms.Button Friend WithEvents cmdReleaseOwnership As System.Windows.Forms.Button "Required by the Windows Form Designer Private components As System.ruponentModel.Container "NOTE: The following procedure is required by the Windows Form Designer "It can be modified using the Windows Form Designer. "Do not modify it using the code editor. Friend WithEvents label1 As System.Windows.Forms.Label <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() Me.cmdAddOwnership = New System.Windows.Forms.Button() Me.cmdReleaseOwnership = New System.Windows.Forms.Button() Me.label1 = New System.Windows.Forms.Label() Me.SuspendLayout() " "cmdAddOwnership " Me.cmdAddOwnership.FlatStyle = System.Windows.Forms.FlatStyle.System Me.cmdAddOwnership.Location = New System.Drawing.Point(12, 180) Me.cmdAddOwnership.Name = "cmdAddOwnership" Me.cmdAddOwnership.Size = New System.Drawing.Size(120, 32) Me.cmdAddOwnership.TabIndex = 0 Me.cmdAddOwnership.Text = "Set Ownership" " "cmdReleaseOwnership " Me.cmdReleaseOwnership.FlatStyle = System.Windows.Forms.FlatStyle.System Me.cmdReleaseOwnership.Location = New System.Drawing.Point(148, 180) Me.cmdReleaseOwnership.Name = "cmdReleaseOwnership" Me.cmdReleaseOwnership.Size = New System.Drawing.Size(128, 32) Me.cmdReleaseOwnership.TabIndex = 1 Me.cmdReleaseOwnership.Text = "Remove Ownership" " "label1 " Me.label1.Location = New System.Drawing.Point(40, 32) Me.label1.Name = "label1" Me.label1.Size = New System.Drawing.Size(216, 80) Me.label1.TabIndex = 5 Me.label1.Text = "Minimize to check the ownership." " "Owner " Me.AutoScaleBaseSize = New System.Drawing.Size(5, 14) Me.ClientSize = New System.Drawing.Size(288, 222) Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.label1, Me.cmdReleaseOwnership, Me.cmdAddOwnership}) Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Name = "Owner" Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "Basic Form" Me.ResumeLayout(False) End Sub
- End Region
Private frmOwned As New OwnedForm() Private Sub Owner_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.Show() frmOwned.Show() End Sub Private Sub cmdAddOwnership_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAddOwnership.Click Me.AddOwnedForm(frmOwned) frmOwned.lblState.Text = "I"m Owned" End Sub Private Sub cmdReleaseOwnership_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdReleaseOwnership.Click Me.RemoveOwnedForm(frmOwned) frmOwned.lblState.Text = "I"m Free!" End Sub
End Class
</source>
Form.Resize
<source lang="vbnet"> Imports System.Diagnostics Imports System.Windows.Forms public class FormEvents
public Shared Sub Main Application.Run(New Form1) End Sub
End class
Public Class Form1
Inherits System.Windows.Forms.Form
- Region " Windows Form Designer generated code "
Public Sub New() MyBase.New() "This call is required by the Windows Form Designer. InitializeComponent() "Add any initialization after the InitializeComponent() call Console.WriteLine("New Event Fired") End Sub "Form overrides dispose to clean up the component list. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) Console.WriteLine("Dispose Method Executed") If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub Friend WithEvents btnLoop As System.Windows.Forms.Button Friend WithEvents btnRemember As System.Windows.Forms.Button Friend WithEvents Button1 As System.Windows.Forms.Button Friend WithEvents Button2 As System.Windows.Forms.Button Friend WithEvents Button3 As System.Windows.Forms.Button "Required by the Windows Form Designer Private components As System.ruponentModel.IContainer "NOTE: The following procedure is required by the Windows Form Designer "It can be modified using the Windows Form Designer. "Do not modify it using the code editor. <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() Me.btnLoop = New System.Windows.Forms.Button() Me.btnRemember = New System.Windows.Forms.Button() Me.Button1 = New System.Windows.Forms.Button() Me.Button2 = New System.Windows.Forms.Button() Me.Button3 = New System.Windows.Forms.Button() Me.SuspendLayout() " "btnLoop " Me.btnLoop.Location = New System.Drawing.Point(24, 56) Me.btnLoop.Name = "btnLoop" Me.btnLoop.TabIndex = 0 Me.btnLoop.Text = "Loop" " "btnRemember " Me.btnRemember.Location = New System.Drawing.Point(136, 56) Me.btnRemember.Name = "btnRemember" Me.btnRemember.Size = New System.Drawing.Size(112, 23) Me.btnRemember.TabIndex = 1 Me.btnRemember.Text = "Remember Position" " "Button1 " Me.Button1.Location = New System.Drawing.Point(24, 16) Me.Button1.Name = "Button1" Me.Button1.TabIndex = 2 Me.Button1.Text = "Button1" " "Button2 " Me.Button2.Location = New System.Drawing.Point(128, 16) Me.Button2.Name = "Button2" Me.Button2.TabIndex = 3 Me.Button2.Text = "Button2" " "Button3 " Me.Button3.Location = New System.Drawing.Point(224, 16) Me.Button3.Name = "Button3" Me.Button3.Size = New System.Drawing.Size(72, 24) Me.Button3.TabIndex = 4 Me.Button3.Text = "Button3" " "Form1 " Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(320, 134) Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Button3, Me.Button2, Me.Button1, Me.btnRemember, Me.btnLoop}) Me.Name = "Form1" Me.Text = "Event-O-Rama" Me.ResumeLayout(False) End Sub
- End Region
Dim formsize As System.Drawing.Size Dim formlocation As System.Drawing.Point
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load Console.WriteLine("Load Event Fired") formsize = Me.Size formlocation = Me.Location End Sub Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Activated Console.WriteLine("Activated Event Fired") End Sub Private Sub Form1_Closed(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Closed Console.WriteLine("Closed Event Fired") End Sub Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ruponentModel.CancelEventArgs) Handles MyBase.Closing Console.WriteLine("Closing Event Fired") Dim answer As MsgBoxResult answer = MsgBox("Do you want to close this window?", MsgBoxStyle.YesNo, "Demonstration of the Closing event") If answer = MsgBoxResult.No Then e.Cancel = True End If End Sub Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Click Console.WriteLine("Click Event Fired") End Sub Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove Console.WriteLine("MouseMove Event Fired") End Sub Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Resize Console.WriteLine("Resize Event Fired " & Me.Size.Width.ToString()) End Sub Private Sub Form1_Deactivate(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Deactivate Console.WriteLine("Deactivate Event Fired") End Sub Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint Console.WriteLine("Paint Event Fired") End Sub Private Sub Form1_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Leave Console.WriteLine("Leave Event Fired") End Sub Private Sub Form1_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Enter Console.WriteLine("Enter Event Fired") End Sub
Private Sub btnLoop_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnLoop.Enter Console.WriteLine("btnLoop Enter Event Fired") "btnLoop_Leave(sender, e) End Sub Private Sub btnLoop_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnLoop.Leave Console.WriteLine("btnLoop Leave Event Fired") "btnLoop_Enter(sender, e) End Sub Private Sub btnRemember_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnRemember.Click Me.Size = formsize Me.Location = formlocation End Sub Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) _ Handles Button1.Click, Button2.Click, Button3.Click MsgBox(sender.Text & " was clicked!") End Sub
End Class
</source>
Form.ResizeRedraw
<source lang="vbnet"> Imports System.Drawing.Drawing2D Imports System Imports System.Drawing.Text Imports System.Drawing Imports System.Windows.Forms Imports System.Math Public Class MainClass
Shared Sub Main() Dim form1 As Form = New Form1() Application.Run(form1) End Sub
End Class
Public Class Form1
Inherits System.Windows.Forms.Form Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.ResizeRedraw = True End Sub Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint Dim txt As String Dim the_font As New Font("Times New Roman", 30, FontStyle.Bold, GraphicsUnit.Pixel) Dim layout_rect As RectangleF e.Graphics.TextRenderingHint = System.Drawing.Text.TextRenderingHint.AntiAliasGridFit layout_rect = New RectangleF(100, 0, 180, 70) txt = "Today is Monday. Tomorrow is Friday" Dim string_format As New StringFormat string_format.Trimming = StringTrimming.Word e.Graphics.DrawString(txt, the_font, Brushes.Black, layout_rect, string_format) e.Graphics.DrawRectangle(Pens.Black, Rectangle.Round(layout_rect)) End Sub
End Class
</source>
Form.SetStyle
<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.Drawing.Imaging Public Class MainClass
Shared Sub Main() Dim myform As Form = New TransparencyForm() Application.Run(myform) End Sub
End Class Public Class TransparencyForm
Inherits System.Windows.Forms.Form Public Sub New() MyBase.New() InitializeComponent() Me.SetStyle(ControlStyles.ResizeRedraw, True) Me.SetStyle(ControlStyles.DoubleBuffer, True) Me.SetStyle(ControlStyles.AllPaintingInWmPaint, True) End Sub Friend WithEvents splitter2 As System.Windows.Forms.Splitter Friend WithEvents splitter1 As System.Windows.Forms.Splitter Friend WithEvents groupBox1 As System.Windows.Forms.GroupBox Friend WithEvents panel1 As System.Windows.Forms.Panel Friend WithEvents groupBox3 As System.Windows.Forms.GroupBox Friend WithEvents panel3 As System.Windows.Forms.Panel Friend WithEvents groupBox2 As System.Windows.Forms.GroupBox Friend WithEvents panel2 As System.Windows.Forms.Panel <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() Me.splitter2 = New System.Windows.Forms.Splitter() Me.splitter1 = New System.Windows.Forms.Splitter() Me.groupBox1 = New System.Windows.Forms.GroupBox() Me.panel1 = New System.Windows.Forms.Panel() Me.groupBox3 = New System.Windows.Forms.GroupBox() Me.panel3 = New System.Windows.Forms.Panel() Me.groupBox2 = New System.Windows.Forms.GroupBox() Me.panel2 = New System.Windows.Forms.Panel() Me.groupBox1.SuspendLayout() Me.groupBox3.SuspendLayout() Me.groupBox2.SuspendLayout() Me.SuspendLayout() " "splitter2 " Me.splitter2.Location = New System.Drawing.Point(232, 0) Me.splitter2.Name = "splitter2" Me.splitter2.Size = New System.Drawing.Size(3, 102) Me.splitter2.TabIndex = 9 Me.splitter2.TabStop = False " "splitter1 " Me.splitter1.Location = New System.Drawing.Point(229, 0) Me.splitter1.Name = "splitter1" Me.splitter1.Size = New System.Drawing.Size(3, 102) Me.splitter1.TabIndex = 6 Me.splitter1.TabStop = False " "groupBox1 " Me.groupBox1.Controls.AddRange(New System.Windows.Forms.Control() {Me.panel1}) Me.groupBox1.Dock = System.Windows.Forms.DockStyle.Left Me.groupBox1.Location = New System.Drawing.Point(117, 0) Me.groupBox1.Name = "groupBox1" Me.groupBox1.Size = New System.Drawing.Size(112, 102) Me.groupBox1.TabIndex = 5 Me.groupBox1.TabStop = False Me.groupBox1.Text = "Original Colors" " "panel1 " Me.panel1.BackColor = System.Drawing.Color.White Me.panel1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D Me.panel1.Dock = System.Windows.Forms.DockStyle.Fill Me.panel1.Location = New System.Drawing.Point(3, 16) Me.panel1.Name = "panel1" Me.panel1.Size = New System.Drawing.Size(106, 83) Me.panel1.TabIndex = 0 " "groupBox3 " Me.groupBox3.Controls.AddRange(New System.Windows.Forms.Control() {Me.panel3}) Me.groupBox3.Dock = System.Windows.Forms.DockStyle.Fill Me.groupBox3.Location = New System.Drawing.Point(117, 0) Me.groupBox3.Name = "groupBox3" Me.groupBox3.Size = New System.Drawing.Size(235, 102) Me.groupBox3.TabIndex = 8 Me.groupBox3.TabStop = False Me.groupBox3.Text = "Made Transparent" " "panel3 " Me.panel3.BackColor = System.Drawing.Color.White Me.panel3.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D Me.panel3.Dock = System.Windows.Forms.DockStyle.Fill Me.panel3.Location = New System.Drawing.Point(3, 16) Me.panel3.Name = "panel3" Me.panel3.Size = New System.Drawing.Size(229, 83) Me.panel3.TabIndex = 0 " "groupBox2 " Me.groupBox2.Controls.AddRange(New System.Windows.Forms.Control() {Me.panel2}) Me.groupBox2.Dock = System.Windows.Forms.DockStyle.Left Me.groupBox2.Name = "groupBox2" Me.groupBox2.Size = New System.Drawing.Size(117, 102) Me.groupBox2.TabIndex = 7 Me.groupBox2.TabStop = False Me.groupBox2.Text = "White Background" " "panel2 " Me.panel2.BackColor = System.Drawing.Color.White Me.panel2.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D Me.panel2.Dock = System.Windows.Forms.DockStyle.Fill Me.panel2.Location = New System.Drawing.Point(3, 16) Me.panel2.Name = "panel2" Me.panel2.Size = New System.Drawing.Size(111, 83) Me.panel2.TabIndex = 0 " "TransparencyForm " Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(352, 102) Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.splitter2, Me.splitter1, Me.groupBox1, Me.groupBox3, Me.groupBox2}) Me.Name = "TransparencyForm" Me.Text = "TransparencyForm" Me.groupBox1.ResumeLayout(False) Me.groupBox3.ResumeLayout(False) Me.groupBox2.ResumeLayout(False) Me.ResumeLayout(False) End Sub Dim backgroundString As String = "a\n b\n c\n d\n e\n f\n g\n H \n" Private Sub panel1_Paint(ByVal sender As Object, ByVal e As PaintEventArgs) Handles panel1.Paint Dim g As Graphics = e.Graphics Dim bmp As Bitmap = New Bitmap("figure2.BMP") g.DrawString(backgroundString, Me.Font, Brushes.Black, Me.ClientRectangle.Left, Me.ClientRectangle.Top) Dim rect As Rectangle = New Rectangle(0, 0, bmp.Width, bmp.Height) rect.Offset((Me.panel1.ClientRectangle.Width - rect.Width) / 2, (Me.panel1.ClientRectangle.Height - rect.Height) / 2) g.DrawImage(bmp, rect) End Sub Private Sub panel2_Paint(ByVal sender As Object, ByVal e As PaintEventArgs) Handles panel2.Paint Dim g As Graphics = e.Graphics Dim bmp As Bitmap = New Bitmap("figure2.BMP") g.DrawString(backgroundString, Me.Font, Brushes.Black, Me.ClientRectangle.Left, Me.ClientRectangle.Top) Dim colorMap As ColorMap() = New ColorMap() {New ColorMap()} colorMap(0).OldColor = bmp.GetPixel(0, bmp.Height - 1) colorMap(0).NewColor = Color.White Dim attr As ImageAttributes = New ImageAttributes() attr.SetRemapTable(colorMap) Dim rect As Rectangle = New Rectangle(0, 0, bmp.Width, bmp.Height) rect.Offset((Me.panel1.ClientRectangle.Width - rect.Width) / 2, (Me.panel1.ClientRectangle.Height - rect.Height) / 2) g.DrawImage(bmp, rect) End Sub Private Sub panel3_Paint(ByVal sender As Object, ByVal e As PaintEventArgs) Handles panel3.Paint Dim g As Graphics = e.Graphics Dim bmp As Bitmap = New Bitmap("figure2.BMP") g.DrawString(backgroundString, Me.Font, Brushes.Black, Me.ClientRectangle.Left, Me.ClientRectangle.Top) bmp.MakeTransparent(bmp.GetPixel(0, bmp.Height - 1)) Dim rect As Rectangle = New Rectangle(0, 0, bmp.Width, bmp.Height) rect.Offset((Me.panel1.ClientRectangle.Width - rect.Width) / 2, (Me.panel1.ClientRectangle.Height - rect.Height) / 2) g.DrawImage(bmp, rect) End Sub Private Sub TransparencyForm_Layout(ByVal sender As Object, ByVal e As LayoutEventArgs) Handles MyBase.Layout panel1.Refresh() panel2.Refresh() panel3.Refresh() End Sub
End Class
</source>
Form.ShowDialog
<source lang="vbnet"> Option Strict On Imports System.Drawing Imports System.Windows.Forms Public Class Form1 : Inherits Form
Private WithEvents cmdClickCtr As Button = New Button() Public Sub New() Me.cmdClickCtr.Location = New Point(100, 75) Me.cmdClickCtr.Size = New Size(100, 50) Me.cmdClickCtr.Text = "Click Counter" Me.Controls.Add(cmdClickCtr) Me.Text = "Click Counter" End Sub Private Sub cmdClickCtr_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) _ Handles cmdClickCtr.Click Static ctr As Integer = 1 MsgBox("Button was clicked " & ctr & " times.") ctr += 1 End Sub Public Shared Sub Main() Dim frm As New Form1() frm.ShowDialog() End Sub
End Class
</source>
Form.Size
<source lang="vbnet"> Imports System.Windows.Forms public class FormDemo
public Shared Sub Main Application.Run(New Form1) End Sub
End class Public Class Form1
Inherits System.Windows.Forms.Form
- Region " Windows Form Designer generated code "
Public Sub New() MyBase.New() "This call is required by the Windows Form Designer. InitializeComponent() "Add any initialization after the InitializeComponent() call End Sub "Form overrides dispose to clean up the component list. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub Friend WithEvents Button1 As System.Windows.Forms.Button Friend WithEvents Button2 As System.Windows.Forms.Button Friend WithEvents btnChangeColor As System.Windows.Forms.Button Friend WithEvents btnRGB As System.Windows.Forms.Button Friend WithEvents btnCompare As System.Windows.Forms.Button Friend WithEvents btnFont As System.Windows.Forms.Button Friend WithEvents btnBigger As System.Windows.Forms.Button Friend WithEvents btnSmaller As System.Windows.Forms.Button Friend WithEvents btnFormText As System.Windows.Forms.Button "Required by the Windows Form Designer Private components As System.ruponentModel.IContainer "NOTE: The following procedure is required by the Windows Form Designer "It can be modified using the Windows Form Designer. "Do not modify it using the code editor. <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() Dim configurationAppSettings As System.Configuration.AppSettingsReader = New System.Configuration.AppSettingsReader() Me.Button1 = New System.Windows.Forms.Button() Me.Button2 = New System.Windows.Forms.Button() Me.btnChangeColor = New System.Windows.Forms.Button() Me.btnRGB = New System.Windows.Forms.Button() Me.btnCompare = New System.Windows.Forms.Button() Me.btnFont = New System.Windows.Forms.Button() Me.btnBigger = New System.Windows.Forms.Button() Me.btnSmaller = New System.Windows.Forms.Button() Me.btnFormText = New System.Windows.Forms.Button() Me.SuspendLayout() " "Button1 " Me.Button1.Location = New System.Drawing.Point(56, 16) Me.Button1.Name = "Button1" Me.Button1.TabIndex = 1 Me.Button1.TabStop = False Me.Button1.Text = "Button1" " "Button2 " Me.Button2.Location = New System.Drawing.Point(216, 16) Me.Button2.Name = "Button2" Me.Button2.TabIndex = 0 Me.Button2.TabStop = False Me.Button2.Text = "Button2" " "btnChangeColor " Me.btnChangeColor.Location = New System.Drawing.Point(56, 56) Me.btnChangeColor.Name = "btnChangeColor" Me.btnChangeColor.Size = New System.Drawing.Size(128, 23) Me.btnChangeColor.TabIndex = 2 Me.btnChangeColor.Text = "Change Color" " "btnRGB " Me.btnRGB.Location = New System.Drawing.Point(56, 96) Me.btnRGB.Name = "btnRGB" Me.btnRGB.Size = New System.Drawing.Size(128, 23) Me.btnRGB.TabIndex = 3 Me.btnRGB.Text = "Use RGB" " "btnCompare " Me.btnCompare.Location = New System.Drawing.Point(56, 136) Me.btnCompare.Name = "btnCompare" Me.btnCompare.Size = New System.Drawing.Size(128, 24) Me.btnCompare.TabIndex = 4 Me.btnCompare.Text = "Compare" " "btnFont " Me.btnFont.Font = New System.Drawing.Font("Edwardian Script ITC", 20.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnFont.Location = New System.Drawing.Point(56, 184) Me.btnFont.Name = "btnFont" Me.btnFont.Size = New System.Drawing.Size(208, 64) Me.btnFont.TabIndex = 5 Me.btnFont.Text = "Change Font!" " "btnBigger " Me.btnBigger.Location = New System.Drawing.Point(64, 264) Me.btnBigger.Name = "btnBigger" Me.btnBigger.Size = New System.Drawing.Size(80, 24) Me.btnBigger.TabIndex = 6 Me.btnBigger.Text = "Bigger" " "btnSmaller " Me.btnSmaller.Location = New System.Drawing.Point(64, 304) Me.btnSmaller.Name = "btnSmaller" Me.btnSmaller.Size = New System.Drawing.Size(80, 24) Me.btnSmaller.TabIndex = 7 Me.btnSmaller.Text = "Smaller" " "btnFormText " Me.btnFormText.Location = New System.Drawing.Point(64, 344) Me.btnFormText.Name = "btnFormText" Me.btnFormText.Size = New System.Drawing.Size(128, 32) Me.btnFormText.TabIndex = 8 Me.btnFormText.Text = "Change Form Text" " "Form1 " Me.AcceptButton = Me.Button2 Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.AutoScroll = True Me.BackColor = System.Drawing.Color.FromArgb(CType(255, Byte), CType(128, Byte), CType(128, Byte)) Me.ClientSize = New System.Drawing.Size(320, 382) Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.btnFormText, Me.btnSmaller, Me.btnBigger, Me.btnFont, Me.btnCompare, Me.btnRGB, Me.btnChangeColor, Me.Button2, Me.Button1}) Me.ForeColor = System.Drawing.Color.Black Me.Name = "Form1" Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "old value" Me.TopMost = True Me.ResumeLayout(False) End Sub
- End Region
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click MsgBox("I am Button1!") End Sub Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click MsgBox("I am Button2!") End Sub Private Sub btnChangeColor_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnChangeColor.Click Me.BackColor = System.Drawing.Color.Yellow End Sub Private Sub btnRGB_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnRGB.Click Me.BackColor = System.Drawing.Color.Red End Sub Private Sub btnCompare_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCompare.Click Dim formcolor As System.Drawing.Color formcolor = Me.BackColor If System.Drawing.Color.op_Equality(formcolor, System.Drawing.color.AliceBlue) Then MsgBox("Color changed!") Else MsgBox("Not yet") End If End Sub Private Sub btnFont_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnFont.Click Me.btnFont.Font = New System.Drawing.Font("WingDings", 20) End Sub Private Sub btnBigger_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnBigger.Click Me.Size = New System.Drawing.Size(500, 600) End Sub Private Sub btnSmaller_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSmaller.Click Me.Size = New System.Drawing.Size(100, 150) End Sub Private Sub btnFormText_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnFormText.Click Me.Text = " new Text" End Sub
End Class
</source>
Form.Text
<source lang="vbnet"> Option Strict On Imports System.Drawing Imports System.Windows.Forms Public Class Form1 : Inherits Form
Private WithEvents cmdClickCtr As Button = New Button() Public Sub New() Me.cmdClickCtr.Location = New Point(100, 75) Me.cmdClickCtr.Size = New Size(100, 50) Me.cmdClickCtr.Text = "Click Counter" Me.Controls.Add(cmdClickCtr) Me.Text = "Click Counter" End Sub Private Sub cmdClickCtr_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) _ Handles cmdClickCtr.Click Static ctr As Integer = 1 MsgBox("Button was clicked " & ctr & " times.") ctr += 1 End Sub Public Shared Sub Main() Dim frm As New Form1() frm.ShowDialog() End Sub
End Class
</source>
Form.TransparencyKey
<source lang="vbnet"> Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Windows.Forms public class FormBackgroundPicture
public Shared Sub Main Application.Run(New Form1) End Sub
End class Public Class Form1
Inherits System.Windows.Forms.Form
- Region " Windows Form Designer generated code "
Public Sub New() MyBase.New() "This call is required by the Windows Form Designer. InitializeComponent() "Add any initialization after the InitializeComponent() call End Sub "Form overrides dispose to clean up the component list. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub "Required by the Windows Form Designer Private components As System.ruponentModel.IContainer "NOTE: The following procedure is required by the Windows Form Designer "It can be modified using the Windows Form Designer. "Do not modify it using the code editor. Friend WithEvents Button1 As System.Windows.Forms.Button <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Form1)) Me.Button1 = New System.Windows.Forms.Button Me.SuspendLayout() " "Button1 " Me.Button1.Location = New System.Drawing.Point(152, 88) Me.Button1.Name = "Button1" Me.Button1.TabIndex = 0 Me.Button1.Text = "Close" " "Form1 " Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.BackgroundImage = System.Drawing.Image.FromFile("yourfile.jpg") Me.ClientSize = New System.Drawing.Size(376, 208) Me.Controls.Add(Me.Button1) Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None Me.Name = "Form1" Me.Text = "Form1" Me.TransparencyKey = System.Drawing.Color.White Me.ResumeLayout(False) End Sub
- End Region
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.Close() End Sub
End Class
</source>
Form.WndProc
<source lang="vbnet"> Imports System.Windows.Forms public class ConvertMouseEventToFormDragEvent
public Shared Sub Main Application.Run(New Form1) End Sub
End class
Public Class Form1
Const HT_CAPTION As Integer = &H2 Const WM_NCLBUTTONDOWN As Integer = &HA1 Private Sub DragBar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles DragBar.MouseDown If (e.Button = Windows.Forms.MouseButtons.Left) Then DragBar.Capture = False Me.WndProc(Message.Create(Me.Handle, WM_NCLBUTTONDOWN, _ CType(HT_CAPTION, IntPtr), IntPtr.Zero)) End If End Sub Private Sub ActClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ActClose.Click Me.Close() End Sub
End Class
<Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _ Partial Class Form1
Inherits System.Windows.Forms.Form "Form overrides dispose to clean up the component list. <System.Diagnostics.DebuggerNonUserCode()> _ Protected Overrides Sub Dispose(ByVal disposing As Boolean) If disposing AndAlso components IsNot Nothing Then components.Dispose() End If MyBase.Dispose(disposing) End Sub "Required by the Windows Form Designer Private components As System.ruponentModel.IContainer "NOTE: The following procedure is required by the Windows Form Designer "It can be modified using the Windows Form Designer. "Do not modify it using the code editor. <System.Diagnostics.DebuggerStepThrough()> _ Private Sub InitializeComponent() Me.ActClose = New System.Windows.Forms.Button Me.DragBar = New System.Windows.Forms.PictureBox CType(Me.DragBar, System.ruponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() " "ActClose " Me.ActClose.DialogResult = System.Windows.Forms.DialogResult.Cancel Me.ActClose.Location = New System.Drawing.Point(208, 80) Me.ActClose.Name = "ActClose" Me.ActClose.Size = New System.Drawing.Size(75, 23) Me.ActClose.TabIndex = 0 Me.ActClose.Text = "Close" Me.ActClose.UseVisualStyleBackColor = True " "DragBar " Me.DragBar.BackColor = System.Drawing.SystemColors.ActiveCaption Me.DragBar.Location = New System.Drawing.Point(8, 8) Me.DragBar.Name = "DragBar" Me.DragBar.Size = New System.Drawing.Size(280, 24) Me.DragBar.TabIndex = 1 Me.DragBar.TabStop = False " "Form1 " Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.CancelButton = Me.ActClose Me.ClientSize = New System.Drawing.Size(292, 114) Me.Controls.Add(Me.DragBar) Me.Controls.Add(Me.ActClose) Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None Me.Name = "Form1" Me.Text = "Form1" CType(Me.DragBar, System.ruponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) End Sub Friend WithEvents ActClose As System.Windows.Forms.Button Friend WithEvents DragBar As System.Windows.Forms.PictureBox
End Class
</source>
Inherits Form
<source lang="vbnet"> Imports System.Drawing.Drawing2D Imports System Imports System.Drawing.Text Imports System.Drawing Imports System.Windows.Forms Imports System.Math Public Class MainClass
Shared Sub Main() Dim form1 As Form = New Form1() Application.Run(form1) End Sub
End Class
Public Class Form1
Inherits System.Windows.Forms.Form Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.ResizeRedraw = True End Sub Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint Dim txt As String Dim the_font As New Font("Times New Roman", 30, FontStyle.Bold, GraphicsUnit.Pixel) Dim layout_rect As RectangleF e.Graphics.TextRenderingHint = System.Drawing.Text.TextRenderingHint.AntiAliasGridFit layout_rect = New RectangleF(100, 0, 180, 70) txt = "Today is Monday. Tomorrow is Friday" Dim string_format As New StringFormat string_format.Trimming = StringTrimming.None e.Graphics.DrawString(txt, the_font, Brushes.Black, layout_rect, string_format) e.Graphics.DrawRectangle(Pens.Black, Rectangle.Round(layout_rect)) End Sub
End Class
</source>