VB程序设计电子教案第2章：窗体程序设计.ppt

第2章窗体程序设计,窗体相关概念单窗体程序设计多窗体程序设计,本章学习目标,掌握窗体的基本属性、事件和方法的使用掌握多窗体程序设计的基本方法，尤其是启动窗体的设置，以及通过程序来控制窗体的加载、显示、隐藏、关闭等,窗体相关概念,窗体的属性,基本外观属性,其它基本属性,BackcolorBorderStylEnabledFontForeColorTop、LeftHeight、WidthMoveablePictureVisibleWindowState,窗体的事件,Load/UnLoadActivate/DeactivateInitializeClick/DblClickResize,窗体的方法,Cls；Show；Hide；Move；Refresh与画图、文本有关的方法：Circle、Line、Point、TextHeight、TextWidth等,单窗体程序设计基本方法,建立编辑工程；在窗体上放置所需控件；设置窗体的相关属性以及各控件的相关属性；编写相关控件对象的事件代码；保存工程并运行。,窗体事件的发生顺序,首先发生Initialize事件，可用该事件初始化窗体所需的数据；然后窗体被装载，触发Load事件；当窗体获得焦点成为活动对象时，Activate在GotFocus之前发生；运行期间如果窗体的大小发生改变则触发Resize事件，随后发生Paint事件；窗体失去焦点时，LostFocus事件在Deactivate事件之前发生，如果窗体从内存中删除，则触发Unload事件；窗体的其它一些事件，如鼠标事件、键盘事件根据用户触发而发生，与上述事件没有必然联系。,单窗体程序设计实例,【实例2-1】程序运行开始时，窗体为整个屏幕的80%，且居屏幕中央，内含有一背景图；以后每单击窗体一次，窗体便便开始缩小直到窗体的高或宽小于500Twip时便再增大到原样大小。,主要参考代码,PrivateSubForm_Load()Form1.Width=Screen.Width*0.8Form1.Height=Screen.Height*0.8Form1.Left=Screen.Width*0.1Form1.Top=Screen.Height*0.1EndSub,PrivateSubForm_Click()Form1.Width=Form1.Width-100Form1.Height=Form1.Height-100IfForm1.Width500OrForm1.Height500ThenForm1.Width=Screen.Width*0.8:Form1.Height=Screen.Height*0.8EndIfEndSub,【思考题2-1】请读者考虑如何实现窗体在屏幕上的移动，且移到一定位置后便不再移动。窗体在屏幕上的移动可通过两种方法实现：每次有规律地改变窗体的Left和Top属性，或者直接调用窗体的Move方法。,多窗体程序设计,与多窗体有关的操作添加窗体；切换窗体；删除窗体；设置启动窗体；,与多窗体有关的语句和方法,Load语句Show方法Unload语句Hide方法,多窗体程序设计实例,【实例2-2】编写一含有三个窗体（窗体名分别为form1,form2,form3）的应用程序，刚运行时，form3为默认启动窗体，且最大化，form2为最小化状态，form1为隐藏状态，单击form3中的命令按钮“显示form1”后即可显示窗体Form1，并关闭其余二个窗体。,参考代码,PrivateSubCommand1_Click()Form1.Show显示Form1UnloadForm2关闭Form2，即从内存中清除Form2UnloadForm3关闭Form3，即从内存中清除Form3EndSubPrivateSubForm_Load()Form1.Visible=False运行初始窗体Form1不可见Form2.WindowState=1窗体Form2为最小化状态Form3.WindowState=2窗体Form3为最大化状态Form2.Show显示窗体Form2EndSub,