vb.net 2010入门(二)-使用较复杂的输入控件

vb.net 2010入门(2)-使用较复杂的输入控件

Public Class Form1    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged        DateTimePicker1.Enabled = CheckBox1.Checked        Label1.Text = CheckBox1.CheckState        ComboBox1.Items.Add("CheckBox1.CheckState=" & Label1.Text)        CheckedListBox1.Items.Add("CheckBox1.CheckState=" & Label1.Text, True)    End Sub    Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged        Label1.Text = DateTimePicker1.Text        ComboBox1.Items.Add("DateTimePicker1.Text=" & Label1.Text)        CheckedListBox1.Items.Add("DateTimePicker1.Text=" & Label1.Text, True)    End Sub    Private Sub CheckedListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckedListBox1.SelectedIndexChanged        Dim citems As CheckedListBox.CheckedItemCollection        Dim myevent As Object        citems = CheckedListBox1.CheckedItems        ListBox1.Items.Clear()        '为右边的列表框赋值        For Each myevent In citems            ListBox1.Items.Add(myevent.ToString)        Next    End Sub    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged        Dim xh As String        xh = "1"        If Not RadioButton1.Checked Then            xh = "2"        End If        ComboBox1.Items.Add("你选中了RadioButton" & xh)        CheckedListBox1.Items.Add("你选中了RadioButton" & xh, True)    End SubEnd Class

??窗体如下，使用了常用的较复杂的输入控件，捕捉控件事件后，将事件做为文件设置这些控件的值

?

3、具体代码见附件

?