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 Sub End Class
窗体如下,使用了常用的较复杂的输入控件,捕捉控件事件后,将事件做为文件设置这些控件的值
3、具体代码见附件