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

第2章 窗体程序设计,窗体相关概念 单窗体程序设计 多窗体程序设计,本章学习目标,掌握窗体的基本属性、事件和方法的使用 掌握多窗体程序设计的基本方法，尤其是启动窗体的设置，以及通过程序来控制窗体的加载、显示、隐藏、关闭等,窗体相关概念,窗体的属性,基本外观属性,其它基本属性,Backcolor BorderStyl Enabled Font ForeColor Top、Left Height、Width Moveable Picture Visible WindowState,窗体的事件,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时便再增大到原样大小。,主要参考代码,Private Sub Form_Load() Form1.Width = Screen.Width * 0.8 Form1.Height = Screen.Height * 0.8 Form1.Left = Screen.Width * 0.1 Form1.Top = Screen.Height * 0.1 End Sub,Private Sub Form_Click() Form1.Width = Form1.Width - 100 Form1.Height = Form1.Height - 100 If Form1.Width 500 Or Form1.Height 500 Then Form1.Width = Screen.Width * 0.8: Form1.Height = Screen.Height * 0.8 End If End Sub,【思考题2-1】请读者考虑如何实现窗体在屏幕上的移动，且移到一定位置后便不再移动。 窗体在屏幕上的移动可通过两种方法实现：每次有规律地改变窗体的Left和Top属性，或者直接调用窗体的Move方法。,多窗体程序设计,与多窗体有关的操作 添加窗体； 切换窗体； 删除窗体； 设置启动窗体；,与多窗体有关的语句和方法,Load语句 Show方法 Unload语句 Hide方法,多窗体程序设计实例,【实例2-2】编写一含有三个窗体（窗体名分别为form1,form2,form3）的应用程序，刚运行时，form3为默认启动窗体，且最大化，form2为最小化状态，form1为隐藏状态，单击form3中的命令按钮“显示form1”后即可显示窗体Form1，并关闭其余二个窗体。,参考代码,Private Sub Command1_Click() Form1.Show 显示Form1 Unload Form2 关闭Form2，即从内存中清除Form2 Unload Form3 关闭Form3，即从内存中清除Form3 End Sub Private Sub Form_Load() Form1.Visible = False 运行初始窗体Form1不可见 Form2.Win