Mega Code Archive

 

Categories / VB.Net by API / System Windows Forms

 

CheckState Indeterminate

Imports System.Windows.Forms Module Module1     Sub Main()         Application.Run(New Form1)     End Sub End Module Public Class Form1     Inherits System.Windows.Forms.Form     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 Label1 As System.Windows.Forms.Label     Public Sub New()         MyBase.New()         Me.CheckBox1 = New System.Windows.Forms.CheckBox()         Me.CheckBox2 = New System.Windows.Forms.CheckBox()         Me.CheckBox3 = New System.Windows.Forms.CheckBox()         Me.Label1 = New System.Windows.Forms.Label()         Me.SuspendLayout()         '         'CheckBox1         '         Me.CheckBox1.Location = New System.Drawing.Point(24, 32)         Me.CheckBox1.Name = "CheckBox1"         Me.CheckBox1.TabIndex = 0         Me.CheckBox1.Text = "Item 1 "         Me.CheckBox1.ThreeState = True         '         'CheckBox2         '         Me.CheckBox2.Location = New System.Drawing.Point(24, 72)         Me.CheckBox2.Name = "CheckBox2"         Me.CheckBox2.Size = New System.Drawing.Size(136, 24)         Me.CheckBox2.TabIndex = 1         Me.CheckBox2.Text = "Item 2 "         Me.CheckBox2.ThreeState = True         '         'CheckBox3         '         Me.CheckBox3.Location = New System.Drawing.Point(24, 112)         Me.CheckBox3.Name = "CheckBox3"         Me.CheckBox3.Size = New System.Drawing.Size(144, 24)         Me.CheckBox3.TabIndex = 2         Me.CheckBox3.Text = "Item 3"         Me.CheckBox3.ThreeState = True         '         'Label1         '         Me.Label1.Location = New System.Drawing.Point(32, 176)         Me.Label1.Name = "Label1"         Me.Label1.Size = New System.Drawing.Size(224, 56)         Me.Label1.TabIndex = 3         '         '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.Label1, Me.CheckBox3, Me.CheckBox2, Me.CheckBox1})         Me.Name = "Form1"         Me.Text = "CheckBoxDemo"         Me.ResumeLayout(False)     End Sub     Private Sub CheckBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox1.Click, CheckBox2.Click, CheckBox3.Click         Label1.Text = "Choices: "         If (CheckBox1.Checked) Then             Label1.Text = Label1.Text & " " & CheckBox1.Text         End If         If (CheckBox1.CheckState = CheckState.Indeterminate) Then             Label1.Text = Label1.Text & " " & CheckBox1.Text & " (I)"         End If         If (CheckBox2.Checked) Then             Label1.Text = Label1.Text & " " & CheckBox2.Text         End If         If (CheckBox2.CheckState = CheckState.Indeterminate) Then             Label1.Text = Label1.Text & " " & CheckBox2.Text & " (I)"         End If         If (CheckBox3.Checked) Then             Label1.Text = Label1.Text & " " & CheckBox3.Text         End If         If (CheckBox3.CheckState = CheckState.Indeterminate) Then             Label1.Text = Label1.Text & " " & CheckBox3.Text & " (I)"         End If         Label1.Refresh()     End Sub End Class