《《Visual Basic语言程序设计教程（第二版）》-程胜利-电子教案 第3章 窗体》由会员分享，可在线阅读，更多相关《《Visual Basic语言程序设计教程（第二版）》-程胜利-电子教案 第3章 窗体（30页珍藏版）》请在金锄头文库上搜索。
1、第3章 窗 体,本章的学习要点 窗体的结构 窗体的属性、事件、方法 多窗体 MDI窗体,窗体的结构与Windows下的窗口十分类似，在程序运行前，即设计阶段，称为窗体；程序运行后也可以称为窗口。,3.1 窗体的结构,窗体名. Caption=字符串,窗体的属性 Name：设置窗体的名称。 所有对象都具有该属性； 在同一范围内不允许该属性值相同； 该属性只能通过属性窗口设置，在代码窗口中不能改变。 Caption：设置窗体标题栏上显示的内容。 在代码窗口修改该属性值的语法格式为： 注意Caption属性与Name属性的区别！,3.2 窗体的三要素,Name Caption,Command1.Ca
2、ption=“确定“,对象名.属性名=属性值 Sub 对象名_事件名() 对象名.方法 (参数),窗体名.AutoRedraw=True | False,窗体的属性 AutoRedraw：设置窗体被遮盖后是否要自动重绘窗体上的内容。语法格式为： BackColor、ForeColor：返回或设置窗体的背景颜色和前景颜色。 属性值是一个16进制的常数；通常在编写代码时，常用Qbcolor或RGB函数为其设置颜色。,3.2 窗体的三要素,Form1.BackColor = &HFF0000 低字节到高字节依次表示红、绿和蓝的值 Form1.BackColor = RGB(255, 0, 0) Fo
3、rm1.ForeColor = vbRed,RGB颜色函数讲解,蓝,红,绿,256等份,256等份,256等份,Form1.BackColor = RGB(255, 13, 222),窗体的属性 BorderStyle ：设置窗体的边框样式。语法格式：,3.2 窗体的三要素,窗体名.BorderStyle=0 | 1 | 2 | 3 | 4 | 5,注意：该属性只能在属性窗口中设置,窗体的属性 Enabled ：设置窗体是否被响应。语法格式： 当该属性值为True(默认值)时表示窗体有效，能响应用户或系统事件；为False时表示窗体无效，不能响应，并且窗体上的所以控件都无效。,3.2 窗体的三
4、要素,窗体名. Enabled=True | False,窗体的属性 Font系列字体属性：设置窗体上文本的字体、字号、字形等样式。,3.2 窗体的三要素,窗体的属性 Height、Width：分别决定窗体大小的高度和宽度。 Top、Left：表示窗体到屏幕上边框和左边框的距离。,3.2 窗体的三要素,Top,Height,Left,Width,原点(0,0),x,y,窗体的属性 ControlBox：取值为True或False，表示窗体左上角是否有控制菜单。 Icon：返回或设置窗体左上角显示的图标或最小化时显示的图标，通常为.ICO格式的图标文件，仅当ControlBox属性值取True
5、该属性才生效。 MinButton 、MaxButton：设置窗体最小、最大化按钮是否有效。语法格式：,3.2 窗体的三要素,窗体名. MinButton =True | False 窗体名. MaxButton=True | False,窗体的属性 Picture：设置窗体的背景图片。语法格式： Visible：设置窗体在执行时是否可见。语法格式：,3.2 窗体的三要素,窗体名. Picture=LoadPicture (“图片文件名“),窗体名. Visible=True | False,窗体的事件 不同的对象对应不同事件的发生，VB中窗体有很多事件。在一个窗体的代码窗口中列出了所有窗体事
6、件。,3.2 窗体的三要素,窗体的事件 Activate：当窗体变为激活的当前窗口时，引发本事件。 Click：当用户单击窗体时触发本事件。 DblClick：当用户双击窗体时触发本事件。 Deactivate：当窗体失去激活状态，即另一个窗体成为当前窗口时，引发本事件。 Load：当窗体被加载到内存时触发本事件。Load事件往往用于在启动程序时对属性和变量进行初始化。 Unload：当关闭窗体时，触发卸载事件，将窗体从内存中卸载。,注意：Load事件发生时窗体是不活动的，而Activate事件发生时窗体是活动的，Print方法不能在不活动窗体上使用，因此Print不能用于Load事件中。,3
7、.2 窗体的三要素,“双击”实际上触发两个事件，第一次按鼠标按钮时产生Click单击事件，第二次按鼠标按钮时产生DblClick事件。,Private Sub Form_Click() Form1.BackColor = vbRed End Sub,Private Sub Form_Click() Form1.BackColor = vbRed End Sub,当触发了Form对象的Click事件时，该事件过程Form_Click就会被执行。,？,当用户双击窗体时，窗体不断变小，则应该添加什么事件过程,？,例3.1,Print在Load和Activate事件中的区别。 Private Sub
8、Form_Load() Print “*“ End Sub Private Sub Form_Activate() Print “*“ End Sub,窗体事件示例,例：程序运行时，用户在窗体上输入字符时，窗体上显示输入结果。,分析： 添加什么事件过程 在窗体上显示输入结果用什么代码 当用户输入a时触发了Form_KeyPress事件过程，该过程的参数KeyAscii值是多少？通过什么方法在窗体上显示出a？ 代码：,Form_KeyPress,97,Private Sub Form_KeyPress(KeyAscii As Integer) Print Chr(KeyAscii) End Su
9、b,Form1.print,chr(x)函数：将ASCII码转换为对应的字符,;,窗体的方法 在代码窗口中，输入“form1.”后，会显示该窗体对象的所有属性和方法。,3.2 窗体的三要素,窗体的方法 Show和Hide：分别用于显示和隐藏窗体。调用格式： 窗体名.Show Style 窗体名.Hide 窗体名缺省，表示显示或隐藏当前窗体； Show方法的Style参数取值： vbModel(模式)：不允许用户同时与其他窗体交互。 vbModeless(无模式)：允许用户同时与其他窗体交互。,3.2 窗体的三要素,窗体的方法 Print：用于将文本输出到窗体的一行上。调用格式： 对象名.Pri
10、nt 输出项列表; | , 对象除了窗体外，还可以是图片框(PictureBox)、Debug或打印机(Printer)，若缺省对象名，表示将文本输出到当前窗体上。 输出项列表：是由0个、1个或多个待输出的数值表达式或字符串表达式构成；当输出项是由多个项构成，则中间必须用逗号或分号分隔；若Print后什么都不跟，则表示输出一个空行。,3.2 窗体的三要素,如下代码：,Private Sub Form_Click() Print 1, -2 Print Print “We“, “study“ End Sub,窗体的方法 Print：用于将文本输出到窗体的一行上。调用格式： 对象名.Print 输
11、出项列表; | , 对象除了窗体外，还可以是图片框(PictureBox)、Debug或打印机(Printer)，若缺省对象名，表示将文本输出到当前窗体上。 输出项列表：是由0个、1个或多个待输出的数值表达式或字符串表达式构成；当输出项是由多个项构成，则中间必须用逗号或分号分隔；若Print后什么都不跟，则表示输出一个空行。,3.2 窗体的三要素,如下代码：,Private Sub Form_Click() Print 1; -2 Print Print “We“; “study“ End Sub,注意： 标准格式即参数以 “,”分割，下一个输出项将与上一个输出项间隔14列；紧缩格式即参数以
12、“;”分割，下一个输出项将以紧凑格式，紧跟着上一个输出项输出。 Print方法输出的位置是由窗体的绘图坐标CurrentX和CurrentY属性决定的，默认为对象的左上角(0,0)。 该方法可以结合定位输出函数一起使用： Spc(n)：在下一个输出项前插入n个空格； Tab(n)：输出定位在绝对n列号上。,代码：,11,9,7,5,13,11,15,9,13,17,Private Sub Form_Click() End Sub,Print Tab(11); “A“,Print Tab(9); “B“; Spc(3); “B“,Print Tab(7); “C“; Spc(3); “C“; S
13、pc(3); “C“,Print Tab(5); “D“; Spc(3); “D“; Spc(3); “D“; Spc(3); “D“,3.2 窗体的三要素,窗体的方法 Cls方法：用于清除运行时窗体上或图形上的用Print方法生成的文本和图形。语法格式： 对象名.Cls 对象名可以是窗体或图片框。当对象名缺省时，表示清除当前窗体上的内容。 例如： Form1.Cls Cls Picture1.Cls,3.2 窗体的三要素,窗体的方法 Move(移动)方法：用于移动对象，并且可以在移动时变化对象的大小。 语法格式： 对象名.Move Left ,Top,Width,Height 其中，对象名可
14、以是窗体和除时钟、菜单以外的所有控件。窗体名缺省(即未选对象名)时，默认为当前窗体。Move方法中的Left、Top、Width、Height4个参数，单位为twip(像素)。,注意！P32,3.2 窗体的三要素,例：编写一个程序，实现功能：每单击窗体一次，窗体向右移动。,思路：窗体向右移动是一个动作，应该执行什么方法；该动作是被什么对象的什么事件触发的？ 代码： Private Sub Form_Click() Form1.Move Left + 1500 End Sub,Form1.Move Left + 1500, top,Width+1500,？每次移动并变大如何实现,例3.3 窗体的
15、简单应用,编程实现：单击和双击窗体时分别改变标签和窗体标题栏的文字，单击单选按钮改变标签文字。 界面设计,属性设置,编写代码 Private Sub Form_Click() 窗体的单击事件过程 Label1.Caption = “成功通过考试！“ End Sub Private Sub Form_DblClick() 窗体的双击事件过程 Form1.Caption = “欢迎你学习VB！“ End Sub Private Sub Option1_Click() 单选按钮的单击事件过程 Label1.Caption = “听明白 勤思考 记下来！“ End Sub Private Sub Op
16、tion2_Click() 单选按钮的单击事件过程 Label1.Caption = “多上机 善提问 多总结！“ End Sub,3.3 多窗体,多窗体是在应用程序中有多个并列的普通窗体。 多窗体的建立步骤 ： (1)建立第一个窗体，选择“新建”选项卡创建一个新窗体，若选择“现存”选项卡则添加一个属于其他工程的窗体。 (2)通过选择“工程”“添加窗体”或工具栏上的添加窗体按钮来创建另一个新窗体。,3.3 多窗体,多窗体的运行顺序设置： 选择“工程”菜单中的最后一项“工程1属性”命令，在弹出的对话框中改变启动对象,例3.4,设计一个多窗体，实现两个界面的交换。为程序添加窗体Form2，Form1窗体加载一个图片，Form2窗
