VB程序设计案例教程课件.ppt

  1. 1、本文档共319页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 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、窗体的命名方式。案

文档评论(0)

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

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

1亿VIP精品文档

相关文档