【教学课件】第10章单选钮、复选框和框架

Click to edit Master title style,Click to edit Master text styles,Second level,Third level,Fourth level,Fifth level,*,第10章 单选钮、复选框和框架,很多数据需要在一组固定的数据中选择一个或多个值，可以使用三个控件：,单选钮控件（,OptionButton,）,提供单项选择，一组单选钮只能有一个能被选中。,复选框控件（,CheckBox,）,提供多项选择，一组复选框中能选中一个或多个值。,框架控件（,Frame,）,是窗体上的一个长方形边框，带有一个选项标题，它可以成为其他控件的容器，通常用于单选钮的分组，使一个窗体能提供多个单选钮组。此外使用框架可以让复杂的画面显得条理分明，整齐易看。,单选钮,OptionButton,以上是标准外形，包含一个圆形钮和附在其后的文字。,u,Caption属性：,用来指定文字。,OptionButton控件的风格,此外，单选钮也可以有丰富的图形外观。,Style属性：,用来指示控件的显示风格和行为。设计时缺省取值为,0-Standard,，即标准的，如果设置为,1-Graphical,，则支持图形外观，以下属性设置将生效。,Picture属性：,设置控件中要显示的图片，该属性可以在“属性窗口”中直接设置，也可以在程序中用LoadPicture函数加载。如果Caption属性有值，则按钮中同时显示图片和文字。,DownPicture属性：,设置控件被单击并处于压下状态时显示的图片。,DisabledPicture属性：,设置控件在无效时显示的图片，也就是控件的Enabled属性取值为False时控件的外观图片。,OptionButton控件的图形外观,这种图形方式的单选钮比文字更为直观，适合儿童软件或游戏软件中的单选。,如何使用,OptionButton控件,创建单选按钮组,缺省时直接放到窗体上的所有单选钮自动构成一组，仅有一个按钮能被选中。,在窗体中绘制多个框架（,Frame,或PitureBox,）,将属于不同类别的单选钮分别放置到各自的框架中，可得到多组单选钮。,选定按钮（引发一个Click事件）,运行时选中,或设置,Value属性为True,禁止选项按钮，Enabled,属性为False,在一个值上重复点击,Click事件只发生一次,OptionButton控件的值,Value属性,单选钮的Value属性确定该单选钮是否被选中。True表示被选中，否则没有选中。,可以在代码中将Value属性设为True来选定单选钮。例如：,optBoy.Value=True,如果要在单选钮组中设置缺省单选钮，可以在设计时通过“属性窗口”将相应单选钮的,Value,属性设为,True,，或者在窗口加载事件代码中设定,Value,属性为,True,。,OptionButton控件示例,选中个人,Private Sub optOne_Click(),serviceFee=500,Call DisplayPrice,End Sub,选中飞机,Private Sub optVehicle1_Click(),travellingFee=2000,Call DisplayPrice,End Sub,显示总的预算价格,Private Sub DisplayPrice(),lblPrice=,初步预算大约为：,&serviceFee+travellingFee+hotelFee,End Sub,【例】编写程序，使用分组单选钮提供多种旅游选项，响应单选钮的选择，显示当前各选项的组合报价。,以下三个变量分别代表旅行社服务费、路费和住宿费,Dim serviceFee As Integer,Dim travellingFee As Integer,Dim hotelFee As Integer,窗体加载，先根据缺省设置，计算费用,Private Sub Form_Load(),serviceFee=300,travellingFee=2000,hotelFee=800,call displayPrice,End Sub,选中团体,Private Sub optTeam_Click(),serviceFee=300,Call DisplayPrice,End Sub,复选框,CheckBox,用法与OptionButton相似，但值不同：,Value=False/0,没有选中,Value=True/1,选中,Value=2,变灰，不可用,复选框示例,【例】编写程序，使用复选框来控制文本框中文本的字体效果（粗体、斜体或下划线）。界面效果如图所示,复选框示例,点击粗体复选框,Private Sub ChkBold_Click(),If ChkBold.Value=1 Then,txtDisplay.FontBold=True,Else,txtDisplay.FontBold=False,End If,End Sub,点击斜体复选框,Private Sub ChkItalic_Click(),If ChkItalic.Value=1 Then,txtDisplay.FontItalic=True,Else,txtDisplay.FontItalic=False,End If,End Sub,点击下划线复选框,Private Sub ChkUnderline_Click(),If ChkUnderline.Value=1 Then,txtDisplay.FontUnderline=True,Else,txtDisplay.FontUnderline=False,End If,End Sub,