VB教案-单选按钮与框架

电子信息工程学系实验报告课程名称：面向对象程序设计实验项目名称：单选按钮、复选框、列表框和组合框 实验时间：班级： 姓名： 学号：一 实 验 目 的:1） 掌握单选按钮和复选框的使用。

2） 掌握列表框的使用。

3） 掌握组合框的使用。

4） 区别几种控件的使用场合。

二 实 验 环 境:Windows XPVisual 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.CheckedChangedIf CheckBox1.Checked ThenListBox1.Items.Add(CheckBox1.Text)ComboBox1.Items.Add(CheckBox1.Text)ElseListBox1.Items.Remove(CheckBox1.Text)ComboBox1.Items.Remove(CheckBox1.Text)End IfEnd SubPrivate Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles CheckBox2.CheckedChangedIf CheckBox2.Checked ThenListBox1.Items.Add(CheckBox2.Text)ComboBox1.Items.Add(CheckBox2.Text)ElseListBox1.Items.Remove(CheckBox2.Text)ComboBox1.Items.Remove(CheckBox2.Text)End IfEnd SubPrivate Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles CheckBox3.CheckedChangedIf CheckBox3.Checked ThenListBox1.Items.Add(CheckBox3.Text)ComboBox1.Items.Add(CheckBox3.Text)ElseListBox1.Items.Remove(CheckBox3.Text)ComboBox1.Items.Remove(CheckBox3.Text)End IfEnd SubPrivate Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChangedIf CheckBox4.Checked ThenListBox1.Items.Add(CheckBox4.Text)ComboBox1.Items.Add(CheckBox4.Text)ElseListBox1.Items.Remove(CheckBox4.Text)ComboBox1.Items.Remove(CheckBox4.Text)End IfEnd SubPrivate Sub CheckBox5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox5.CheckedChangedIf CheckBox5.Checked ThenListBox1.Items.Add(CheckBox5.Text)ComboBox1.Items.Add(CheckBox5.Text)ElseListBox1.Items.Remove(CheckBox5.Text)ComboBox1.Items.Remove(CheckBox5.Text)End IfEnd SubPrivate Sub CheckBox6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox6.CheckedChangedIf CheckBox6.Checked ThenListBox1.Items.Add(CheckBox6.Text)ComboBox1.Items.Add(CheckBox6.Text)ElseListBox1.Items.Remove(CheckBox6.Text)ComboBox1.Items.Remove(CheckBox6.Text)End IfEnd SubPrivate Sub CheckBox7_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox7.CheckedChangedIf CheckBox7.Checked ThenListBox1.Items.Add(CheckBox7.Text)ComboBox1.Items.Add(CheckBox7.Text)ElseListBox1.Items.Remove(CheckBox7.Text)ComboBox1.Items.Remove(CheckBox7.Text)End IfEnd Sub设计radiobutton的事件代码，使用户选择样式时，能改变combobox的dropdownstyle属性。

标准控件二 21、掌握单选按钮控件的设置与使用2、掌握复选框控件的设置与使用单选按钮控件的设置与使用、复选框控件的设置与使用单选按钮控件、复选框控件的属性设置与代码编写10 10 18复习评讲作业。

新课标准控件二一、选择控件—单选按钮复选框和单选按钮的属性和事件Value属性Alignment属性Style属性应用举例例：使用单选按钮使文本框中的字体改变大小。

Text1.FontSize = 14End SubPrivate Sub Option2_Click()Text1.FontSize = 18End Sub练习1：请用单选按钮使文本框中的字体改变颜色。

练习2：使用单选按钮控制窗口大小怎样编写代码。

想在窗体中加载图片怎样编写代码，想使图片随窗口大小变化怎么办(提示：可以使用图像框)。

Private Sub Option1_Click()Form1.WindowState = 0Form1.Top = 100Form1.Left = 100Form1.Height = 7000 '产生窗口的随机大小时用Rnd * 7000 Form1.Width = 10000Image1.Top = 0Image1.Left = 0Image1.Height = Form1.HeightImage1.Width = Form1.WidthImage1.Stretch = TrueImage1.Picture = LoadPicture("d:\hua.jpg")End SubPrivate Sub Option2_Click()Form1.WindowState = 2Image1.Top = 0Image1.Left = 0Image1.Height = Form1.HeightImage1.Width = Form1.WidthForm1.Picture =LoadPicture("d:\hua.jpg")End Sub二、选择控件—复选框例：使用复选框显示文本框中的字体分别为下划线、倾斜、粗体Private Sub Check1_Click()Text1.FontUnderline = TrueEnd SubPrivate Sub Check2_Click()Text1.FontItalic = TrueEnd SubPrivate Sub Check3_Click()Text1.FontBold = TrueEnd Sub该例在运行时复选框取消时有何表现？问：复选框取消时如何设置代码，使其没有下划线等效果？Private Sub Check1_Click()If Check1.Value = 1 ThenText1.FontUnderline = TrueElseText1.FontUnderline = FalseEnd IfEnd SubPrivate Sub Check2_Click()If Check2.Value = 1 ThenText1.FontItalic = TrueElseText1.FontItalic = FalseEnd IfEnd SubPrivate Sub Check3_Click()If Check3.Value = 1 ThenText1.FontBold = TrueElseText1.FontBold = FalseEnd If练习1：使用复选框列出休闲项目，运行时把选择的项目用msgbox 显示出来。

