CheckBox.Checked : CheckBox « System.Windows.Forms « VB.Net by API

1. VB.Net by API
2. System.Windows.Forms
3. CheckBox

CheckBox.Checked

  

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

   
    
  

Related examples in the same category