清华大学vb编程语言基础_第9讲.ppt

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

第九讲 常用控件 内容提要 单选按钮和复选框的常用属性 单选按钮和复选框的常用属性 单选按钮和复选框的常用属性 单选按钮和复选框-例 单选按钮和复选框-例 框架 框架的属性和方法 框架的属性和方法 框架-例 框架-例 列表框和组合框 列表框 列表框常用属性 列表框常用属性 列表框常用属性 列表框常用属性 列表框常用属性 列表框常用属性 列表框常用方法 列表框常用的事件 列表框-例 列表框-例 列表框-例 组合框 组合框常用属性 组合框常用属性 组合框的常用事件 组合框的常用方法 组合框-例1 组合框-例1 组合框-例2 组合框-例2 滚动条 滚动条的常用属性 滚动条的常用属性 滚动条的常用事件 滚动条-例 滚动条-例 滚动条-例 计时器控件 计时器例1-简单的电子表 计时器例2-简单动画 计时器例3-闪烁灯泡 ActiveX控件的使用 Slider控件 Slider控件常用属性 Slider控件常用属性 Slider控件常用属性 使用“属性页” 设置 ActiveX控件属性 Slider控件的常用事件 Slider控件-例 Progress Bar控件 Progress Bar控件的属性 Progress Bar控件-例 UpDown控件 UpDown控件-例 SSTab控件 SSTab控件的属性 SSTab控件-例 Animation控件 Animation控件 Animation控件-例 AddItem方法 把一个选项添加到组合框中 Clear方法 清除组合框中所有内容 RemoveItem方法 用于删除组合框中指定的项目 组合框名称. AddItem 项目 [,索引值] 组合框名称.Clear 组合框名称. RemoveItem 索引值 创建一个组合框,并可对组合框中的项目进行添加、删除、清空操作,要求程序运行时组合框中已有一些项目。 Private Sub Form_Load() cboName.AddItem 王莹 cboName.AddItem 刘建国 cboName.AddItem 李春英 cboName.AddItem 张德江 cboName.AddItem 孙丽 cboName.Text = cboName.List(0) End Sub Private Sub cmdAdd_Click() cboName.AddItem cboName.Text End Sub Private Sub cmdDel_Click() cboName.RemoveItem cboName.ListIndex End Sub Private Sub cmdClear_Click() cboName.Clear End Sub Private Sub cmdExit_Click() End End Sub 使用组合框设置文本框中文本的字体和字号 Private Sub Form_Load() Combo1.AddItem 宋体 Combo1.AddItem 楷体 Combo1.AddItem 隶书 Combo1.AddItem 黑体 Combo1.AddItem 幼圆 Combo1.Text = Combo1.List(0) Combo2.AddItem 12 Combo2.AddItem 24 Combo2.AddItem 36 Combo2.AddItem 48 Combo2.AddItem 72 Combo2.Text = Combo2.List(0) End Sub Private Sub Combo1_Click() Select Case Combo1.ListIndex Case 0 Text1.FontName = 宋体 Case 1 Text1.FontName = 楷体_GB2312 Case 2 Text1.FontName = 隶书 Case 3 Text1.FontName = 黑体 Case 4 Text1.FontName = 幼圆 End Select End Sub Private Sub Combo2_Click() Select Case Combo2.ListIndex Case 0

文档评论(0)

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

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

1亿VIP精品文档

相关文档