学习课件三章

第3章常用控件与界面设计3.1创建窗体3.2常用控件3.3制作菜单3.4多窗体界面程序设计

3.5界面设计程序示例盐城工学院

VisualBasic程序设计3.1创建窗体

窗体（Form）是为了设计VB应用程序界面或对话框而提供的窗口，是包容用户界面或对话框所需的各种控件的“容器”。

1.

窗体的属性、方法与事件

窗体的属性定义了它的外观;窗体的方法定义了它的行为;窗体所能响应的事件定义了它与用户的交互；属性窗口分为4个部分：对象框、属性显示方式、属性列表、属性解释。激活属性窗口的方式：“视图”-“属性窗口”、F4、击“属性窗口”按钮、Ctrl+PgUp或Ctrl+PgDn VB为窗体规定了众多的属性、方法与事件。下面介绍窗体常用的属性、方法与事件。(1)

窗体的常用属性

1).Name：窗体名称。

窗体名称在程序代码中作为窗体对象的标识名。窗体名称可以缺省。窗体名称也可以自定义。窗体名称自定义的命名规则：必须以字母或汉字开头，可以包含数字和下划线,但不能包含空格或标点符号,窗体名（其他控件对象名同）长度不得超过40个字符。它是只读属性,只能在设计阶段设置,不能在运行期间改变。

2).Caption：窗体标题。窗体标题是出现在窗体标题栏的文本内容。窗体标题默认与窗体名称相同。标题也可以自定义，只要是字符即可，不受其他约束。3.1创建窗体

注意：窗体名称与窗体标题是有区别的（窗体名称作为一个窗体的标识在程序中被引用，而不是为了显示；窗体标题这是一个字符串，在窗体的标题上显示）

。

同样，使用“视图”菜单中的“调色板”命令也可以设置窗体等对象的前景色和背景色。

3).BackColor与ForeColor：窗体的背景色与前景色。颜色值用一个长整数表示。点击属性栏右边的，会弹出一个颜色设置组合框。(1)

窗体的常用属性3.1创建窗体

4).BorderStyle：边框样式用数值来表明窗体边框的风格。

它是只读属性，只能在设计阶段设置，不能在运行期间改变。说明：Font是窗体的一种属性，同时它又被看作一个对象

Font本身还具有Name,Size,Bold,Italic等子属性。5).Font：正文字体设置窗体上所显示的正文的字体、字号和字形等。点击字体属性栏右边的对话框按钮，弹出“字体对话框”（如图）。默认的字体为“宋体、常规、小五号”。(1)

窗体的常用属性3.1创建窗体

6).Left、Top、Height、Width：窗体的位置(由Left和Top属性决定)与大小(由Height和Width属性决定)

默认单位为特维（Twip）

7).Enabled：活动属性决定窗体能否被访问。8).Visible:可视属性。决定窗口是否可见9).Picture:用于设置窗体上显示的图片程序代码中设置的方法：对象名.Picture=LoadPicture(“盘符\路径”）(1)

窗体的常用属性3.1创建窗体

10).Controlbox(控制框)：设置窗口控制框的状态，True（默认）时，窗口左上角会显示一个控制框。如果把BorderStyle属性设置为“0-None”，则Controlbox属性不起作用（即使被设置为True），只有当BorderStyle属性值为1、2、3时Controlbox属性才起作用，它是只读属性。

11).Maxbutton(最大化按钮)、Minbutton(最小化按钮)

这两个属性用来显示窗口右上角的最大化、最小化按钮，Ture显示，False不显示。如果把BorderStyle属性设置为“0-None”，则这两个属性将被忽略（即使被设置为True），它是只读属性。(2)

窗体的方法窗体可调用多个方法。常用的方法有：

Hide：隐藏窗体。

Move：把窗体移到某个位置。

Print：显示文本或数据。

Show：显示窗体。Cls方法

格式：[对象.]Cls

功能：清除运行时在窗体或图形框中显示的文本或图形。

3.1创建窗体