课时教案课题 5.5.2 使用单选按钮组课时1授课时间教学目标让同学们掌握如何对单选按钮进行分组和分组后的代码的完成教学重点单选按钮的分组教学难点分组后的代码怎么写课型复习课教法讲授、课件演示教学过程学生活动一、回顾复习1、单选按钮2、单选按钮常用属性和事件二、新课5.5.2 使用单选按钮组相关知识：单选钮的特点是：当选定其中一个后，其余就自动关闭。

但当需要在同一窗体中建立几组相互独立的单选钮时，就需要用框架（Frame）将每一组单选钮框起来，这样在一个框架内的单选钮为一组，它们的操作不影响框外其他组的单选钮。

另外，对于其他类型的控件用框架框起来，可提供视觉上的区分和总体的激活或屏蔽特性。

回答老师提出的问题注意听讲，观看分组后的效果图及不同之处跟着老师写代码•Private Sub Command1_Click() •If Option1.Value Then•Text1.FontName = "宋体" •Else•Text1.FontName = "黑体"•End If•If Option3.Value Then•Text1.FontSize = 10•Else•Text1.FontSize = 14•End If•End Sub•Private Sub Command2_Click()•Unload Me•End Sub注：分组用什么？分组后各个按钮的设置相互有影响吗？有的话，没有的话？（讨论）同学们用自己的方法写出本题的代码课后作业作业：课时教案教学目标让同学们掌握和达到单选按钮分组教学重点单选按钮的分组教学难点代码的巩固课型复习课教法讲授、课件演示教学过程学生活动一、回顾复习1、单选按钮2、单选按钮常用属性和事件3、用谁来分组？二、新课上节课总结出什么了？（学生应从以下方面回答）分组的用途？怎么分组？分组后各个单选钮的属性？5.5.2 使用单选按钮组完成代码：Private sub command1_click()Text1.text=”我是”If thenText1.text=ElseText1.text=End ifIf thenText1.text= 回答老师提出的问题跟着老师写代码同学们用自己的方法写出本题的代码。

[教案]（六）命令按钮、选择框、单选按钮和框架授课方式：讲授法授课学时：2学时教学目的：通过本次课的学习，学生应该掌握使用命令按钮、选择框、单选按钮和框架四种控件常用的各种属性、事件和方法，并且能够准确使用各种控件设计各种用户界面，并能编写出响应事件的代码。

教学重点和难点：1．命令按钮的属性和事件；2．选择框和单选按钮的属性和事件。

教学过程：命令按钮、选择框、单选按钮和框架一、命令按钮(CommandButton)1．了解命令按钮在VB中的用途。

2．掌握命令按钮的以下3个主要属性（1）Caption（2）Style（3）Picture3．事件介绍命令按钮最常用的事件——Click事件的应用情况。

二、选择框(CheckBox)1．用途介绍选择框在VB中的用途。

2．主要属性掌握选择框的以下4个属性：（1）Caption（2）Alignment（3）Value（4）Style3．事件介绍选择框最常用的事件——Click事件的具体应用情况。

三、单选按钮（OptionButton）1．用途介绍单选按钮在VB中的用途。

2．主要属性掌握单选按钮的以下5个属性：（1）Caption（2）Alignment（3）Value（4）Style（5）Enabled3．选项分组掌握如何个单选按钮进行分组，以及那些对象可以作为分组的容器。

四、框架(Frame)1．用途介绍框架在VB中的主要用途就是用于分组。

2．主要属性掌握框架的以下3个属性：（1）Caption（2）Enabled（3）Visible学生作业：上机实验四：1．命令按钮、选择框和单选钮2．单选钮和框架[讲稿]（六）命令按钮、选择框、单选按钮和框架一、命令按钮（CommandButton）1、主要属性（1）Caption：如果某个字母前加入“＆”，则程序运行时标题中的该字母带有下划线，即作为快捷键，用Alt+快捷键（2）Style：在VB5.0 以后的版本中，命令按钮上不仅可显示文字，还可设置显示图形。