第三章第二节.ppt

1、第四讲 窗体 (Forms ),4.1 窗体的主要属性 4.2 窗体的主要事件 4.3 窗体的主要方法,4.1 窗体的主要属性,窗体的属性可用两种方法来设置: 通过属性窗口直接设置； 通过程序代码设置。 注： 使用代码设置属性的格式： = ,4.1 窗体的主要属性,一. Name属性 (名称属性)* 1.类型: 标识符 (在运行时是只读的) 2.功能: 用于定义窗体名字,是程序代码中使用的对象名。 3.注意: Name(名称)属性不能在代码中进行修改。,二. Caption属性 (标题属性) 格式：Caption = String 1.类型: 字符型 Form1.caption=“我的窗体”

2、2.功能: 设定窗体标题栏中显示的文本。,4.1 窗体的主要属性,4.1 窗体的主要属性,三、BorderStyle(边框风格)属性 格式：BorderStyle= value value的有效取值为： (在运行时是只读的) 0：窗体无边框。 1：单线边框, 运行时不可改变大小。 2：双线边框, 运行时可改变大小。 3：双线边框, 运行时不可改变大小。 4：固定大小工具窗口，运行时不可改变窗体大小。 5：可变大小工具窗口，运行时可改变窗体大小。,4.1 窗体的主要属性,四. Backcolor属性*和Forecolor属性* 1. Backcolor(背景颜色) Forecolor(前景颜色)