(3)窗体的事件

窗体可以响应许多事件。常用的事件有：

Click：单击。

Dblclick：双击。

Load：装载。

Unload：卸载2.定制窗体属性方法一：在设计态，通过“属性”窗口为其设定各种属性值方法二：在程序代码中改变属性值（运行时改变）格式：Object.Property=Expression

即：对象名.属性名=表达式（属性值）提示：如果属性值是字符串，则用西文双引号括起来。3.1创建窗体

3.引用窗体的方法VB中的所谓“方法”可使“对象”执行一个动作或任务。格式：Object.Method或Object.Method[Arg1,Arg2···]即：对象名.方法名或对象名.方法名[参数1,参数···]例：b.隐藏窗体Form，在程序中加入代码：

Form.Hide

表示隐藏“Form”窗体[例3-1](1)装载语句

语句格式：LoadObject(2)卸载语句

语句格式：UnloadObject

或：UnloadMe(3)End语句

语句格式：End3.1创建窗体

4.窗体的装载、卸载、End语句注意：

Unload和End的区别。3.1创建窗体

5.Print方法格式：[对象名.]Print[表达式表][,|;]Print方法可应用于窗体、立即窗口、图片框及打印机等对象中显示文本字符串和表达式的值。说明：对象名—可以是窗体(Form1.Print)、立即窗口(Debug.Print)、图片框(Picture1.Print)、打印机(Printer.Print)，省略时默认为当前窗体。输出列表—需要显示的内容，可以是多项列表，各个项间用逗号或分号分隔。对于数值表达式，将输出表达式的值；对于字符串，则照原样输出。如果省略了“输出列表”，则输出一个空行。输出数据时，数值数据的前面有一个符号位（前导格），后面有一个空格（尾随格），而字符串前后都没有空格。

3.1创建窗体

Print方法可以有以下两种显示方式：

第一种显示方式是显示变量或表达式的值：Print方法具有计算和显示的双重功能，对于表达式，先计算出表达式的值，然后显示其结果。例如：

Print3+4,x,x+y‘如果x=7,y=9,则显示

7716Print"Shanghai"&"Evening",4=6'显示

ShanghaiEveningFalse3.1创建窗体

第二种显示方式是原样显示字符串的。例如：

x1=3:x2=4Print“x1+x2=”;x1+x2‘显示结果为：

x1+x2=7Print方法中，逗号和分号是显示其列表项的分隔符，也可以作为输出格式的控制，用逗号分隔称为标准（又称分区）格式，用分号分隔称为紧凑格式。

（1）标准格式输出

“标准格式”输出就是以14个字符位置为一个标准区段，把一个输出行分成若干个标准区段，逗号后面的表达式在下一个标准区段输出。按标准格式输出，数值的正负号各占一位。正号不显示，但仍占一位。例如：3.1创建窗体

PrivateSubForm_Click()Print"054321"Print"|.............|.............|.............|..............|.."Print9,-12,789,-254Print"Hello!","etoBeijing!","student"EndSub

如果字符串的长度超过了标准区段的长度，则自动后延，后面的字符串，依序后延。例13.1创建窗体

PrivateSubForm_Click()Print"054321"Print"|.............|.............|.............|..............|.."Print"Hello!","etoBeijing!":Font.Size=13Print"Hello!","etoBeijing!"EndSub在VisualBasic中，由于字体可以设置成不同大小，14个字符位置的标准区段的长度就不再是相同的了。例如：从图中可以看到：由于最后一行的字符串改变了大小，所以标准区段的长度也改变了。例23.1创建窗体

（2）紧凑格式输出“紧凑格式”输出就是输出时数字、符号占一位，数值项后空一字符位置，字符串后不空格。例如：PrivateSubForm_Click()Print"054321"Print"|.............|.............|.............|..............|.."Print9;-12;789;-254Print"aaa";"bbb";"ccc"Print"Hello!";"etoBeijing!";"student"EndSub例33.1创建窗体

