VB语言第2章教案(上2).ppt

2019/11/25,2.2窗体窗体是VisualBasic应用程序运行界面的重要组成部分，任何一个应用程序都至少有一个窗体，窗体本身也是一种对象。,2019/11/25,2.2窗体,窗体的常用属性(一）Name属性：返回或设置在程序代码中用于标识窗体的名字，该属性在运行时不可见（语法：object.Name=string）新建工程时，窗体的名称缺省为Form1；添加第二个窗体，其名称缺省为Form2，依次类推。Caption属性设置窗体的标题内容。标题内容用来概括说明该窗体。object.Caption=string）Appearance属性：返回或设置窗体或窗体上的控件的显示效果（语法：object.Appearance=Value）Appearance属性的设置值是：0窗体及窗体上的控件显示为平面效果1窗体及窗体上的控件显示为立体效果，为缺省值。,2019/11/25,窗体的常用属性（二）BackColor属性和ForeColor属性：返回或设置对象(窗体）的背景颜色或对象中显示的图片和文本的前景颜色(语法：Form1.BackColor=vbBlack或object.ForeColor=vbRed)属性值：,2019/11/25,窗体的常用属性（三）BorderStyle属性：返回或设置对象的边框样式（语法：object.BorderStyle=value）BorderStyle属性的设置值是：0无。没有边框及与边框相关的元素1固定单边框2可调整的边框（缺省值）3固定对话框4固定工具窗口5可变尺寸工具窗口,2019/11/25,窗体的常用属性（四）Moveable属性：返回或设置窗体的位置是否可以被移动（语法：object.Moveable=boolean）Moveable属性的设置值是：True或-1窗体的位置可以被移动False或0窗体的位置不能被移动（注意和BorderStyle属性的区别）MaxButton、MinButton属性：返回一个值，确定窗体的“最大化”或“最小化”按钮是否有效（语法：object.MaxButton和object.MinButton）MaxButton或MinButton属性的设置值是：True窗体的“最大化”或“最小化”按钮有效（缺省值）False窗体的“最大化”或“最小化”按钮无效,2019/11/25,窗体的常用属性（五）Enabled属性：返回或设置窗体是否能够对键盘或鼠标产生的事件做出反应（语法：object.Enabled=boolean）Enabled属性的设置值是：True设置object对事件做出反应（缺省值）False设置object对事件不做反应Font属性：设定在窗体中显示的文本所使用的字体（语法：object.Font）,2019/11/25,窗体的常用属性（六）在Height、Width属性：返回或设置窗体的高度和宽度（语法：object.Height=number和object.Width=number）Left和Top属性：确定窗体的左上角在屏幕上的横、纵坐标（语法：object.Left=value和object.Top=value）scalemode属性VB提供了默认的坐标系统(twip)。窗体左上角为坐标原点，上边框为坐标横轴，左边框为坐标纵轴，坐标单位为缇（twip），1twip=1/20像素点=1/1440英寸=1/567厘米。建议使用scalemode为pixel（像素点）的坐标模式。,2019/11/25,窗体的常用属性（七）StartUpPosition属性：返回或设置窗体首次出现时的显示位置（语法：object.=position）StartUpPosition属性的设置值是：0手动指定取值，窗体的初次显示位置由Left和Top属性决定（默认值）1所隶属的对象的中央2屏幕中央3窗口缺省（屏幕的左上角）Picture属性：返回或设置窗体中显示的图片（语法：object.Picture=picture）Picture用于指定图片文件，设置如下：None代表没有图片（缺省值）Bitmap、icon、metafile、GIF、JPEG可以指定一个图片【例】Form1.Picture=LoadPicture(c:windowsclouds.bmp),2019/11/25,窗体的常用属性（八）Visible属性：返回或设置窗体是否显示（语法：object.Visible=boolean）Visible属性的设置值是：True设置窗体是可见的（缺省值）False设置窗体是隐藏的WindowState属性：用来指定窗体的可视状态（语法：object.WindowState=value)WindowState属性的设置值是：0窗体以正常方式显示，为缺省取值1窗体缩到最小，显示为图标状态2窗体放大到最大尺寸,2019/11/25,其它窗体属性,AutoRedraw属性：返回或设置对象的自动重绘是否有效（语法：object.AutoRedraw=boolean）AutoRedraw属性的设置值是：True使对象的自动重绘有效。此时对象显示到屏幕上False缺省值，使对象的自动重绘无效Icon属性：返回或设置程序运行时窗体处于最小化状态或在窗体的左上角看到窗体的图标。（语法：object.Icon=LoadPicture(iconpath)）,2019/11/25,2.2窗体的属性,窗体外观设计实例【例】建立一个窗体，并对其进行属性设置，使该窗体的外观符合Windows应用程序界面风格。,2019/11/25,窗体外观设计实例操作步骤创建窗体设置窗体的Caption（标题）属性为“窗体范例”设置窗体首次出现时的显示位置：设置Left（左边距）属性和Top（上边距）属性分别为150和100设置窗体首次出现时的大小：设置Height（高度）和Width（宽度）属性分别为300和200设置窗体的Appearance（立体显示）属性为1。设置窗体的BorderStyle（边框样式）属性的取值为2（即可调整的边框）设置窗体显示控制菜单框、“最大化”按钮和“最小化”按钮为可见：设置ControlBox（控制按钮）属性的取值为True设置窗体的MaxButton（“最大化”按钮）属性和MinButton（“最小化”按钮）属性均为True设置窗体的背景图案Picture属性为“C:WINDOWSCLOUDS.BMP”设置窗体的字体样式Font属性为“宋体”，字号为“小五”,2019/11/25,2.3窗体的事件,编写窗体的事件过程代码单击要编写事件过程的窗体在“视图”菜单中选择“代码窗口”选项，或在“工程资源管理器”窗口中单击左上角的“查看代码”按钮，调出代码窗口单击代码窗口标题条下面的“对象”下拉列表并选择相应窗体单击“过程”下拉列表并选择相应的事件名称编写窗体的事件过程代码（按照事件驱动机制编写程序）,2019/11/25,窗体的常用事件过程（一）Click事件：当用鼠标单击窗体的空白区域或窗体上的一个无效控件被触发（语法：PrivateSubForm_Click()）DblClick事件：当用鼠标双击窗体的空白区域或窗体上的一个无效控件时被触发（语法：PrivateSubForm_DblClick()）,2019/11/25,窗体的常用事件过程（二）Load事件：当窗体被装载时被触发（语法：PrivateSubForm_Load()）QueryUnload事件：当窗体将要关闭时被触发（语法：PrivateSubForm_QueryUnload(cancelAsInteger,unloadmodeAsInteger)）Unload事件：当窗体从屏幕上删除时被触发（语法：PrivateSubForm_Unload(cancelAsInteger)）,2019/11/25,【例】编写一段程序代码实现以下功能：程序加载窗体之前出现一个对话框，启动之后每次用鼠标单击窗体，该窗体的面积将会变大。双击鼠标时窗体的背景色被改变。关闭窗体时也出现一个对话框。PrivateSubForm_Load()MsgBox程序正在启动EndSubPrivateSubForm_Click()Form1.Height=Form1.Height+200Form1.Width=Form1.Width+250EndSubPrivateSubForm_DblClick()Form1.BackColor=vbRedEndSubPrivateSubForm_Unload(CancelAsInteger)MsgBox“该窗体即将被关闭Cancel=1等于0和1的区别EndSub,2019/11/25,窗体的常用事件过程（三）MouseMove事件：当鼠标移动时被触发语法：PrivateSubForm_MouseMove（buttonAsInteger,shiftAsInteger,xAsSingle,yAsSingle）MouseDown和MouseUp事件：当按下或松开鼠标按钮时被触发语法：PrivateSubForm_MouseDown(buttonAsInteger,shiftAsInteger,xAsSingle,yAsSingle)Form_KeyPress事件PrivateSubForm_KeyPress(KeyAsciiAsInteger),2019/11/25,2.4窗体的方法,窗体的常用方法Print方法格式：对象名.Print表达式列表功能：在对象上输出表达式的值。说明：（1）对象名：可以是Form（窗体）、Debug（立即窗口）、Picture（图片框）、Printer（打印机）。省略此项，表示在当前窗体上输出。2）表达式列表：是一个或多个表达式，若为多个表达式，则各表达式之间用“，”或“；”隔开。省略此项，则输出一空行。Cls方法格式：对象名.Cls功能：Cls方法清除Print方法显示的文本或在图片框中显示的图形，并把输出位置移到对象的左上角。,2019/11/25,窗体的其它常用方法Load语句：将窗体加载到内存中（语法：Loadobject）Show方法：用于窗体的显示（语法：object.Show）Hide方法：用于隐藏窗体（语法：object.Hide）Unload语句：用于从内存中卸载窗体（语法：Unloadobject）Move方法：用于移动窗体（语法：object.Moveleft,top,width,height）Refresh方法：用于对一个窗体进行全部重绘（语法：object.Refresh）SetFocus方法：用于使窗体获得焦点（语法：object.SetFocus）PopupMenu方法：在窗体上的指定位置或鼠标当前位置显示弹出式菜单（语法：object.PopupMenumenuname,flags,x,y,boldcommand）,2019/11/25,窗体的常用事件方法（四）【例】编写一段程序代码实现以下功能：，当鼠标在窗体移动时，在窗体显示鼠标的位置PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Me.ClsPrintPrint鼠标当前位置为;X;,;Y在窗体上显示鼠标位置EndSub,2019/11/25,窗体的常用事件方法【例】编写一段程序代码实现以下功能：每次用鼠标单击窗体，如果按下的是左键则该窗体的位置将会向左移动，如果按下的是右键则清