,第8章 窗 体,知识要点,学习任务,V,isual Basic,窗体的常用属性、事件和方法,使用窗体进行,Visual Basic,应用程序界面设计的方法,使用多个窗体进行,Visual Basic,应用程序界面设计的方法,多文档界面（,MDI）,窗体的相关知识,了解多文档界面（,MDI）,窗体的相关知识,理解如何在一个,Visual Basic,应用程序中使用多个窗体进行界面设计,掌握,Visual Basic,窗体的常用属性、事件和方法，以及使用窗体进行,Visual Basic,应用程序界面设计的方法,窗体是,Visual Basic,应用程序运行界面的重要组成部分，任何一个应用程序都至少有一个窗体，窗体本身也是一种对象。,标题栏,控制按钮,控制菜单,最小化按钮,最大化按钮,关闭按钮,边框,边角,窗体平面,8.1 窗体简介,窗体属性的设置方法,在窗体上单击鼠标右键，在弹出的菜单中单击“属性窗口”选项或单击窗体并按下,F4,键来激活“属性”窗口，在“属性”窗口中可以设置窗体的属性,在程序运行时由程序代码来实现窗体的属性设置,8.,2,窗体的属性（一）,窗体的常用属性(一）,Name,属性：,返回或设置在程序代码中用于标识窗体的名字，该属性在运行时不可见（语法：,object.Name,）,Appearance,属性：,返回或设置窗体或窗体上的控件的显示效果（语法：,object.Appearance=Value,）,Appearance,属性的设置值是：,0,窗体及窗体上的控件显示为平面效果,1,窗体及窗体上的控件显示为立体效果，为缺省值。,8.,2,窗体的属性（二）,窗体的常用属性（二）,AutoRedraw,属性：,返回或设置对象的自动重绘是否有效（语法：,object.AutoRedraw,=boolean,）,AutoRedraw,属性的设置值是：,True,使对象的自动重绘有效。此时对象显示到屏幕上,False,缺省值，使对象的自动重绘无效,BackColor,属性和,ForeColor,属性：,返回或设置对象的背景颜色或对象中显示的图片和文本的前景颜色,(语法：,object.BackColor,=color,或,object.ForeColor,=color,),常 数,值,对应颜色,vbBlack,0,x0,黑色,vbRed,0,xFF,红色,vbGreen,0,xFF00,绿色,vbYellow,0,xFFFF,黄色,vbBlue,0,xFF0000,蓝色,vbMagenta,0,xFF00FF,紫红色,vbCyan,0,xFFFF00,青色,vbWhite,0,xFFFFFF,白色,8.,2,窗体的属性（三）,窗体的常用属性（三）,BorderStyle,属性：,返回或设置对象的边框样式,（语法：,object.BorderStyle,=value,）,BorderStyle,属性的设置值是：,0,无。没有边框及与边框相关的元素,1,固定单边框,2,可调整的边框（缺省值）,3,固定对话框,4,固定工具窗口,5,可变尺寸工具窗口,Caption,属性：,设置显示在窗体的标题栏中的文本,（语法：,object.Caption=string,）,8.,2,窗体的属性（四）,窗体的常用属性（四）,ClipControls,属性：,返回或设置一个值，指定,Paint,事件中的图形方法的影响范围,（语法：,object.ClipControls,=boolean,）,ClipControls,属性的设置值是：,True,指定,Paint,事件中的图形方法绘制整个窗体,False,指定,Paint,事件中的图形方法只绘制窗体中新显露出的区域,ControlBox,属性：,返回或设置一个值，指示在程序运行时窗体中是否显示控制菜单框,（语法：,object.ControlBox,=boolean,）,ControlBox,属性的设置值是：,True,显示控制菜单框（缺省值）,False,不显示控制菜单框,8.,2,窗体的属性（五）,窗体的常用属性（五）,Enabled,属性：,返回或设置窗体是否能够对键盘或鼠标产生的事件做出反应（语法：,object.Enabled,=boolean,）,Enabled,属性的设置值是：,True,设置,object,对事件做出反应（缺省值）,False,设置,object,对事件不做反应,Font,属性：,返回一个决定在窗体中,显示的文本所使用的字,体,Font,对象,（语法：,object.Font,）,8.,2,窗体的属性（六）,窗体的常用属性（六）,在,Height、Width,属性：,返回或设置窗体的高度和宽度,（语法：,object.Height=number,和,object.Width=number,）,Icon,属性：,返回或设置程序运行时窗体处于最小化状态或在窗体的左上角看到窗体的图标。,（语法：,object.Icon,=LoadPicture,(,iconpath,),）,Left,和,Top,属性：,返回或设置窗体内部的左边或内侧顶边与它的容器的左边或顶边之间的距离,（语法：,object.Left=value,和,object.Top=value,）,【例 8.1】,编写程序代码：在窗体被加载时将窗体面积设置为屏幕大小的一半，并使窗体位于屏幕中央。,Private Sub Form_Load(),Width=Screen.Width*.5 ,设置窗体的宽度,Height=Screen.Height*.5 ,设置窗体的高度,Left=(Screen.Width-Width)/2 ,设置窗体在水平方向上居中,Top=(Screen.Height-Height)/2 ,设置窗体在垂直方向上居中,End Sub,8.,2,窗体的属性（七）,窗体的常用属性（七）,Moveable,属性：,返回或设置窗体的位置是否可以被移动,（语法：,object.Moveable=boolean,）,Moveable,属性的设置值是：,True,或,-1,窗体的位置可以被移动,False,或,0,窗体的位置不能被移动,MaxButton,、MinButton,属性：,返回一个值，确定窗体的“最大化”或“最小化”按钮是否有效,（语法：,object.MaxButton,和,object.MinButton,）,MaxButton,或,MinButton,属性的设置值是：,True,窗体的“最大化”或“最小化”按钮有效（缺省值）,False,窗体的“最大化”或“最小化”按钮无效,8.,2,窗体的属性（八）,窗体的常用属性（八）,Picture,属性：,返回或设置窗体中显示的图片,（语法：,object.Picture=picture,）,Picture,用于指定图片文件，设置如下：,None,代表没有图片（缺省值）,Bitmap、icon、metafile、GIF、JPEG,可以指定一个图片,【例】,Form1.Picture=,LoadPicture,(c:windowsclouds.bmp),StartUpPosition,属性：,返回或设置窗体首次出现时的显示位置,（语法：,object.=position,）,StartUpPosition,属性的设置值是：,0,手动指定取值，窗体的初次显示位置由,Left,和,Top,属性决定,1,所隶属的对象的中央,2,屏幕中央,3,窗口缺省（屏幕的左上角）,8.,2,窗体的属性（九,）,窗体的常用属性（九）,ScaleLeft,和,ScaleTop,属性：,返回或设置窗体的左边界的水平坐标或上边界的垂直坐标,（语法：,object.ScaleLeft,=value,和,object.ScaleTop,=value,),Visible,属性：,返回或设置窗体首次出现时的显示位置,（语法：,object.Visible,=boolean,）,Visible,属性的设置值是：,True,设置窗体是可见的（缺省值）,False,设置窗体是隐藏的,【例8.2】,当单击窗体时，相应窗体通过设置,Visible,属性被隐藏，并在屏幕上显示提示信息。按照提示信息单击“确定”按钮，该窗体通过设置,Visible,属性重新显示在屏幕上。,Private Sub Form_Click(),Visible=false ,通过设置,Visible,属性隐藏窗体,MsgBox,“,单击“确定”可以显示窗体。”显示提示信息,Visible=true ,通过设置,Visible,属性显示窗体,End Sub,8.,2,窗体的属性（十）,窗体的常用属性（十）,WindowState,属性：,返回或设置一个数值，用来指定窗体的可视状态,（语法：,object.WindowState,=value,),WindowState,属性的设置值是：,0,窗体以正常方式显示，为缺省取值,1,窗体缩到最小，显示为图标状态,2,窗体放大到最大尺寸,8.,2,窗体的属性（十一）,通过属性设计窗体的外观,与窗体外观有关的属性,Appearance,（,立体显示）,BackColor,（,背景颜色）,ForeColor,（,前景颜色）,BorderStyle,（,边框样式）,Caption,（,标题）、,Font,（,显示字体）,Height,（,高度）、,Width,（,宽度）,Left,（,左边距）、,Top,（,上边距）,ControlBox,（,控制按钮）,MaxButton,、,MinButton,（“,最大化”、,“,最小化”按钮）,WindowState,（,可视状态）,StartUpPosition,（,启始位置）,8.,2,窗体的属性（十二）,窗体外观设计实例,【例8.3】,建立一个窗体，并对其进行属性设置，使该窗体的外观符合,Windows,应用程序界面风格。,8.,2,窗体的属性（十三）,窗体外观设计实例操作步骤,创建窗体,设置窗体的,Caption,（,标题）属性为,“,窗体范例,”,设置窗体首次出现时的显示位置：设置,Left（,左边距）属性和,Top,（,上边距）属性分别为,4000,和,2500,设置窗体首次出现时的大小：设置,Height,（,高度）和,Width,（,宽度）属性分别为,7000,和,9300,设置窗体的,Appearance,（,立体显示）属性为,1,。,设置窗体的,BorderStyle,（,边框样式）属性的取值为,2,（,即可调整的边框）,设置窗体显示控制菜单框、“最大化”按钮和“最小化”按钮为可见：设置,ControlBox,（,控制按钮）属性的取值为,True,设置窗体的,MaxButton,（“,最大化”按钮）属性和,MinButton,（,“,最小化”按钮）属性均为,True,设置窗体的背景图案,Picture,属性为,“,C:WINDOWSCLOUDS.BMP,”,设置窗体的字体样式,Font,属性为,“,宋体,”，,字号为,“,小五,”,8.,3,窗体的事件（一）,编写窗体的事件过程代码,单击要编写事件过程的窗体,在“视图”菜单中选择“代码窗口”选项，或在“工程资源管理器”窗口中单击左上角的“查看代码”按钮，调出代码窗口,单击代码窗口标题条下面的“对象”下拉列表并选择相应窗体,单击“过程”下拉列表并选择相应的事件名称,编写窗体的事件过程代码,“对象”列表,“过程”列表,8.,3,窗体的事件（二）,窗体的常用事件过程（一）,Click,事件：,当用鼠标单击窗体的空白区域或窗体上的一个无效控件被触发（语法：,Private Sub Form_Click(),）,【例8.4】,编写一段程序代码实现以下功能：每次用鼠标单击窗体，该窗体的面积将会变大。,Private Sub Form_Click(),Print,窗体发生鼠标单击（,Click）,事件，窗体将变大,Form1.Height=Form1.Height+60,