（3）输出行控制一个Print方法输出一行信息，下一个Print方法将在下一行中输出，相当于每一个Print方法后有一个回车符。但是，如果Print方法行末端写了逗号或分号，那么输出结果就不换行；若是逗号，就按标准格式与下一个Print方法输出相连接；若是分号，就按紧凑格式与下一个Print方法输出相连接。例如：3.1创建窗体

PrivateSubForm_Click()Print"054321"Print"|.............|.............|.............|..............|.."Print9,-12,789,'行末端有逗号

Print33,66Print:Print'空推两行

Print"Hello!";"etoBeijing!";'行末端有分号Print"GoodEvening!"EndSub例4（4）与Print方法有关的函数为了使数据按照指定的格式输出，VisualBasic提供了几个与Print配合使用的函数，包括Tab、Spc、Space$、Cls等，这些函数可以与Print方法配合，但不能单独使用。①Tab函数

Tab函数的功能是把光标移到由参数n指定的位置，从这个位置开始输出信息。要输出的内容放在Tab函数的后面，并用分号隔开。格式为：Tab(n)其中：n为一整数或数值表达式，它是下一个输出位置的序号，表示在输出前把光标（打印头）移到该列。通常最左边的列号为１，如果当前的显示位置已经超过ｎ，则自动下移一行。例如：PrintTab(18);5000将在第18个字符位置开始输出数值5000。3.1创建窗体

②Spc函数在Print的输出中，用Spc函数可以跳过n个空格。它的格式为：Spc(n)

其中：参数n是一个数值表达式，其取值范围为0~32767的整数。Spc函数与输出项之间用分号隔开（不能用“+”）。3.1创建窗体

【例】题目要求同上例一样，但要求在Print方法中使用格式函数Spc(n)。[分析与解答]编写窗体代码如下：PrivateSubForm_Click()Print:PrintFont.Size=14Print"姓名";Spc(5);"学号";Spc(5);"语文";Spc(5);"数学";Spc(5);"英语"PrintPrint"张三";Spc(5);"0601001";Spc(7);"87";Spc(8);"89";Spc(9);"83"Print"李四";Spc(5);"0601022";Spc(7);"90";Spc(8);"68";Spc(9);"85"Print"王五";Spc(5);"0601019";Spc(7);"78";Spc(8);"90";Spc(9);"72"EndSub3.1创建窗体

例6③Space$()函数

Space$()函数也称空格函数，它的功能就是返回n个空格。(中间分隔符可以是+；)格式为：Space$(n)例如：打开“立即”窗口，在其中键入第一行内容“s$=”XXX“+SPACE(10)+”YYY“”后，按回车键，在键入“?s$”，按回车键（？代表Print），此时下一行立即显示了操作结果，可以看出：字符串“XXX”于“YYY”中间的10个空格就是Space$()函数的作用，如下图所示。3.1创建窗体

(4)格式输出函数

格式：

Format$(数值表达式，格式字符串)

功能：

按“格式字符串”指定的格式，以文本方式输出“数值表达式”的值。

说明：

“$”可有可无，按“格式字符串”指定的格式输出“数值表达式”的值；如果缺省“格式字符串”,则功能与Str$函数基本相同，唯一的差别是，当正数转换成字符串时，str$函数在字符串前面留有一个空格，而Format$函数则不留空格。3.1创建窗体

字符功能举例##号的个数表示显示区段的长度，数值靠左显示；如果数值位数大于区段长度，则照原样显示。数字，不在前面或后面补0PrintFormat$(123,“####”)123PrintFormat$(12345,“####”)1234500的功能与#相同，如果数值位数小于区段长度，不足的位补0。PrintFormat$(123,“0000.00”)0123.00PrintFormat$(12345,“0000.00”)12345.00格式说明字符3.1创建窗体

字符功能举例.显示小数点，与#或0结合使用，小数部分多余的数字按四舍五入处理PrintFormat$(1.2345,“00.00”)01.23PrintFormat$(1.2378,“##.##”)1.24%输出百分号，通常放在格式字