略79sstab控件.ppt

  1. 1、本文档共45页,可阅读全部内容。
  2. 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
略79sstab控件

第7章 常用控件 7.1 常用控件分类 7.2 单选按钮和复选框 7.3 框架 7.4 列表框和组合框 7.5 滚动条和滑块控件 7.1 常用控件分类 1.标准控件 又称为内部控件,工具箱中提供了20个标准控件 2.ActiveX控件 VB系统以及第三方开发商提供的类似于工具箱标准控件的控件,用于开发更加复杂的应用程序 必须通过菜单命令先添加到工具箱中,才能像标准控件一样使用 3.可插入对象 Windows应用程序对象 如:Microsoft Excel 工作表、Microsoft PowerPoint 演示文稿等 7.2 单选按钮和复选框 单选按钮(OptionButton ) 以组的形式出现,允许用户选择其中的一项;每一项的对象名为Option1, Option2…… 复选框(CheckBox) 以组的形式出现,用户根据需要选择其中的一项或多项;每一项的对象名为Check1, Check2…… 重要属性 Caption属性:单选按钮和复选框上显示的文本 Alignment属性: 0:控件按钮在左边,文本在右边(缺省值) 1:控件按钮在右边,文本在左边 Value属性:单选按钮和复选框的状态 单选按钮: True:被选定 False:未被选定(缺省值) 复选框: 0:Unchecked,未被选定 1:Checked,被选定 2:Grayed,灰色禁用状态,不可使用 Style属性: 0:Standard,标准方式 1:Graphical,图形方式 DownPicture、Picture、DisabledPicture 常用事件和方法 单选按钮和复选框的常用事件是Click事件,当用户选择单选按钮或复选框时触发该事件。 单选按钮和复选框支持的方法较少,常用的主要有SetFocus和Move方法。 Private Sub Command1_Click() Text1.FontName = IIf(Option1, 宋体, 黑体) Text1.FontBold = IIf(Check1 = 1, True, False) Text1.FontItalic = IIf(Check2 = 1, True, False) Text1.FontStrikethru = IIf(Check3 = 1, True, False) Text1.FontUnderline = IIf(Check4 = 1, True, False) End Sub Private Sub Check1_Click() Text1.FontBold = Not Text1.FontBold End Sub Private Sub Check2_Click() Text1.FontItalic = Not Text1.FontItalic End Sub Private Sub Check3_Click() Text1.FontStrikethru = Not Text1.FontStrikethru End Sub Private Sub Check4_Click() Text1.FontUnderline = Not Text1.FontUnderline End Sub 7.3 框架(Frame) 创建框架 在窗体上创建框架及其内部控件时,必须先建立框架,然后将各控件放置其中。 创建控件时不能双击工具箱中的工具,必须单击后在适当位置自行拖拉。 若要将现有的控件分组,应先选定控件,剪切到框架中。 常用属性和事件 例7.1 利用框架、单选钮和复选框建立一个字体、字型和字号的对话框,根据不同的选择在文本框中显示不同的文字。 Private Sub Check1_Click(Index As Integer) Select Case Index Case 0 Text1.FontItalic = Not Text1.FontItalic Case 1 Text1.FontBold = Not Text1.FontBold Case 2 Text1.FontUnderline = Not Text1.FontUnderline End Select End Sub Private Sub Option1_Click(Index As Integer) Select Case Index Case 0 Text1.FontName = 黑体 Case 1 Text1.FontNam

文档评论(0)

wangyueyue + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档