第二册第二章_程序设计初步第02节（2课时）

1、第2节程序的对象内容较多，请在书本上做好笔记程序设计初步第2节（2课时）教学内容： 学习和了解Visual Basic可视化的面向对象的基本使用方法，了解对象、属性、事件、方法，认识窗体的设计。重点： 1、对象的添加和设置方法； 2、编写事件过程的代码； 3、窗体的print方法。难点： 1、了解和认识对象属性的名称； 2、窗体的print方法的使用。发送素材一、复习上节：1、高级语言编写的程序比较直观、易懂，而且计算机能够直接识别，可以直接执行。 A、对 B、错2、程序设计语言种类繁多，可分为（）语言、汇编语言、高级语言等。3、机器语言是计算机能直接识别的二进制代码，只有和（ ）两个符号。4

2、、“广州塔”的例子。（1）显示图片（2）隐藏图片（3）设置按钮属性（4）结束的按钮二、对象和属性1、程序的效果：素材的准备：准备一张背景图片。2、为程序添加对象在“欢迎登录系统”这个程序中，一共有五个对象，分别是一个窗体、一个按钮、一个文本框和两个标签（其中一个标签设置了“不可见”，隐藏起来）。窗体是在新建工程时自动产生，所以现在添加四个对象，添加的方法有两种：（1）对象：在现实生活中，一个人、一辆汽车、一张桌子都是一个对象，而对一辆汽车来说，它又由轮子、车门、方向盘、发动机等等较小的对象组成。一个人是一个对象，他（或者她）是属于“人类”这个“类”中的一员。 （2）添加对象的方法有两种（已经使

3、用过）：方法一：在控件工具箱中单击选中要添加的控件，此时该控件会现出凹下去的效果，鼠标指针会变成十字形，然后在窗体上合适的位置按住鼠标左键，拖曳出一个矩形，最后松开鼠标左键，窗体上就会拖曳出一个矩形的控件对象。方法二：直接在控件工具箱中双击要添加的控件，就会在窗体的中产生一个默认大小的控件对象。添加对象之后，要对对象进行适当的调整（位置、大小等）。添加后，五个对象分别是：Label1、Label2、Text1、Command1和Form1，结果如图所示：为程序添加对象设置对象的属性3设置对象的属性添加了对象之后，要把对象的大小、位置、颜色等特征，也就是对象的属性设置好。设置对象属性的一般两种常

4、用方法：（1）在属性窗口中直接修改属性值；（2）在程序中通过赋值语句更改对象的属性值。 对象名.属性名=属性值如设定窗体的宽度和高度：Form1.Width = 6000Form1.Height = 5000注意要先选对象，才设置该对象的属性。下面分别设置七个对象的属性：（1）设置对象的“Caption”属性，即外表显示的文字或者标题，字体大小可以通过Font属性设置：窗体Form1的“Caption”属性设为“欢迎登录系统”；命令按钮Command1的“Caption”属性设为“登录”；标签Label1的“Caption“属性设为“用户名”；（2）设置对象的其他属性： 选择自己喜爱的图片设置

5、窗体Form1的“Picture“属性，使窗体有背景图片； 将文本框Text1的“Text”属性值去掉（置空）； 将标签Label1和Label2的BackStyle属性设为“0-Transparent”，用于指定 Label的背景透明；将标签Label2的“Visible”属性设为“False”,即程序运行时该标签不可见，若重新设置为“True”则可见；“Alignment”属性设为“2-Center”，即内容居中显示；设置“ForeColor”为蓝色，即文字内容显示为蓝色。 选中窗体中的所有对象，设置其“Font”属性，字体选“宋体”，字号选“三号”；设置的效果如图所示：编写事件过程的代码

6、为程序添加对象设置对象的属性对象的方法4编写事件过程的代码事件过程的一般格式：Private Sub 对象名称_事件名称( ) 发生该事件后要执行的程序段End Sub一个对象可以响应多种事件。如鼠标的Click（单击事件）、DblClick（双击事件）、MouseMove（鼠标经过事件）、MouseDown（按下鼠标左键事件）、MouseUp（放开鼠标左键事件）等，键盘的KeyPress（按下键盘键事件），窗体的Load（窗体载入事件）等 （1）现在我们来编写“登录”按钮Command1的Click事件：双击“登录”按钮，进入代码窗口，选取Command1的Click事件，然后输入以下程序段

