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