vb实验七单选按钮、复选框、列表框和组合框实验报告
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
电子信息工程学系实验报告
课程名称：面向对象程序设计
实验项目名称：单选按钮、复选框、列表框和组合框 实验时间：
班级： 姓名： 学号：
一 实 验 目 的:
1） 掌握单选按钮和复选框的使用。
2） 掌握列表框的使用。
3） 掌握组合框的使用。
4） 区别几种控件的使用场合。
二 实 验 环 境:
Windows XP
Visual 2003
三 实 验 内 容 过 程 及 结 果 分 析:
一 复选框与列表框、组合框联动
1.创建界面
创建一个工程，由一个窗体组成，界面如下图所示，选择任意一个爱好，将自动想listbox 和combobox
中添加一个爱好。选择一个样式表，将改变combobox 的dropdownstyle 属性。
设计界面
2.设计各对象属性
可以利用属性窗口给listbox 或combobox 的items 属性添加列表项，单击items 右边的按钮，将出现字
符串集合编辑器，可以在其中预选定义列表项。
列表框和组合框的items属性设定界面
3.设计各对象的事件代码
设计checkbox的事件代码，使用户选择任意一个爱好时，向listbox和combobox中添加该爱好项，当用户不选择中某一爱好时，能移除该爱好。
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
If CheckBox1.Checked Then
ListBox1.Items.Add(CheckBox1.Text)
ComboBox1.Items.Add(CheckBox1.Text)
Else
ListBox1.Items.Remove(CheckBox1.Text)
ComboBox1.Items.Remove(CheckBox1.Text)
End If
End Sub
Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles CheckBox2.CheckedChanged
If CheckBox2.Checked Then
ListBox1.Items.Add(CheckBox2.Text)
ComboBox1.Items.Add(CheckBox2.Text)
Else
ListBox1.Items.Remove(CheckBox2.Text)
ComboBox1.Items.Remove(CheckBox2.Text)
End If
End Sub
Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles CheckBox3.CheckedChanged
If CheckBox3.Checked Then
ListBox1.Items.Add(CheckBox3.Text)
ComboBox1.Items.Add(CheckBox3.Text)
Else
ListBox1.Items.Remove(CheckBox3.Text)
ComboBox1.Items.Remove(CheckBox3.Text)
End If
End Sub
Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged
If CheckBox4.Checked Then
ListBox1.Items.Add(CheckBox4.Text)
ComboBox1.Items.Add(CheckBox4.Text)
Else
ListBox1.Items.Remove(CheckBox4.Text)
ComboBox1.Items.Remove(CheckBox4.Text)
End If
End Sub
Private Sub CheckBox5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox5.CheckedChanged
If CheckBox5.Checked Then
ListBox1.Items.Add(CheckBox5.Text)
ComboBox1.Items.Add(CheckBox5.Text)
Else
ListBox1.Items.Remove(CheckBox5.Text)
ComboBox1.Items.Remove(CheckBox5.Text)
End If
End Sub
Private Sub CheckBox6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox6.CheckedChanged
If CheckBox6.Checked Then
ListBox1.Items.Add(CheckBox6.Text)
ComboBox1.Items.Add(CheckBox6.Text)
Else
ListBox1.Items.Remove(CheckBox6.Text)
ComboBox1.Items.Remove(CheckBox6.Text)
End If
End Sub
Private Sub CheckBox7_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox7.CheckedChanged
If CheckBox7.Checked Then
ListBox1.Items.Add(CheckBox7.Text)
ComboBox1.Items.Add(CheckBox7.Text)
Else
ListBox1.Items.Remove(CheckBox7.Text)
ComboBox1.Items.Remove(CheckBox7.Text)
End If
End Sub
设计radiobutton的事件代码，使用户选择样式时，能改变combobox的dropdownstyle属性。
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
ComboBox1.DropDownStyle = ComboBoxStyle.Simple
End Sub
Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As