第2章 常用控件与界面设计.pptVIP

  1. 1、本文档共53页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  5. 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  6. 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  7. 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  8. 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
第2章 常用控件与界面设计

本章介绍窗体及部分标准控件的用法,包括:标签、文本框、命令按钮、列表框、组合框、单选按钮、复选框、框架、滚动条、图像框(补充)及图片框、计时器、、直线和形状(补充) ;*;*;*;*;(2)方法 Refresh Move (3)事件 Click Dbclick ;(1)属性: Name Text Maxlength Multiline Passwordchar Scrollbars Alignment Locked ; 用户用鼠标单击命令按钮,将执行一条命令,但具体的动作则由相应的事件过程的程序代码决定。 (1)属性 Caption Cancel(取消属性):“True”时按[ESC]键等同于单击该按钮,一般“取消”按钮的cancel设置为“True”. Default(缺省属性):当此属性为“True”时,此按钮被设为焦点,按回车键等同于按此按钮。一般将“确定”按钮的Default属性设为“True”。 Enabled Style Picture等 (2)事件: 最基本也是最重要的事件:单击Click;列表框用于列出可供用户选择的项目列表。用户单击某一项,此项被加亮显示;当列表项目很多时,列表框还会附加一个垂直滚动条。 (1)属性 List :表属性,用于保存列表的内容。可用下列形式来访问列表: [Object].List(列表项序号) 列表项序号由上到下依次为0,1,2,3…… Listcount :列表项数目 ListIndex:列表项的索引。其值为最后选定的列表项的序号,第一个列表项的序号为0,如果未选任何表项,则其值为-1。; Multiselect:多选属性 Selected:选择属性(只能在程序代码中使用) SelCount:读取列表框中所选数目 Sorted:排序属性 Style:0:标准形式;1:复选框形式 Text:列表项的内容。其值为最后选中的列表项的文本,它与List(ListIndex) 相同。 Columns:列表框显示形式。;(2)方法: Additem:添加列表项。格式如下: [object].Additem列表项文本 [,插入位置序号] 如不指定插入位置,则插入到列表末尾。 Clear:删除列表所有项目。 Removeitem:删除列表项。格式如下: [Object].Removeitem 删除项序号 (3)事件: 单击Click 双击DbClick(很少用);【示例】兴趣爱好选取窗体。 本示例将完成一个常见的兴趣爱好选择窗体,如图所示,左侧列出了所有可供选择的兴趣爱好,用户可以通过选中后点击添加按钮或者双击??项的方式将兴趣爱好添加到右边的列表中,或者通过添加全部将左侧列表中的选项全部添加到右边列表,类似的, 用户可以取消所选的兴趣 爱好,为了避免用户重复 选取,用户选中的选项应 从参考列表中移除。 ;【示例】兴趣爱好选取窗体。 操作步骤如下: 1、在窗体上新建2个标签、2个列表框、4个命令按钮,调整它们的位置及大小,并设置属性 2、编写代码如下: Private Sub Command1_Click() If List1.ListIndex -1 Then List2.AddItem List1.Text List1.RemoveItem List1.ListIndex End If End Sub ;【示例】兴趣爱好选取窗体。 Private Sub Command2_Click() For i = 0 To List1.ListCount - 1 List2.AddItem List1.List(i) Next List1.Clear End Sub Private Sub Command3_Click() If List2.ListIndex -1 Then List1.AddItem List2.Text List2.RemoveItem List2.ListIndex End If End Sub ;【示例】兴趣爱好选取窗体。 Private Sub Command4_Click() For i = 0 To List2.ListCount - 1 List1.AddItem List2.List(i) Next List2.Clear End Sub Private Sub List1_DblClick() Command1_Click

文档评论(0)

xcs88858 + 关注
实名认证
文档贡献者

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

版权声明书
用户编号:8130065136000003

1亿VIP精品文档

相关文档