7、（注意输入时使用半角英文字符）：Text1.Visible = FalseCommand1.Visible = FalseLabel1.Visible = FalseLabel2.Visible = TrueLabel2.Caption = 欢迎 + Text1.Text + 登录系统！5运行和保存程序（1）点选“运行”，输入用户名和密码，单击“确定”，观察程序运行效果。（2）以“欢迎登录系统”为文件名保存窗体文件（.frm）和工程文件（.vbp）。拓展1：常用的对象属性表2-1 常用的对象属性属性属性的作用Caption设定在对象的标题文字Height设定对象的高度Width设定对象的宽度L

8、eft设定对象左边距窗体坐标原点的距离（单位Twip）Top设定对象顶端距窗体坐标原点的距离ForeColor设定对象的前景颜色（即正文颜色）BackColor设定对象的背景颜色Font设定文字的字体、字型、字号等Enabled设定对象是否有效Visible设定对象是否可见Name（名称）设定对象的名称拓展2：对象的基本事件Click事件：即单击事件，程序运行后，当单击对象的某个位置时，VB将调用相应对象Click事件。DbClick事件：即双击事件，程序运行后，当双击对象的某个位置时，VB将调用相应对象DbClick事件。Change事件：当对象的内容发生改变时，触发Change事件。当鼠标

9、单击滚动条箭头时或直接拖动滑块后释放鼠标时，和改变文本框（TextBox）内容时。DriveListBox的当前驱动器被改变的时，在DirBox当前文件夹改变时。Load、Unload事件：仅适用于窗体对象，当窗体被装载/卸载时运行。Timer事件：仅用于计时器，每隔一段时间被触发一次。MouseDown、MouseUp属性：按下/放开鼠标键事件。MouseMove事件：鼠标移动事件。KeyPress事件：当有键按下时。这个事件带一个参数：KeyAscii，代表按键的Ascii码值。按下键时会触发KeyDown事件，松开键时会触发KeyUp事件。焦点事件：当对象得到或者失去输入焦点时，会产生G

10、otFocus或LostFocus事件。焦点是接收用户鼠标或键盘输入的能力。当对象具有焦点时，可接收用户的输入。Scroll事件：当滚动条拖动滑块但还没有释放鼠标时。在窗体上添加一个文本框，文本框的属性设置：Alignment设置为居中，Font设置为楷体、三号，BackColor设置为浅蓝色；当单击窗体时，在文本框中显示“欢迎学习程序设计！”字样，如图所示。 复习上节：1、一个对象可以响应多种事件。如鼠标的单击事件、双击事件、（鼠标经过事件）、（按下鼠标左键事件）等等，其中单击事件对应的单词是： A、 Click B、MouseMove C、DblClick D、MouseDown 2、添加

11、了对象之后，要把对象的大小、位置、颜色等特征，也就是对象的（）设置好。 A、 方法 B、过程 C、属性 D、关系 1、窗体的Print方法VB系统已经预先设计了一些固定的程序代码嵌入在对象中，用于实现对象的一些特定功能，我们称为对象的方法。对象的方法是对象自身集成的，调用时一般要指明对象，如果省略对象，表示在当前对象，一般指窗体。三、窗体的方法对象方法调用形式：对象.方法参数列表 例如：如何在窗体上显示我们的姓名呢？ （1）单击窗体时， 在当前位置显示自己的姓名； Form1.Print 李大明 其中 Form1. 可省略不写，为什么？ Print “同桌 窗体的Print方法主要用于打印输出

12、表达式的值，格式为：对象.Print Tab(n) 表达式列表 ,|;其中：后面加;(分号)：用于紧凑格式输出。光标定位在上一个显示的字符后。后面加,(逗号)：用于分区格式输出。光标定位在下一个打印区的开始位置处。每个打印区占14列。Tab(n)函数：用于在输出表达式列表前向右移动n列，允许重复使用。无;(分号)与,(逗号)：表示输出后换行。开始打印的位置是由对象的CurrentX和CurrentX属性决定，缺省为打印对象的左上角坐标（0，0）。? Tab(20); “张三”? Tab(40); “李四”（2）单击窗体时，先空两行，再在当前行第20个位置显示自己的姓名；下一输出区显示同桌的姓名

