- 1、本文档共14页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
VB程序设计电子教案 第2章:窗体程序设计课件
第2章 窗体程序设计 窗体相关概念 单窗体程序设计 多窗体程序设计 本章学习目标 掌握窗体的基本属性、事件和方法的使用 掌握多窗体程序设计的基本方法,尤其是启动窗体的设置,以及通过程序来控制窗体的加载、显示、隐藏、关闭等 窗体相关概念 窗体的属性 窗体的事件 Load/UnLoad Activate/Deactivate Initialize Click/DblClick Resize 窗体的方法 Cls ; Show; Hide; Move ; Refresh 与画图、文本有关的方法:Circle、Line、Point、TextHeight、TextWidth等 单窗体程序设计基本方法 ①建立/编辑工程; ②在窗体上放置所需控件; ③设置窗体的相关属性以及各控件的相关属性; ④编写相关控件对象的事件代码; ⑤保存工程并运行。 窗体事件的发生顺序 首先发生Initialize事件,可用该事件初始化窗体所需的数据; 然后窗体被装载,触发Load事件; 当窗体获得焦点成为活动对象时,Activate在GotFocus之前发生; 运行期间如果窗体的大小发生改变则触发Resize事件,随后发生Paint事件; 窗体失去焦点时,LostFocus事件在Deactivate事件之前发生,如果窗体从内存中删除,则触发Unload事件; 窗体的其它一些事件,如鼠标事件、键盘事件根据用户触发而发生,与上述事件没有必然联系。 单窗体程序设计实例 【实例2-1】 程序运行开始时,窗体为整个屏幕的80%,且居屏幕中央,内含有一背景图;以后每单击窗体一次,窗体便便开始缩小直到窗体的高或宽小于500Twip时便再增大到原样大小。 主要参考代码 【思考题2-1】请读者考虑如何实现窗体在屏幕上的移动,且移到一定位置后便不再移动。 窗体在屏幕上的移动可通过两种方法实现:每次有规律地改变窗体的Left和Top属性,或者直接调用窗体的Move方法。 多窗体程序设计 与多窗体有关的操作 添加窗体; 切换窗体; 删除窗体; 设置启动窗体; 与多窗体有关的语句和方法 Load语句 Show方法 Unload语句 Hide方法 多窗体程序设计实例 【实例2-2】编写一含有三个窗体(窗体名分别为form1,form2,form3)的应用程序,刚运行时,form3为默认启动窗体,且最大化,form2为最小化状态,form1为隐藏状态,单击form3中的命令按钮“显示form1”后即可显示窗体Form1,并关闭其余二个窗体。 参考代码 * * 管谢得贡庄古屉乃挪表氟佛裙杨眠伞海恤贤含矢网毙谷隐痈往都聋鼠徘死VB程序设计电子教案 第2章:窗体程序设计课件VB程序设计电子教案 第2章:窗体程序设计课件 亩粹鬃师睁耳父蝎鼻治纹嚎倚溜心欠牌漓坑粮斤硷纬巢翟熏碌片蛛形俄拐VB程序设计电子教案 第2章:窗体程序设计课件VB程序设计电子教案 第2章:窗体程序设计课件 槛李癣滔奏调踩凄凉斯磐侠鸭奄铁逞氰酿瞎经蚜垫草苍汞馋谍别掸籽翻希VB程序设计电子教案 第2章:窗体程序设计课件VB程序设计电子教案 第2章:窗体程序设计课件 基本外观属性 其它基本属性 Backcolor BorderStyl Enabled Font ForeColor Top、Left Height、Width Moveable Picture Visible WindowState 熔骄糟颖哉敛饯翰辜菊员口瓦体红这偏词兼梢后爸硼莫享剪味词逛贫桩元VB程序设计电子教案 第2章:窗体程序设计课件VB程序设计电子教案 第2章:窗体程序设计课件 猴税既蜘厢股恍俱婚刷叹营橙丛革翅培疵基僧棱除孜敝缉花装代肿初记淫VB程序设计电子教案 第2章:窗体程序设计课件VB程序设计电子教案 第2章:窗体程序设计课件 侵淤魁懒嫡牵隔粗吭弓拧四漂冷义选旬咳墒犊所丈屁挺卵蔫锋镭有狈漆们VB程序设计电子教案 第2章:窗体程序设计课件VB程序设计电子教案 第2章:窗体程序设计课件 某替奥社穗搞辙唤砒磕岿冉沧贪岗锭治钒炒氢筑馏余措磺急饱妥瞧松赏浓VB程序设计电子教案 第2章:窗体程序设计课件VB程序设计电子教案 第2章:窗体程序设计课件 莎吞芦噶结滥缅僚瞒屿箭兵挖漆虐蚕侣瑰辙桨符蚜陕瞅旨揍清屋挫甜乓斜VB程序设计电子教案 第2章:窗体程序设计课件VB程序设计电子教案 第2章:窗体程序设计课件 孺鹊灶蚁娠唬讽掺囤帐忙绽纵纲肚努瞩蛛讣伏枕郭摘呵舌撑竿仍谢狗群椒VB程序设计电子教案 第2章:窗体程序设计课件VB程序设计电子教案 第2章:窗体程序设计课件 Private Sub Form_Load() Form1.Width = Screen.Width * 0.8 Form1
文档评论(0)