vb实验七单选按钮、复选框、列表框和组合框实验报告

《vb实验七单选按钮、复选框、列表框和组合框实验报告》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、电子信息工程学系实验报告成绩：课程名称：面向对象程序设计指导教师（签名）：实验项目名称：单选按钮、复选框、列表框和组合框实验时间：班级：姓名：学号：一实验目的:1）掌握单选按钮和复选框的使用。2）掌握列表框的使用。3）掌握组合框的使用。4）区别几种控件的使用场合。二实验环境:WindowsXPVisualStudio.NET2003三实验内容过程及结果分析:一复选框与列表框、组合框联动1.创建界面创建一个工程，由一个窗体组成，界面如下图所示，选择任意一个爱好，将自动想listbox和combobox中添加一个爱好。选择一个样式表，将改变comb

2、obox的dropdownstyle属性。设计界面2.设计各对象属性可以利用属性窗口给listbox或combobox的items属性添加列表项，单击items右边的按钮，将出现字符串集合编辑器，可以在其中预选定义列表项。第5页共5页列表框和组合框的items属性设定界面3.设计各对象的事件代码设计checkbox的事件代码，使用户选择任意一个爱好时，向listbox和combobox中添加该爱好项，当用户不选择中某一爱好时，能移除该爱好。PrivateSubCheckBox1_CheckedChanged(ByValsenderAsSyste

3、m.Object,ByValeAsSystem.EventArgs)HandlesCheckBox1.CheckedChangedIfCheckBox1.CheckedThenListBox1.Items.Add(CheckBox1.Text)ComboBox1.Items.Add(CheckBox1.Text)ElseListBox1.Items.Remove(CheckBox1.Text)ComboBox1.Items.Remove(CheckBox1.Text)EndIfEndSubPrivateSubCheckBox2_CheckedC

4、hanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesCheckBox2.CheckedChangedIfCheckBox2.CheckedThenListBox1.Items.Add(CheckBox2.Text)ComboBox1.Items.Add(CheckBox2.Text)ElseListBox1.Items.Remove(CheckBox2.Text)ComboBox1.Items.Remove(CheckBox2.Text)EndIfEndSubPri

5、vateSubCheckBox3_CheckedChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesCheckBox3.CheckedChangedIfCheckBox3.CheckedThenListBox1.Items.Add(CheckBox3.Text)ComboBox1.Items.Add(CheckBox3.Text)ElseListBox1.Items.Remove(CheckBox3.Text)ComboBox1.Items.Remove(Chec

6、kBox3.Text)EndIfEndSub第5页共5页PrivateSubCheckBox4_CheckedChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesCheckBox4.CheckedChangedIfCheckBox4.CheckedThenListBox1.Items.Add(CheckBox4.Text)ComboBox1.Items.Add(CheckBox4.Text)ElseListBox1.Items.Remove(CheckBox4.T

7、ext)ComboBox1.Items.Remove(CheckBox4.Text)EndIfEndSubPrivateSubCheckBox5_CheckedChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesCheckBox5.CheckedChangedIfCheckBox5.CheckedThenListBox1.Items.Add(CheckBox5.Text)ComboBox1.Items.Add(CheckBox5.Text)ElseListBox1

8、.Items.Remove(CheckBox5.Text)ComboBox1.Items.Remove(CheckBox5.Text)EndIfEnd