单击此处编辑母版标题样式,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,*,*,(中职）Visual Basic 6.0程序设计第2章ppt课件,VB程序设计基础,【实例1】事件,【实例2】变化的窗体,【实例3】键盘与鼠标,【实例4】选择窗体,【实例5】有个性的按钮,【实例6】登录对话框,【实例1】事件案例效果,在本例中，将演示程序在发生不同动作时，程序会发生什么样的事件。在这个程序中可以响应的事件有：窗口大小改变（Resize）事件，键盘按键被按下（KeyPress）事件，鼠标在窗体上单击（Click）事件和窗体被卸载（UnLoad）事件。,技术分析,事件驱动是VB程序运行机制的核心，当一个应用程序从开始运行时，就会发生一系列的事件（如程序加载事件Load）。程序启动完成后（即在程序运行的过程中），将一直等待着事件的发生（如发生了鼠标的单击事件Click），如果发生了什么事件，就转去执行该事件的相关代码，作为对事件的回应。,事件（Event）是指发生在某一对象上的事情，是Visual Basic 中预先设置好的，可以被对象识别的动作。,操作步骤,（1）创建工程。按第1章中所学习的方法，启动中文Visual Basic 6.0，选择“标准 EXE”工程，进入中文VB6的集成开发环境。,（2）在窗体上双击，打开“代码”窗口，在“代码”窗口中输入以下代码。,程序代码：,鼠标在窗体上单击,Private Sub Form_Click(),MsgBox 鼠标在窗体上单击，发生Click事件。,End Sub,键盘按钮被按下,Private Sub Form_KeyPress(KeyAscii As Integer),MsgBox 键盘按钮被按下，发生KeyPress事件。,End Sub,窗体被载入,Private Sub Form_Load(),MsgBox 窗体被载入，发生Load事件。,End Sub,窗体大小被改变,Private Sub Form_Resize(),MsgBox 窗体大小被改变，发生Resize事件。,End Sub,窗体被卸载,Private Sub Form_Unload(Cancel As Integer),MsgBox 窗体被卸载，发生UnLoad事件。,End Sub,知识进阶,当用户对一个对象发出一个动作时，会产生一个事件，然后自动地调用与该事件相关的事件过程，事件过程是在响应事件时执行的程序代码段。,事件过程一般由VB创建，是附加在窗体或控件上的，用户不能增加或删除，只能在过程内添加用户的事件处理代码，以完成对事件的响应。,思考练习,1.填空题,（1）VB程序运行机制的核心是,，在程序运行的过程中将一直等待着,的发生。,（2）鼠标单击事件是,，窗体加载事件是,，键盘按键按下时会发生的事件有,，窗体卸载的事件是,。,（3）不同的对象,有相同的事件。,（4）事件的具体名称由,和,构成。,2.问答题,（1）什么是事件？事件在程序中有什么作用？,（2）Msgbox函数在程序中有什么用途？,（3）当窗体加载时有哪些事件发生？,【实例2】变化的窗体,案例效果,窗体在屏幕的中央，窗体背景是一幅图像。单击窗体中的“最小化”按钮，可使窗体最小化，在Windows的状态栏中显示程序最小化后的按钮（按钮上,有最小化图标）,技术分析,1.对象,对象（Object）是VB应用程序的基本单元，是代码和数据的集合，用VB编程的实质就是用对象组装程序。,2.属性,属性（Property）是指用于描述对象的名称、位置、大小、颜色、字体等特性。,操作步骤,1创建工程,（1）首先，按第1章所学过的方法创建一个“标准EXE”工程。,（2）然后，参照图2-1左图为窗体Form1添加标签控件和命令按钮。,2设置对象的属性,对象名称,Caption值,对象名称,Caption值,对象名称,Caption值,Form1,窗体变化,Label1,窗体变化,Command1,最小化,Command2,最大化,Command3,正常,Command4,退出&E,3程序代码编辑,按第1章所学的方法，打开“代码”窗口，在其中输入以下程序代码。,程序代码：,Rem“窗体变化”的代码程序,Private Sub Command1_Click()单击“Command1”按钮的事件过程,Form1.WindowState=vbMinimized 设置窗体窗口为最小化,End Sub,Private Sub Command2_Click()单击“Command2”按钮的事件过程,Form1.WindowState=vbMaximized 设置窗体窗口最大化,End Sub,Private Sub Command3_Click()单击“Command3”按钮的事件过程,Form1.WindowState=Normal 设置窗体窗口为还原状态,End Sub,Private Sub Command4_Click()单击“Command4”按钮的事件过程,End 退出程序的运行,End Sub,其中，单引号“”后面的文字是注释文字，在程序运行中不会被执行。,知识进阶,1.常用窗体属性,2.进阶实例移动文字,思考练习,1.填空题,（1）属性是指用于描述对象的,等特性。对象属性的设置可以有,和,两种方法。在程序中使用代码进行属性设置的语句格式是,。,（2）对象的位置及大小由,、,、,和,属性决定。,（3）在程序中，对指定对象的调用是通过对象的,来进行的。名称只能在,时设置。,（4）对象的文字颜色由,属性决定，背景颜色由,属性决定，背景图像由,属性决定。,（5）窗体的最大化、最小化由,属性决定。,思考练习,2.程序设计题,（1）创建一个程序，有三个命令按钮和一个标签控件，单击按钮时分别设置标签文字为红、绿、蓝三种颜色。,（2）创建一个程序，程序中有两个命令按钮和一个标签控件，设置标签控件背景为红色，单击命令按钮时能实现标签控件的放大和缩小。,【实例3】键盘与鼠标,案例效果,程序运行中，当鼠标指针在窗口中移动时，将在窗口中实时显示鼠标的当前位置，如左图所示；当键盘上的某个按键被按下时，将在窗口中实时显示该按键的信息，如右图所示；当窗口被鼠标双击时，也将在窗口中显示出相关的信息。,技术分析,1窗体事件,2方法,操作步骤,本实例中将学习使用基本的鼠标和键盘事件：DblClick、MouseMove和KeyPress，以及Print方法。,1.创建程序界面,创建一个“标准 EXE”工程，设置窗体From1的Caption属性为“键盘与鼠标”，其他属性保持不变。,2.程序代码编辑,在窗体的“代码”窗口中输入以下代码。,程序代码：,Private Sub Form_DblClick(),Me.Cls 清除窗口显示的文字,Print 打印一个空行,Print 鼠标被双击！在窗体中显示文字鼠标被双击！,End Sub,Private Sub Form_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single),Me.Cls,Print,Print 鼠标当前位置为;X;,;Y 在窗体上显示鼠标位置,End Sub,Private Sub Form_KeyPress(KeyAscii As Integer),Me.Cls,Print,Print 键盘上的;Chr$(KeyAscii);键被按下 在窗体上显示键盘按键信息,End Sub,知识进阶,程序中使用到了窗体的MouseMove事件和KeyPress事件。下面对这两个事件的使用方法进行详细的说明，来学习使用窗体的鼠标事件和键盘事件。,1.鼠标事件,2.键盘事件,3.Print 方法,思考练习,1.填空题,（1）鼠标按键按下和松开时将产生,和,事件。,（2）键盘按键按下和松开的过程中将产生,、,和,事件。,（3）Hide属性与Unload方法都可以使窗体不可见，两者的区别在于,。,（4）Show方法和Load方法的区别是,。,（5）Print方法的Tab参数用于,。,思考练习,2.程序设计题,（1）设计一个程序，在窗体上有一个标签，背景为蓝色，当鼠标右键在窗体上按下时，标签放大一倍，松开时还原标签大小。,（2）设计一个程序，在窗体上有一个标签，鼠标在窗体上移动时，在鼠标的所在位置显示标签，标签中显示鼠标的坐标。,（3）设计一个程序，在窗体上有一个标签，当按下A、S、D、W键时，标签分别向左、下、右、上方向移动。,【实例4】选择窗体 案例效果,单击“窗体变化”按钮，即可调出“窗体变化”程序，并运行该程序，单击该程序窗口右上角的叉子按钮，即可回到所示的画面；单击“移动文字”按钮，即可调出“移动文字”程序，并运行该程序；单击“退出”按钮，即可退出程序的运行。,技术分析,1.直接创建具有多个窗体的工程,（1）创建工程及主调用窗体,（2）添加新窗体,（3）编辑主调用窗体,（4）编辑其他窗体,（5）设置启动窗体,2.通过已有窗体创建多窗体工程,（1）创建工程,（2）复制已有窗体到工程目录,（3）添加已存在的窗体,（4）编辑主调用窗体,（5）修改其他窗体,操作步骤,1.创建工程主调用窗体,2.添加其他窗体,3.编辑主调用窗体的程序代码,按前面所学的方法，在Form4窗体的“代码”窗口内输入如下的程序代码。,程序代码：,Private Sub Command1_Click(),Form4.Show 显示Form4窗体，即Form4成为活动窗体,End Sub,Private Sub Command2_Click(),Form2.Show 显示Form2窗体，即Form2成为活动窗体,End Sub,Private Sub Command3_Click(),Form3.Show 显示窗体Form3，即Form3成为活动窗体,End Sub,Private Sub Command4_Click(),End 退出程序的运行,End Sub,4.设置启动窗体,知识进阶,1.多窗体程序的应用,2.进阶实例展示窗体,思考练习,1.填空题,（1）创建多窗体程序的方法有,和,。,（2）设置启动窗体应在,对话框内进行。,2.程序设计题,（1）设计一个多窗体程序，主窗体上有一个按钮，另一个窗体是一个关于窗体（按展示窗体的方法进行设计），单击主窗体上的按钮时弹出关于窗体。,（2）设计一个有两个窗体的程序，双击A窗体时，显示B窗体，隐藏A窗体；双击B窗体时，显示A窗体，卸载B窗体。,【实例5】有个性的按钮 案例效果,这个程序将为我们演示一个有个性的按钮：单击“拖动”按钮后，可以将图片按钮拖动到窗体的任意位置；单击“停止”按钮后，图片按钮说什么也拖不动了。,技术分析,Visual Basic 作为面向对象的可视化程序开发环境，可以利用大量预定义的对象方便快捷地完成程序的开发。在程序中，作为预定义对象主要的表现形式就是Visual Basic 的控件。通过对控件属性的简单设置、调用控件的方法、处理控件的事件，就可以将控件对象的功能应用到程序中。,命令按钮是程序中最常用的控件之一，在前面的程序中，我们几乎都用到了命令按钮，在这一节的实例中，我们来学习命令按钮的使用。,操作步骤,1.创建窗体界面元素,对 象,属 性,属 性 值,Command1,名称,CmdMove,Picture,有个性的按钮face.bmp,ToolTipText,可移动的按钮,Command2,名称,CmdDrog,Caption,拖动,Command3,名称,CmdStop,Caption,停止,2.程序代码编辑,在窗体的“代码”窗口输入以下程序代码。,程序代码：,Private Sub CmdDrog_Click(),CmdMove.DragMode=1 设置拖动模式为自动，可响应鼠标拖动事件,CmdMove.MousePointer=15 设置鼠标指针为移动指针样,CmdMove.Caption=说走