- 8
- 0
- 约1.28万字
- 约 50页
- 2016-10-26 发布于广东
- 举报
第4章 常用控件 设计一般用户界面 本章学习目标: 进行常用控件的属性设置与使用 掌握常用控件的常用事件、方法的使用 掌握常用的鼠标、键盘事件的含义和使用方法 本章能力目标: 根据不同需求设置控件属性的能力 编写常用事件过程程序代码的能力 设计一般用户界面的能力 4.1 如何实现用户界面 任务描述:如图4-1所示,建立一个工程,窗体上有提示输入信息内容的标签、有用于填写信息内容的文本框、有简化输入工作量进行性别选择的组合框、还有可以将读者信息进行保存或重新填写甚至放弃填写的命令按钮,等等。程序运行后,要求单击添加按钮时将文本框、组合框中的内容添加到列框,单击删除按钮时删除列表框中选中的内容,清空全部删除列表框的内容。看来仅仅具备窗体知识是不能完成读者信息录入的,那么,怎样设计实现这样的用户界面呢?我们本章就来学习这方面的知识. 4.2 命令按钮 1. 什么是命令按钮 使应用程序接受我们的命令、让应用程序根据我们的指令去启动、中断或结束某个功能的运行呢,一般用于完成这个任务的就是命令按钮——CommandButton控件。 4.2 命令按钮 2. 命令按钮的作用是什么 命令按钮(CommandButton)的主要作用是接受用户输入的命令、激发某些事件。输入命令的方式有以下三种:①鼠标单击该按钮;②按Tab键使焦点跳转到该按钮,再按回车键;③快捷键(Alt+有下划线的字母)。 当用户选中命令按钮时,应执行相应的操作。所以要求在设计时,不仅要设置命令按钮的标题、样式、外形等静态属性,还要根据需求设计相应的事件过程。 4.2 命令按钮 3.怎样使用命令按钮 4.实现命令按钮功能的步骤 (1) 新建工程,添加窗体Form1。 (2) 在窗体Form1中添加2个命令按钮:Command1和Command2,添加的步骤是: ① 单击工具箱中的命令按钮图标(该图标将反相显示); ② 把鼠标指针移到窗体上,此时鼠标指针变为“+”号; ③ 把“+”号移到窗体的适当位置,按下鼠标左键,在窗体上画出适当大小的矩形框,矩形框中将显示此命令按钮的默认标题(Caption)“Command1”,其默认名称也为“Command1”。 添加第2个命令按钮Command2的步骤与上述相同。 (3) 设置命令按钮Command1和Command2的属性值。 4.2 命令按钮 ④ 编写事件过程代码。 根据任务要求,是在单击“测试”按钮时执行相应的功能,所以应该编写“测试”按钮的单击(Click)事件过程代码。 Private Sub Cmdtest_Click() Answer = Msgbox(确定, 1) 使用消息框向用户传送消息并等待用户选择 If Answer = vbOK Then 当用户选择消息框”确定”按钮时 Cmddisplay.Visible = False 隐藏“显示”按钮(CmdDisplay) Else End 否则退出程序运行 End If End Sub ⑤ 保存程序,调试运行。 4.2 命令按钮 5.相关知识点归纳 (1)在窗体中添加控件的方法 在窗体中添加其他控件的方法步骤与命令按钮相同。 (2)命令按钮的属性 命令按钮的基本属性有:Name、Height、Width、Top、Left、Enabled、Visible、Font等,与窗体相应属性的使用方法相同。 命令按钮的常用属性有如下几个: ● Caption: 标题属性——命令按钮显示的内容,可在某字母前加““设置快捷键。例如:Ok,显示Ok ● Default:确认属性(逻辑值),设置为True时,按Enter键相当于用鼠标单击该按钮。 4.2 命令按钮 ● Cancel:取消功能属性(逻辑值),当设置为True时,程序运行时按Esc键与单击此命令按钮的效果相同。 ● Value:检查命令按钮是否按下(逻辑值)。该属性在设计时无效。 ● Picture:命令按钮可显示图片文件(.bmp和.Ico),只有当Style属性值设为1时有效。 ● Style:确定命令按钮显示的形式。 0 — 只能显示文字 1 — 文字、图形均可 。 ToolTipText:设置工具提示,和Picture结合使用。 4.2 命令按钮 (3)命令按钮的事件 ● 单击、双击事件: Click;DblClick ● 鼠标事件:MouseDown;MouseMove;MouseUp 4.3 标签 1. 什么是标签 我们要将读者的相关信息输入到系统中去,就必须清楚每一个文本框中应该填写什么内容,也就是说需要
您可能关注的文档
- 新UG NX 5.0应用与实例教程 教学课件 周玮 第2章.ppt
- 新UG NX 5.0应用与实例教程 教学课件 周玮 第3章.ppt
- 新UG NX 5.0应用与实例教程 教学课件 周玮 第4章.ppt
- 新UG NX 5.0应用与实例教程 教学课件 周玮 第5章.ppt
- 新UG NX 5.0应用与实例教程 教学课件 周玮 第6章.ppt
- 新UG NX 5.0应用与实例教程 教学课件 周玮 第7章.ppt
- 新UG NX 5.0应用与实例教程 教学课件 周玮 第8章.ppt
- 新UG NX 5.0应用与实例教程 教学课件 周玮 第9章.ppt
- 新UG NX 5中文版基础教程 教学课件 关振宇1 第1章 UG NX 5概述和基本操作.ppt
- 新UG NX 5中文版基础教程 教学课件 关振宇1 第2章 曲线功能.ppt
- 2026年预防为主,生命至上安全培训课件.pptx
- 2026年三级安全教育.pptx
- 2026年检测业务安全培训.pptx
- 2026年消防动火培训.pptx
- 2026年重大事故隐患专项排查整治行动清单.pdf
- 2026年健康义普急救.pptx
- 2025—2026学年度四川省广元市苍溪县九年级上学期期末考试历史试题(含答案).docx
- 2025—2026学年度四川省泸州市合江县马街中学校九年级上学期期末历史试题(含答案)(九上_九下第二单元).docx
- 2025—2026学年度云南省曲靖市宣威市民族中学等校联考九年级上学期期末模拟历史试题(含答案).docx
- 2025-2026学年科普版七年级下册英语Unit7 Being a Smart Shopper素养测评卷(含答案).docx
最近下载
- 2026年春期人教版四年级下册数学全册教案(核心素养教案)(全册共243页)(2).pdf VIP
- 《爱尔纳·突击》剧本.docx VIP
- 酒吧劳动合同(标准版).docx VIP
- 《乡土中国》读后感.docx VIP
- 2026年中考初中语文文言文每日一练习题(含答案).pdf
- 零冷水循环水管安装图.docx VIP
- 江西省部分高中学校2024—2025学年第二学期期中统一检测高一英语试卷及答案.docx VIP
- 2025-2026学年人教版(2024)初中生物八年级上册(全册)教学设计(附目录).docx VIP
- 2026年江西生物科技职业学院单招职业技能考试题库附答案详解(综合卷).docx VIP
- 2025-2026学年人教版(2024)初中生物八年级上册全册(教案含反思).docx VIP
原创力文档

文档评论(0)