Mega Code Archive

 

Categories / VB.Net by API / System Windows Forms

 

CheckState Checked

Imports System.Windows.Forms public class CheckBoxSelectedState    public Shared Sub Main         Application.Run(New Form1)    End Sub End class Public Class Form1     Inherits System.Windows.Forms.Form     Friend WithEvents checkBoxA As System.Windows.Forms.CheckBox     Friend WithEvents checkBoxB As System.Windows.Forms.CheckBox     Friend WithEvents btnStatus As System.Windows.Forms.Button     Friend WithEvents btnEnable As System.Windows.Forms.Button     Public Sub New()         MyBase.New()         Me.checkBoxA = New System.Windows.Forms.CheckBox()         Me.checkBoxB = New System.Windows.Forms.CheckBox()         Me.btnStatus = New System.Windows.Forms.Button()         Me.btnEnable = New System.Windows.Forms.Button()         Me.SuspendLayout()         '         'checkBoxA         '         Me.checkBoxA.Checked = True         Me.checkBoxA.CheckState = System.Windows.Forms.CheckState.Checked         Me.checkBoxA.Location = New System.Drawing.Point(48, 72)         Me.checkBoxA.Name = "checkBoxA"         Me.checkBoxA.Size = New System.Drawing.Size(200, 24)         Me.checkBoxA.TabIndex = 0         Me.checkBoxA.Text = "CheckBox A"         '         'checkBoxB         '         Me.checkBoxB.AutoCheck = False         Me.checkBoxB.Checked = True         Me.checkBoxB.CheckState = System.Windows.Forms.CheckState.Indeterminate         Me.checkBoxB.Location = New System.Drawing.Point(48, 120)         Me.checkBoxB.Name = "checkBoxB"         Me.checkBoxB.Size = New System.Drawing.Size(200, 24)         Me.checkBoxB.TabIndex = 1         Me.checkBoxB.Text = "CheckBox B"         Me.checkBoxB.ThreeState = True         '         'btnStatus         '         Me.btnStatus.Anchor = (System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right)         Me.btnStatus.Location = New System.Drawing.Point(56, 192)         Me.btnStatus.Name = "btnStatus"         Me.btnStatus.Size = New System.Drawing.Size(136, 23)         Me.btnStatus.TabIndex = 2         Me.btnStatus.Text = "View Checkbox Status"         '         'btnEnable         '         Me.btnEnable.Anchor = (System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right)         Me.btnEnable.Location = New System.Drawing.Point(224, 192)         Me.btnEnable.Name = "btnEnable"         Me.btnEnable.Size = New System.Drawing.Size(96, 23)         Me.btnEnable.TabIndex = 3         Me.btnEnable.Text = "Enable"         '         'Form1         '         Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)         Me.ClientSize = New System.Drawing.Size(368, 266)         Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.btnEnable, Me.btnStatus, Me.checkBoxB, Me.checkBoxA})         Me.Name = "Form1"         Me.Text = "Form1"         Me.ResumeLayout(False)     End Sub     Private Sub btnStatus_Click(ByVal sender As Object, _         ByVal e As System.EventArgs) Handles btnStatus.Click         Dim status As String         If checkBoxA.Checked = True Then          status = "checkBoxA is checked. " & ControlChars.Cr         Else          status = "checkBoxA is unchecked. " & ControlChars.Cr         End If         If checkBoxB.ThreeState = True Then             status = status & "checkBoxB's CheckState is " & checkBoxB.CheckState.ToString() & "."         Else             If checkBoxB.Checked = True Then                 status = status & "checkBoxB is checked."             Else                 status = status & "checkBoxB is unchecked."             End If         End If       MessageBox.Show(status)     End Sub     Private Sub btnEnable_Click(ByVal sender As Object, _         ByVal e As System.EventArgs) Handles btnEnable.Click         checkBoxB.AutoCheck = True         checkBoxB.CheckState = CheckState.Checked         checkBoxB.ThreeState = False     End Sub End Class