- 1、本文档共53页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 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
您可能关注的文档
最近下载
- 宣城市畜禽规模养殖场粪污资源化利用技术指导手册.doc VIP
- 部编版语文五年级上册第七单元大单元作业设计1.docx VIP
- 词汇表--阿尔及利亚高速公路法语词分析.doc
- 全新版大学英语综合教程第三册Unit 3PPT.ppt VIP
- 《神经根型颈椎病》课件 .ppt VIP
- 道路交通信息显示设备设置规范(GAT 993-2021).pdf VIP
- 蒸发水量3000Kgh三效降膜并流蒸发系统设计.doc
- 【专项复习】小升初英语课件-核心考点+题型专项突破:专题 02 语音(48个音标)全国通用版.pptx VIP
- 封闭式母线安装施工图集.pdf VIP
- 营销部门2025客户画像分析与精准投放策略复盘PPT方案.pptx VIP
文档评论(0)