精简第七章用户界面设计VIP免费

第7章用户界面设计7.1常用控件7.2通用对话框7.3菜单设计7.4多重窗体7.5鼠标和键盘7.6综合应用7.1常用控件在VB中控件大致分为三类：标准控件：在工具箱中默认显示ActiveX控件：是扩展名为.ocx的独立文件，是VB工具箱的扩充部分可插入对象：是Windows应用程序的对象添加删除ActiveX控件ActiveX控件在使用前需要执行“工程”菜单下的“部件”命令，在打开的“部件”对话框中选择“控件”标签，然后选择需要加入工具箱中的ActiveX控件名，单击“确定”即可将控件加入到工具箱中7.1.1单选按钮、复选框和框架1.单选按钮(OptionButton)单选按钮以组的形式出现，只允许选择一项重要属性Caption属性按钮上显示的文本Value属性表示单选按钮的状态：True——被选定False——未被选定重要事件Click事件:单击后使Value属性为TrueSetFocus方法是单选钮控件最常用的方法，可以在代码中通过该方法将Value属性设置为TrueOption2.SetFocus用于给定选项的选取，可以同时选取多项（复选）Value属性值为整型，表示复选框的状态：0--vbUnchecked未选定1--vbChecked被选定2--vbGrayed灰色，并显示一个选中标记Caption：复选框标题文字重要事件Click事件:用户单击后，复选框自动改变状态2.复选框(CheckBox)3.框架(Frame)作为容器，用于放置控件，可以整体移动。主要用于单选钮的分组，一组中的单选钮互斥，与另一组单选钮无关Caption属性，给出框架的标题注意：1.必须先有框架，再向框架中放入其他控件2.若用框架将现有的控件分组，则选定控件剪切、选中框架再粘贴框架可以响应Click和DoubleClick事件，但一般不需要编写事件过程框架设Caption为"字体"例：窗体上有一个名称为Frame1的框架，若要把框架上显示的“Frame1”改为汉字“框架”下面正确的语句是A）Frame1.Name="框架“B）Frame1.Caption="框架“C）Frame1.Text="框架“D）Frame1.Value="框架"例：窗体上画两个单选按钮（Option1、Option2,标题分别为“宋体”“黑体”）1个复选框（Check1,标题为“粗体”）1个文本框（Text1,Text属性为“改变文字字体”），程序运行后要求“宋体”单选按钮和“粗体”复选框被选中，则能实现的语句是：A）Option1.Value=FalseCheck1.Value=TrueB）Option1.Value=TrueCheck1.Value=0C）Option1.Value=FalseCheck1.Value=2D）Option1.Value=TrueCheck1.Value=1例7.2PrivateSubOption1_Click()Text1.FontName="宋体"EndSubPrivateSubOption2_Click()Text1.FontName="黑体"EndSubPrivateSubCheck1_Click()Text1.FontBold=NotText1.FontBoldEndSubPrivateSubCheck2_Click()Text1.FontItalic=NotText1.FontItalicEndSubPrivateSubCheck3_Click()Text1.FontStrikethru=NotText1.FontStrikethruEndSubPrivateSubCheck4_Click()Text1.FontUnderline=NotText1.FontUnderlineEndSub例7.2对象属性Frame1Frame2Check1计算机Check2操作系统Option1Windows2000Option2Windows98Combo1Text1Label1品牌：Label2数量：Command1OKList1PrivateSubForm_Load()Combo1.Enabled=FalseText1.Enabled=FalseOption1.Enabled=FalseOption2.Enabled=FalseEndSubPrivateSubCheck1_Click()Combo1.Enabled=NotCombo1.EnabledText1.Enabled=NotText1.EnabledEndSubPrivateSubCheck2_Click()Option1.Enabled=NotOption1.EnabledOption2.Enabled=NotOption2.EnabledEndSubPrivateSubCombo1_LostFocus()flag=FalseFori=0ToCombo1.ListCount–1IfCombo1.List(i)=Combo1.TextThenflag=TrueExitForEndIfNextiIfNotflagThenCombo1.AddItemCombo1.TextEndIfEndSubPrivateSubCommand1_Click()IfCheck1.Value=1ThenList1.AddItemCombo1.TextList1.AddItemText1EndIfIfCheck2.Value=1ThenIfOption1.ValueThenList1.AddItem"Windows2000“ElseList1.AddItem"Windows98“EndIfEndIfEndSub7.1.2滚动条和进度条滚动条(ScrollBar)通常附在窗体上协助观察数据或确定位置，也可作为数据输入工具进度条(ProgressBar)用来指示事务处理的进度滚动条属性滚动条控件（ScrollBar）分为水平滚动（HScrollbar）和垂直滚动条（VscrollBar）Value:滑块当前位置的值(缺...