3、:在窗体上输出文字的颜 色,4.1 窗体的主要属性,四. Backcolor属性*和Forecolor属性* 3. 颜色设定 . RGB函数 (1)格式: RGB(, 红、绿、蓝三色取值范围: 0255 (2) R Red(红) G Green(绿) B Blue(蓝) 红色:RGB(255,0,0)、绿色:RGB(0,255,0)、蓝色:RGB(0,0,255) 白色:RGB(255,255,255 ) 黑色:RGB(0,0,0) (3)例: Form1.backcolor = RGB(0,255,255),四. Backcolor属性*和Forecolor属性* . Qbcolor函数 (

4、1)格式: QBColor () “颜色值”取值范围:015, 共16种颜色。 QBColor 函数取值如下页表格所示： 如li4-2,4.1 窗体的主要属性,颜色属性举例li4-2,Private Sub Form_Click() Form1.Width = 5800 Form1.Height = 3000 Form1.Caption = 练习窗口 Form1.FontName = 黑体 Form1.FontSize = 28 Form1.BackColor = RGB(255, 255, 255) Form1.ForeColor = QBColor(12) End Sub,4.1 窗体的主

5、要属性,五.Height,Width(高度,宽度)属性* Left,Top(左边,顶边) 属性* 1.类型: 数值型 (在设计时不可用) 2.坐标单位: Twip (即1/20点，或1/1440英寸) 3.用途： 分别确定窗体的高度和宽度，确定窗体左上角的位置。,六.Enabled(允许属性)* 1.类型: 逻辑型 2.用途: 设定对象在运行时是否响应事件。 3.注意: 设为True，则运行时响应事件； 若为False，则运行时不响应任何事件。,4.1 窗体的主要属性,举例li4-4,Private Sub Command1_Click() Dim a#, b#, s# a = Val(Inp

6、utBox(“输入数据 a 的值”) text1.text = a b = Val(InputBox(“输入数据 b 的值”) text2.text = b s = a + b text3.text = s Command2.Enabled = True End Sub,加载前的界面,Private Sub Command2_Click() resp = MsgBox(确实要退出吗？, 292, 提示信息) If resp = vbYes Then End End Sub Private Sub Form_Load() Form1.Left = 1500 Form1.Top = 1000 La

7、bel1.ForeColor = RGB(255, 0, 0) Label2.ForeColor = QBColor(2) Form1.Height = 4600 Form1.Width = 5000 Command2.Enabled = False End Sub,加载后的界面,4.1 窗体的主要属性,七.Visible(可视属性)* 1.类型 :逻辑型 2.用途: 设定对象在运行时是否可见。 八.MaxButton(最大化)属性 MinButton(最小化) 属性 1.类型: 逻辑型 2.用途: 设定窗体是否显示最大化和最小化按钮。,九. WindowState(窗体显示状态)属性 格式：

8、 WindowState = value Value = 0, (缺省值)正常窗体。 Value = 1, 最小化方式显示窗体 (最小化为一个图标)。 Value = 2, 最大化方式显示窗体。,4.1 窗体的主要属性,4.1 窗体的主要属性,十. Font (文本显示方式)属性* 用途: Font属性本身就是VB的一个对象，它确定窗体上显示文本的字体、文字大小、字体样式、是否采用斜体、是否采用下划线、是否采用删除线等。 例：Form1.Fontsize=24 设置字体大小,4.1 窗体的主要属性,(一)在属性窗口中设置Font属性,4.1 窗体的主要属性,(二)在代码中设置 1.字体类型 F

9、ontName=“字体类型” 如：Form1.FontName = “黑体” 2.字体大小 Fontsize= 如：Form1.Fontsize = 20,4.1 窗体的主要属性,3.粗体 FontBold=True|False 注: 属性FontBold为True(1)时，表示粗体。 4. 斜体 FontItalic=True|False,返回,5.中划线(删除线) FontStrikethru=True|False 6.下划线 FontUnderline=True|False,4.1 窗体的主要属性,4.2 窗体的常用事件,一.Click事件 触发: 用鼠标单击某个对象 二.Dblclic

10、k事件 触发: 用鼠标双击某个对象 三.Load事件 触发: 把窗体装入内存时发生,通常用于启动时对属性、变量等的初始化。,事件举例li4-5,Private Sub Form_Load() Form1.Width = 5800 Form1.Height = 3000 Form1.Caption = 练习窗口 Form1.Font = 黑体 Form1.FontSize = 28 End Sub,4.2 窗体的常用事件,四.Activate事件 触发: 在load 事件之后,系统会自动产生Activate事件,使用Activate事件就可以在窗体中进行显示输出。,五. Unload事件 1.

11、触发: 当窗体从内存中卸载时发生. 2. 格式: Private sub Form_Unload(cancel As Integer) 其中参数cancel为整数,4.2 窗体的常用事件,取-1值: 阻止关闭窗体的过程； 取 0值: 继续关闭窗体的过程。,cancel 取非 0 值时，阻止关闭窗体。,事件举例li4-6,Private Sub Form_Unload(Cancel As Integer) Print 目前阻止关闭窗体! Cancel = -1 End Sub,六. QueryUnload事件 1. 触发: 当用户关闭窗体时,首先发生一个QueryUnload事件，然后发生Unl

12、oad事件。 2. 格式: Private Sub Form_QueryUnload(cancel As Integer, unloadmode As Integer) 其中参数cancel的意义与Unload事件过程的cancel的意义一样。,4.2 窗体的常用事件,事件举例li4-7,Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) Print you cant close me! Cancel = -1 End Sub,4.3 窗体的主要方法,一.Cls方法 1.格式: Cls 2.用途: 清除窗

13、体中由Print方法显示的内容 ,或图片框中显示 的图形或文字。,Cls,4.3 窗体的主要方法,二. Print方法 1.格式: 对象名.Print ,|; 2.用途: 输出数据、文本 (1)对象名：可是窗体,立即窗口,图片框和打印机 (2)表达式: 可以是数值或字符串表达式,可以是常量， 也可以是变量。 (3)分隔符: 逗号: 按标准格式输出； 分号或空格: 按紧凑格式输出。 (4)参数缺省时表示: 输出一个空行 如: Print,4.3 窗体的主要方法,二. Print方法 3.与Print方法有关的函数 (1)Tab函数 格式: Tab(n) 功能: 参数 n 用来表示表达式输出的起始

14、列数 （这里n 为列号）; 若省略参数 n，则Tab将输出点移到下一个标准 输出区的起点。 例： print “China”; tab(10); “Beijing”,4.3 窗体的主要方法,二. Print方法 3.与Print方法有关的函数 (2)Spc函数 格式 : Spc(n) 功能 : 必要的参数 n 是在显示或打印列表中的下一个表达式之前插入的空白数, 对输出进行定位。 例：Print spc(30); abc Print space(30);abc,(3)Format函数 格式：Format(，) 用途：可以使数值按“格式字符串”指定的格式输出。,窗体方法举例li4-9,Priva

15、te Sub Form_Click() Print Format(16834.7, #,#.#) Print Format(12612834.7259, #,#.#) Print Format(16834.7, #,#0.00) Print Format(16834.7, 000,000.00) Print Format(16834.7, $#,#.#) Print Format(16834.7, #,#.#) Print Format(0.1267, 0.00%); Print Format(0.126789, 0.00%); Print Format(16834.7, 0.00E+00); Print Format(0.0168347, 0.00E-00); Print Format(0.0168347, 0.0E-00); Print Format(0.0168347, 0.0000E-00); End Sub,4.3 窗体的主要方法,三.Move方法 1.格式： move , 2.用途： 移动窗体和控件,并可以改变其大小。 注: 四个参数均以Twip为单位; “宽度” 和 “高度” 表示对象的大小; “左边距”和“上边距”则表示与父对象的相对位置。,窗体方法举例li4-10,Private Sub Command1_Click() Form1.Print Tab(14