Mega Code Archive

 

Categories / VB.Net Tutorial / GUI

 

CheckBox checkuncheck event

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