第9章窗体与对话框设计.pptVIP

第九章 窗体与对话框设计 知识点 窗体的主要属性 窗体的常用事件 多重窗体 应用向导生成窗体 9.1窗体设计 窗体的主要属性 窗体的常用事件 窗体的主要属性 名称 Caption Height、Width、Top、Left Moveable Enable Visible Picture和Icon Borderstyle，Controlbox，Minbutton，Maxbutton 窗体的主要事件 Load, Unload Click, DblClick MouseMove MouseDown, MouseUp Resize KeyPress, KeyDown, KeyUp 1．Load, Unload Load 事件是在窗体被装入工作区时触发的事件。当应用程序启动时，自动执行该事件。 Private Sub Form_Load() …… End Sub Unload事件是在主要窗口被用户关闭时，结束整个程序运行所触发的事件。 Private Sub Form_Unload() End ‘ 强制程序结束，关闭窗口 End sub 2．click, DblClick鼠标的单击和双击 Private Sub Form_Click() Label1.Caption = 鼠标按了一下 End Sub Private Sub Form_Dblclick() MsgBox 再按一下鼠标 End Sub 3．MouseMove鼠标的移动 在窗体移动鼠标，就会触发此事件。 事件的语法： Mousemove(Button as integer , shift as integer, x as single, y as single) X,Y是鼠标当前的坐标位置。 Button：鼠标按键的状态。 Shift：表示键盘上“CTRL，ALT，SHIFT ”三个按键状态。 例．在窗体Form1中放置标签label,当按下鼠标左键时，标签的标题变为“鼠键左键按下”程序代码： Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button=1 and Shift =1 Then Label1.Caption = 按住了Shift键和鼠键左键 End If End Sub 3．Mousedown, Mouseup 语法如下： Private Sub Form_MouseDown (button As Integer, shift As Integer, x As Single, y As Single) 语句块 End Sub 当窗体大小改变时，维持窗体中各个控件的对应位置 例：要求当窗体变大或变小时，文本框随着变大或变小 Private Sub form_resize() Text1.left = 0 Text1.Top = 0 Text1.Width = Form1.ScaleWidth Text1.Height = Form1.ScaleHeight End Sub 5．Keypress,Keydown,Keyup Keypress的语法： Keypress(Keyascii as Integer) Keypress指的是在键盘按键时，Keypress可取得所按键字符ASCII码的值。 Keydown，Keyup 语法： Keydown(Keycode as integer, shift as integer) Keyup(Keycode as integer, shift as integer) Keycode表示在键盘上按键的位置。 说明 焦点 如果存在许多对象，鼠标按下的时候只有一个对象响应，即哪个控件响应，哪个控件拥有焦点。即，光标停在哪，焦点就在哪。 通过TAB键可改变焦点所在位置。 窗体的 KeyPreview属性值 当在具有多个控件的窗体上，按下键盘时，响应的不一定是窗体，哪个控件拥有焦点，哪个控件就响应。 如果将窗体的 KeyPreview属性值设为TRUE，那么键盘事件一定在窗体上引发。 练习 对窗体编写如下事件过程。程序运行后,在窗体上单击鼠标右键,则输出结果为( )。 Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Print AA; End Sub Private Sub Form_MouseUp(Button