- 1、本文档共319页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
课堂小结1、标签框的常用属性、方法、事件。2、文本框的常用属性、方法、事件。3、命令按钮的常用属性、方法、事件。课后任务完成思考练习十中与标签框、文本框及命令按钮相关的练习。第四章窗体和常用控件第三节图像框和图片框《VisualBasic》案例导入——交通信号灯【设计要求】程序运行后,单击“改变信号灯”,可以依次改变信号灯的颜色。任务完成【代码编写】PrivateSubCommand4_Click()Form1.Left=Form1.Left+100EndSubPrivateSubCommand5_Click()Form1.Width=Form1.Width+100Form1.Height=Form1.Height+100EndSubPrivateSubCommand6_Click()Form1.Width=Form1.Width-100Form1.Height=Form1.Height-100EndSub案例导入二——多窗体操作【设计要求】程序运行后,为窗体的背景添加一张图片,图片的位置是:D:\案例28\yx.gif,分别单击“追踪鼠标”、“追踪按键”按钮,当前窗体隐藏,并弹出另外两个窗体,分别显示鼠标的当前位置及按键信息。关闭“追踪鼠标”窗体或双击“追踪按键”窗体,当前窗体关闭,并显示原来的窗体。任务分析【任务一】设计用户界面,添加两个窗体、两个命令按钮。【任务二】修改对象属性,把窗体和命令按钮的属性进行修改。【任务三】打开代码窗口,编写事件代码。【任务四】调试运行程序。【任务五】保存程序。知识讲解【知识点一】窗体的添加和启动1、添加窗体“工程”——“添加窗体”,可以在工程中加入一个新窗体。2、设置启动窗体“工程”——“工程属性”,可以设置启动窗体,默认第一个窗体为启动窗体。3、Me:代表程序代码所在的窗体。4、LoadPicture(图片的完整路径):是一个函数,用于装载指定的图片作为窗体的背景图片,图片文件一定要用双引号引起来。若省略图片文件,则是清除背景图片。知识讲解【知识点二】多窗体常用方法1、Show方法格式:[窗体名称.]Show功能:用来显示一个窗体,兼有装入和显示窗体的双重功能。2、Hide方法格式:[窗体名称.]Hide功能:用来隐藏窗体,但窗体仍在内存中。【知识点三】多窗体常用语句1、Load?语句?格式:Load窗体名称功能:把一个窗体装入内存。2、Unload语句格式:Unload窗体名称功能:清除内存中指定的窗体。任务完成【属性设置】追踪键盘CaptionCommand2命令按钮2追踪鼠标CaptionCommand1命令按钮1追踪键盘CaptionForm3窗体3追踪鼠标CaptionForm2窗体2多窗体操作CaptionForm1窗体1属性值属性名称对象任务完成【代码编写】Rem窗体1的代码PrivateSubForm_Load()Form1.Picture=LoadPicture(D:\案例28\yx.gif)EndSubPrivateSubCommand1_Click()Form1.HideForm2.ShowEndSubPrivateSubCommand2_Click()Form1.HideForm3.ShowEndSub任务完成【代码编写】Rem窗体2的代码PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Me.ClsPrintPrint鼠标当前的坐标是:;X;,;YEndSubPrivateSubForm_Unload(CancelAsInteger)Form1.ShowForm2.HideEndSub任务完成【代码编写】Rem窗体3的代码PrivateSubForm_DblClick()Form1.ShowForm3.HideEndSubPrivateSubForm_KeyPress(KeyAsciiAsInteger)Me.ClsPrintPrint键盘上的;Chr(KeyAscii);键被按下EndSub知识拓展【拓展】1、上网搜索与窗体有关的操作。2、窗体的命名方式。案
您可能关注的文档
- sungard系统介绍课件.ppt
- SMED讲义课件课件.ppt
- web安全课件课件.ppt
- wincc课件-第7章课件.ppt
- wincc课件-第5章课件.ppt
- wincc课件-第4章课件.ppt
- wincc课件-第6章课件.ppt
- 山东省泰安市泰山中学2022-2023学年高一上学期期末数学试卷(解析).docx
- 《咬文嚼字》名师课件.ppt
- 现代中国的政治制度——2022年高中历史备考易错题通关(解析版).doc
- 解密04 中外散文阅读 (讲义)-【高频考点解密】D.docx
- 优质教案:11.2 简谐运动的描述.doc
- 专题一 2 力与直线运动 导学案.docx
- Module 1 Unit 3(分层作业本)-【教与学_学导练】2024-2025学年八年级上册英语同步课件PPT(外研版)_47414559.pptx
- Unit+5+Drinks+and+fruits+Lesson+1++(课件)-2024-2025学年版人教精通版(三起)(2024)英语三年级上册+.pptx
- 专题02 匀变速直线运动(考点串讲)-2024-2025学年高一物理上学期期中考点大串讲(沪科版2020) .pptx
- Unit+1+(复习课件)-2024-2025学年四年级英语上学期期中复习讲练测(译林版三起).pptx
- 4.1尊重他人(课件)-2024年秋八年级道德与法治上册高效课堂优质课件(统编版).pptx
- 《石头记》名师课件1.ppt
- 《我很重要》第二课时课件.ppt
最近下载
- 医院陪护的管理PPT.pptx
- 江西省南昌市2024-2025学年高三上学期9月摸底测试历史试题(解析版).docx VIP
- Module 5 Unit 2 I can speak French(课件)-外研版(三起)英语六年级上册.pptx VIP
- 部编版五年级道德与法治上册第3课《主动拒绝烟酒与毒品》第一课时教学设计说课稿.docx VIP
- 2篇某县“八五”普法总结中期工作汇报自查报告2023-2024.docx VIP
- 华东师大初中八年级数学上册全册完整教案.docx
- 哈希HACH-SC4500数字型通用控制器用户手册-操作说明书.pdf
- 《管理学—原理与实务》15习题集及答案.doc
- 部编版语文四年级上册第2单元习作《我的家人》教案.doc VIP
- 网课章节答案《大学生创新基础》超星尔雅答案2023.pdf
文档评论(0)