Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
public class CheckBoxCheckEvent
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class
Public Class Form1
Inherits System.Windows.Forms.Form
Public Sub New()
MyBase.New()
InitializeComponent()
End Sub
Private components As System.ComponentModel.IContainer
Friend WithEvents CheckBox1 As System.Windows.Forms.CheckBox
Friend WithEvents CheckBox2 As System.Windows.Forms.CheckBox
Friend WithEvents CheckBox3 As System.Windows.Forms.CheckBox
Friend WithEvents CheckBox4 As System.Windows.Forms.CheckBox
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents CheckBox5 As System.Windows.Forms.CheckBox
Friend WithEvents CheckBox6 As System.Windows.Forms.CheckBox
Friend WithEvents Label1 As System.Windows.Forms.Label
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.CheckBox1 = New System.Windows.Forms.CheckBox
Me.CheckBox2 = New System.Windows.Forms.CheckBox
Me.CheckBox3 = New System.Windows.Forms.CheckBox
Me.CheckBox4 = New System.Windows.Forms.CheckBox
Me.TextBox1 = New System.Windows.Forms.TextBox
Me.CheckBox5 = New System.Windows.Forms.CheckBox
Me.CheckBox6 = New System.Windows.Forms.CheckBox
Me.Label1 = New System.Windows.Forms.Label
Me.SuspendLayout()
'
'CheckBox1
'
Me.CheckBox1.Location = New System.Drawing.Point(24, 64)
Me.CheckBox1.Name = "CheckBox1"
Me.CheckBox1.TabIndex = 0
Me.CheckBox1.Text = "CheckBox1"
'
'CheckBox2
'
Me.CheckBox2.Location = New System.Drawing.Point(152, 64)
Me.CheckBox2.Name = "CheckBox2"
Me.CheckBox2.TabIndex = 1
Me.CheckBox2.Text = "CheckBox2"
'
'CheckBox3
'
Me.CheckBox3.Location = New System.Drawing.Point(24, 120)
Me.CheckBox3.Name = "CheckBox3"
Me.CheckBox3.TabIndex = 2
Me.CheckBox3.Text = "CheckBox3"
'
'CheckBox4
'
Me.CheckBox4.Location = New System.Drawing.Point(152, 120)
Me.CheckBox4.Name = "CheckBox4"
Me.CheckBox4.TabIndex = 3
Me.CheckBox4.Text = "CheckBox4"
'
'TextBox1
'
Me.TextBox1.Location = New System.Drawing.Point(32, 232)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(216, 20)
Me.TextBox1.TabIndex = 4
Me.TextBox1.Text = "TextBox1"
'
'CheckBox5
'
Me.CheckBox5.Location = New System.Drawing.Point(24, 176)
Me.CheckBox5.Name = "CheckBox5"
Me.CheckBox5.TabIndex = 5
Me.CheckBox5.Text = "CheckBox5"
'
'CheckBox6
'
Me.CheckBox6.Location = New System.Drawing.Point(152, 176)
Me.CheckBox6.Name = "CheckBox6"
Me.CheckBox6.TabIndex = 6
Me.CheckBox6.Text = "CheckBox6"
'
'Label1
'
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 24.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(0, 0)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(208, 48)
Me.Label1.TabIndex = 7
Me.Label1.Text = "Check Boxes"
'
'Form1
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(292, 273)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.CheckBox6)
Me.Controls.Add(Me.CheckBox5)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.CheckBox4)
Me.Controls.Add(Me.CheckBox3)
Me.Controls.Add(Me.CheckBox2)
Me.Controls.Add(Me.CheckBox1)
Me.Name = "Form1"
Me.Text = "Form1"
Me.ResumeLayout(False)
End Sub
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
If CheckBox1.Checked Then
TextBox1.Text = "Check box 1 is checked."
Else
TextBox1.Text = "Check box 1 is not checked."
End If
End Sub
Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
If CheckBox2.Checked Then
TextBox1.Text = "Check box 2 is checked."
Else
TextBox1.Text = "Check box 2 is not checked."
End If
End Sub
Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
If CheckBox3.Checked Then
TextBox1.Text = "Check box 3 is checked."
Else
TextBox1.Text = "Check box 3 is not checked."
End If
End Sub
Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged
If CheckBox4.Checked Then
TextBox1.Text = "Check box 4 is checked."
Else
TextBox1.Text = "Check box 4 is not checked."
End If
End Sub
Private Sub CheckBox5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox5.CheckedChanged
If CheckBox5.Checked Then
TextBox1.Text = "Check box 5 is checked."
Else
TextBox1.Text = "Check box 5 is not checked."
End If
End Sub
Private Sub CheckBox6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox6.CheckedChanged
If CheckBox6.Checked Then
TextBox1.Text = "Check box 6 is checked."
Else
TextBox1.Text = "Check box 6 is not checked."
End If
End Sub
End Class
|
