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
|