第7章 用户界面设计2

《第7章 用户界面设计2》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、第7章用户界面设计复选框与单选按钮框架直线和形状图像和图片框滚动条本章主要内容列表框组合框时钟其他控件菜单设计1.单选按钮的用途单选按钮(OptionButton)控件由一个圆圈“○”及紧挨它的文字组成，能提供“选中”和“未选中”两种可选项；成组形式出现。2.常用属性Caption属性Value属性：表示单选按钮是否被选中，选中时Value值为True,否则为False。使用单选按钮组时，选中其中一个，其余就会自动关闭Alignment属性：设置单选按钮标题的对齐方式（0、1）3.事件Click事件在应用程序中可以创建一个

2、事件过程，检测控件对象Value属性值，再根据检测结果执行相应的处理7.1复选框与单选按钮7.1.1单选按钮(1)创建应用程序的用户界面和设置对象属性单选按钮组；初始状态：设置Option1的Value属性值设置为True，或通过代码“Option1.Value=True”来实现(2)编写程序代码功能要求例7.1用单选按钮组控制显示不同的字体4.8程序代码如下：PrivateSubOption1_Click()Text1.FontName="宋体"EndSubPrivateSubOption2_Click()Text1.F

3、ontName="幼圆"EndSubPrivateSubOption3_Click()Text1.FontName="楷体_GB2312"EndSub说明：程序代码中所用的字体号(如“宋体”、“幼圆”等)必须与系统提供的字体相一致1.复选框的用途复选框(CheckBox)控件由一个四方形小框和紧挨它的文字组成。提供“选中”和“未选中”两种可选项复选框控件与单选按钮控件在使用方面的区别2.常用属性Caption属性:框边文字Value属性：表示复选框的状态有三种取值：0（Unchecked）——未选中(缺省值)1(che

4、cked)——选中2(Grayed)——不可用(灰色显示)Alignment属性:框边文字位置Style属性：显示样式（0—标准，1—按钮）3.事件复选框可响应的事件与单选按钮基本相同:Click事件7.1.2复选框(1)创建应用程序的用户界面和设置对象属性多行文本框(带垂直滚动条)和四个复选框(2)编写程序代码功能要求：程序开始运行后，用户在文本框中输入一段文字(如“复选框应用示例”)，然后按需要单击各复选框，则文字的字体、字型、字号及颜色随之改变例7.2用复选框来控制文字的字体、字型、字号及颜色4.9PrivateS

5、ubCheck1_Click()IfCheck1.Value=1Then'判复选框1是否选中Text1.FontName="楷体_GB2312"ElseText1.FontName="宋体"EndIfEndSubPrivateSubCheck2_Click()IfCheck2.Value=1Then'判复选框2是否选中Text1.FontItalic=-1‘等于TrueElseText1.FontItalic=0EndIfEndSubPrivateSubCheck3_Click()IfCheck3.Value=1Then'判复

6、选框3是否选中Text1.FontSize=25ElseText1.FontSize=9EndIfEndSubPrivateSubCheck4_Click()IfCheck4.Value=1Then'判复选框4是否选中Text1.ForeColor=RGB(255,0,0)ElseText1.ForeColor=RGB(0,0,0)EndIfEndSub在运行中，可以任意设定这四个复选框的状态，可以四项都不选，也可以选择其中一项至四项框架（Frame控件）的功能：容器控件、分组框架与框架内控件的建立方法Frame控件的常用属

7、性Caption属性Enabled属性：False、TrueVisible属性：False、TrueFrame控件的事件Click、DbClick。一般不用。7.2框架例7.3控制文本的字体、字号及颜色10.5设计步骤如下：(1)创建应用程序的用户界面和设置对象属性在窗体上设置3个框架Frame1、Frame2和Frame3(2)编写程序代码功能要求：在三个框架中分别选择字体、字号和颜色，单击“确定”按钮后，文本框中的文本相应属性会发生变化PrivateSubForm_Load()Option1.Value=TrueOp

8、tion3.Value=TrueOption5.Value=TrueText1.FontName="宋体"Text1.FontSize=16Text1.ForeColor=RGB(0,0,255)EndSubPrivateSubCommand1_Click()IfOption