13、： Print Print Print Tab(20); 李大明, 同桌姓名（3）单击窗体时，在当前窗体的（3000，2000）位置显示自己的姓名： CurrentX = 7500 CurrentY = 6000 Form1.Print 李大明“试一试：把自己的姓名显示在屏幕的正中央。（1）单击窗体时， 在当前位置显示自己的姓名； Form1.Print 李大明“ 其中 Form1. 可省略不写，为什么？（2）单击窗体时，先空两行，再在当前行第20个位置显示自己的姓名；下一输出区显示同桌的姓名： Form1.Print Form1.Print Form1.Print Tab(20); 李大明,

14、 同桌姓名（3）单击窗体时，在当前窗体的（3000，2000）位置显示自己的姓名； CurrentX = 3000 CurrentY = 2000 Form1.Print 李大明2、窗体的Circle 方法 窗体的画圆方法格式为： Circle（圆心坐标），半径，颜色画圆方法：Circle(3000,3000),2000Circle(3000,3000),3000*Rnd,vbred,RGB(255*Rnd,255*Rnd,255*Rnd)实践：“自由画线”程序利用窗体的画线（Line）方法和鼠标的MouseDown事件，实现在窗体上自由画线。（1）新建工程文件“工程1”；（2）窗体Form1

15、的“Caption”属性设为“自由画线”；（3）双击窗体，进入代码窗口，在过程框选择“MouseDown”事件，输入以下程序行： CurrentX = XCurrentY = Y（4）在代码窗口，选择过程框的“MouseMove”事件，输入以下程序行： If Button = 1 Then Form1.Line -(X, Y)If Button = 2 Then Form1.Cls探究：“跳动的窗口”程序利用窗体的移动（Move）方法和按钮的单击事件，实现窗体的移动。（1）新建工程文件“工程1”，更换窗体的背景颜色，窗体Form1的“Caption”属性设为“跳动的窗口”；（2）双击左边工具箱

16、中的命令按钮“CommandButton”，在“工程1”的窗体“Form1”中添加一个命令按钮“Command1”，并将其“Caption”属性设为“跳动的窗口”；（3）双击“跳动的窗口”按钮，进入代码窗口，在过程框选择“Click”事件，在代码窗口的“Click”事件过程输入以下程序行： Form1.Move Left + 200, Top + 100, Width + 100, Height - 50（4）点选“运行”或者快捷工具栏的运行按钮运行程序，然后不断点击“跳动的窗口”按钮，看看运行效果。（5）将“工程1”和窗体“Form1”以“跳动的窗口”为文件名保存。拓展1：窗体的主要方法Ci

17、rcle在窗体上的画圆、椭圆或者圆弧线Cls将窗体上的图形和文字清除Hide、Show隐藏、显示窗体Line在窗体上画直线或者矩形Move窗体的移动Print在窗体上显示文本内容Pset将窗体上的点设为指定颜色（画点）Refresh将窗体的内容重绘（刷新一次）SetFocus使当前窗体获得焦点拓展2：在VB中颜色的表示方法在VB程序设计中，颜色一般有四种表示方法：（1）使用RGB(red, green, blue)函数表示。在VB中可以使用RGB函数来指定任何颜色值，其表示方法是：RGB(red, green, blue)任何颜色都是由三原色按其相对亮度比例组成，即red（红）、green（绿

18、）、blue（蓝），其取值用0至255之间的整数表示每种颜色的分量，如果数值超过255则看成255，即：混合颜色值=RGB（红色值，绿色值，蓝色值）例如：RGB(255,255,0)为黄色、RGB(255,0,0)为红色、RGB(0,255,0)为绿色、RGB(0,0,0)为黑色、RGB(255,255,255)为白色。（2）使用QBColor( n )从十六种颜色中选择一种颜色。n的取值从0至15。如QBColor( 2 ) 表示是绿色。0至15分别表示的颜色是：0 黑色1 蓝色2 绿色3 青色4 红色5 洋红色6 黄色7 白色 8 灰色9 浅蓝色10 淡绿色11 淡青色12 浅红色13 浅洋红色14 淡黄色15 亮白色。（3）VB内部颜色常数。在VB中还将其中