vb程序设计项目化教程-项目3-制作阴影文字.ppt

单击此处编辑母版标题样式,单击此处编辑母版文本样式,第二级,第三级,VB,程序设计项目化教程,中国水利水电出版社,Visual Basic,程序设计项目化教程,主编 管小清 郭贺彬,项目三 制作阴影文字,项目目标：,本项目要制作阴影文字，阴影文字通过三种效果来显示，即阴影字“左下偏移”，阴影字“右上偏移”，阴影字“右下偏移”，单击相应的按钮实现相应的阴影效果。掌握对控件属性的修改两种方法，理解对象、事件和方法的基本概念及使用方法，掌握生成,exe,文件的方法，使得脱离,VB,环境后的程序能继续运行。,项目三 制作阴影文字,项目主要知识点：,窗体（,Form,）的属性设置,Caption,Max Button,Min Button,Back Color,标签（,Label,）的属性设置,标题（,Caption,）,背景色（,Back Color,）,背景样式（,Back Style,）,字体（,Font,）,命令按钮,Command Button),的属性,命令按钮的事件,控件的移动方法（用程序实现）,用程序实现修改控件属性的方法,控件颜色的使用,对象、事件、方法,脱离,VB,环境运行应用程序,生成,exe,文件,程序调试能力培养,项目三 制作阴影文字,项目实施步骤：,阅读相关基础知识,界面设计,窗体设计,控件属性设置,程序设计,编程初步,程序代码,程序调试，功能完善,程序打包，生成可执行文件,EXE,3.1,第,1,步：基础知识概述,3.1.1,对象,对象是,VB,对窗体和控件的统称。如,Form,窗体、,Label,标签、,CommandButton,按钮等所有控件都是,VB,中的对象。对象可以用一组数据来描述它本身的特点，而且还支持对其施加的操作。描述对象本身特点的称为对象的属性，描述对对象施加动作的称为方法。,3.1,第,1,步：基础知识概述,3.1.2,属性,描述对象本身特点称为对象的属性，所有的,VB,对象都有各自的属性集合，对象的属性决定了对象的外观和行为。如,Form,窗体的标题，,BackColor,，,CommandButton,按钮上的显示文字的内容和格式等，这些都用属性来描述对象。,设置对象属性的方法有两种：,3.1,第,1,步：基础知识概述,通过属性窗口,通过属性窗口的属性列表框设置属性，方法是：选中对象，然后在属性窗口中找到相应的属性直接设置，有些属性如：标题（,Caption,）、文本（,Text,）需要用户修改建立对象时的默认值。有些属性，如图形（,Picture,）、图标（,Icon,）、字体（,Font,）等，在设置框的右边有三个点的省略号按钮，单击该按钮将打开一个对话框供用户进行属性设置，如图,3-1,所示。在属性窗口的底部有一个简短的提示对属性做简要的介绍。,图,3-1,属性窗口,3.1,第,1,步：基础知识概述,通过指令代码设置属性,指令代码修改属性的格式是：,对象名,.,属性名称,=,属性值,如将命令按钮,Command1,的“标题”设置为“确定”的程序代码是：,Command1.Caption=,确定,注意：,Command1,是按钮的,Name,属性，是编写代码的时候使用的名字，而,Caption,属性或者,Text,等属性是显示在界面上给用户看的。,3.1,第,1,步：基础知识概述,3.1.3,方法,描述对对象施加动作的称为方法。方法是系统提供的一种特殊的函数或过程，用于完成某种特定功能，如清除方法,Cls,，显示方法,Show,，移动方法,Move,等。,方法决定了对象可以进行的操作，它只能在程序代码中使用。每个方法完成某种特定的功能，其实现步骤和细节用户看不到，也不能修改。用户可以按照约定直接调用他们，其调用格式如下：,对象名称,.,方法名称,例如：,Form2.Show,，表示显示,Form2,窗体，,Form1.Hide,表示隐藏,Form1,，如果,Form1,是当前窗体，可以使用,me.Hide,来隐藏当前窗体。,3.1,第,1,步：基础知识概述,3.1.4,事件,VB,是事件驱动的编程机制。所谓“事件驱动”是说只有在事件发生时，程序才能执行，在没有事件时，整个程序是不执行的。就像是客观世界的任何对象都会对外界的刺激做出反应一样，当用户激发出一个事件后，就会产生一个事件过程，执行一段程序代码，而且同一对象对不同的刺激也会产生不同的反应，当一个对象身上发生不同的事件后，也会引起不同的事件过程。总之，一个对象可以有多个事件，各个事件对应不同的代码，实现不同的功能。,“事件”是预先定义好的、能够被对象识别的动作。如单击（,Click,）事件、双击（,Dbclick,）事件、装载（,Load,）事件、鼠标移动（,MouseMove,）事件等。不同的对象能够识别不同的事件。当事件发生时，,VB,将检测两条信息：即发生了什么事件和哪个对象接受了事件。,为了使对象能够对由用户或系统触发的某一事件做出响应，就必须编写事件过程。响应某个事件后所执行的操作可以通过一段程序代码来实现，这段独立的程序代码就是“事件过程”。事件过程在对象检测到某个特定事件时执行。一个对象可以识别一个或多个事件，因此可以用一个或多个事件过程对用户的事件做出响应。,3.1,第,1,步：基础知识概述,事件过程的一般格式是：,Private Sub,对象名称,_,事件名称（）,事件响应程序代码,End Sub,其中，对象名称就是对象的,Name,属性值，事件名称是由,VB,预先定义好的赋予该对象的事件，该事件必须是对象所能识别的。如单击名为,Command1,的命令按钮控件时，退出应用程序的事件过程如下：,Private Sub Command1_Click(),Unload Me,End Sub,3.1,第,1,步：基础知识概述,3.1.5,可执行文件（,exe,文件）的生成,一个独立的文件是指没有,VB,的环境，直接在,Windows,下运行。以前运行,VB,程序的时候，通过,VB,环境对程序边解释遍执行，逐行执行，如果想使应用程序不在,VB,环境中运行，就必须对应用程序进行编译生成,exe,文件，具体做法如下：,选择菜单,【,文件,】,下“生成*,.exe”,其中“*”为工程的名字，例如本项目中工程的名字为“阴影文字”，那么,【,文件,】,菜单中的就会出现“生成阴影文字,.exe”,的显示，如图,3-2,所示，保存位置可以自己选择，文件名也可以更改，更改后单击“确定”，到保存,exe,文件的位置去查看生成的,exe,文件，双击后即可出现执行的界面，和在,VB,环境中的执行界面一样。,图,3-2,生成,exe,文件,3.2,第,2,步：界面设计,打开工程，双击窗体,Form1,，单击属性窗口，在对象下拉列表框中选择“,Form1 Form”,，设置如下属性：,在属性窗口将窗体的,Caption,属性值设置为“阴影字体”,BackColor,属性值设置为浅蓝色，方法为：单击,BackColor,右边的下拉按钮，选择“调色板”，选择第一行第六列的颜色，设置后,BackColor,属性的值为“,&H00FFFFC0&”,。,设置,Form1,窗体的,MaxButton,属性值为：,False,，让窗体右上角没有最大化按钮，只有最小化和关闭按钮 。,注意：,BackColor,是背景色，用来设置控件的背景颜色，命令按钮除外。,3.2,第,2,步：界面设计,在窗体上添加两个标签,Label1,和,Label2,，将其,Auto Size,属性改为,True,，使得,Label1,和,Label2,标签可以根据所要显示的内容来自动调整控件的大小，,Back Style,属性改为,0,，即设置,Label1,和,Label2,标签的背景样式为透明。标签的,BackStyle,属性用来设置背景样式，,0,Transparent,表示透明，,1,Opaque,表示不透明；在使用的时候可用数字，也可以用英文单词。,3.2,第,2,步：界面设计,添加三个命令按钮,Command1,Command3,，布局排列如图,3-3,所示，将,Commad1,，,Command2,和,Command3,的,Caption,属性值分别设置为“左下阴影”、“右上阴影”、“右下阴影”。,界面设计的效果如图,3,3,所示：,图,3-3,界面设计图,3.3,第,3,步：程序代码,编程思路：阴影字的实现是通过文字的位置和颜色调整来实现文字的阴影效果，对两个同样内容的文字，分别设置不同的颜色，位置稍稍有一些差异，就能显示出阴影的效果，通常情况下，我们把阴影的颜色设置为黑色，前面字体的颜色随意设置，让两者的位置保持一定的差异，即可实现不同角度的阴影效果。,3.3,第,3,步：程序代码,程序初始化代码,在窗体载入的时候，需要先设置两个标签的位于同样的位置，这样看起来是重叠的效果，看不出阴影，另外我们通过代码设置,Label1,和,Label2,标签的字体大小为,30,，粗体，标签的标题为“欢迎你的到来”，设置阴影标签的字体颜色为黑色，设置前面标签显示的字体颜色为黄色。,在窗体上右键，选择快捷菜单中“查看代码”，进入代码编辑窗口，在对象下拉框中选择“,Form”,，在事件下拉框中选择“,Load”,事件，系统自动生成了事件的结构，在两行代码中间是用户写代码的位置，在此补充上实现程序初始化的代码，单引号后的文字是注释。,单引号的注释只能注释一行，如果注释换行，需要再用单引号。,3.3,第,3,步：程序代码,Private Sub,Form_Load,(),窗体装入时执行的程序代码,Label1.FontSize=30,Label2.FontSize=30 ,设置文字和阴影的字体大小均为,30,号,Label1.FontBold=True,Label2.FontBold=True ,设置文字和阴影的字体均为粗体,Label1.Caption=,欢迎你的到来！,Label2.Caption=,欢迎你的到来！,设置文字和阴影的内容一致,Label1.Left=Label2.Left,Label1.Top=Label2.Top ,设置文字和阴影的位置一致，程序启动时,文字和阴影重合,Label1.ForeColor=,vbBlack,设置阴影为黑色,Label2.ForeColor=,vbYellow,设置文字为黄色,End Sub,3.3,第,3,步：程序代码,程序执行结果如图,3,4,：,图,3-4,程序初始界面执行结果图,3.3,第,3,步：程序代码,提示：,颜色设置的方法有三种：,（,1,）,vb,+,颜色名称，如,vbBlue,代表蓝色,（,2,）,QBColor,（数字代码），如,QBColor,（,1,）代表蓝色，参数意义见表,3,1,值,颜色,值,颜色,0,黑色,8,灰色,1,兰色,9,亮兰色,2,绿色,10,亮绿色,3,青色,11,亮青色,4,红色,12,亮红色,5,洋红色,13,亮洋红色,6,黄色,14,亮黄色,7,白色,15,亮白色,表,3,1 Color,参数,3.3,第,3,步：程序代码,（,3,）采用十六进制表示法,例：,Label2.ForeColor=&H80000012&,黑色,2.,控件的字体样式函数有以下几种：,FontBold,加粗,FontItalic,倾斜,FontUnderline,下划线,FontStrikethru,删除线,例：,Label2.FontBold=True,设置标签字体加粗,3.3,第,3,步：程序代码,3,、控件的位置有,Left,和,Top,两个属性来决定，类似于数学坐标系中的横坐标和纵坐标。,Left,代表对象的内部左边线距离容器左边缘的距离。,Top,代表对象的顶端距离容器顶端的距离。,Form,窗体是个容器，里面可以放置很多控件，在此设置的,Top,和,Left,的值，均指的是距离,Form,窗体的距离。,3.3,第,3,步：程序代码,“左下阴影”按钮的程序代码,编程思路：在运行程序时，当单击按钮“左下阴影”时，期望的结果是“欢迎你的到来”出现阴影效果，黑色阴影出现在原文字的左下方，效果如图,3-4,，仔细观察阴影和文字的相对位置。用代码实现时，需要调整阴影文字相对原黄色文字的位置，让黑色的阴影出现在原文字的左下方，对象的位置通过,top,和,left,属性值来决定，所以通过调整,Label1,的,top,和,left,属性值即可实现位置的调整，要以,Label2,的位置参数作为参照。,黑色阴影文字位置相对原黄色文字左移，即黑色字体所在的,Label1,要在原来黄色字体,Label2,的基础上位置左移，通过,Label11,距离,Form1,窗体左部的距离相对,Label2,的距离变小来实现，代码为：,Label1.Left=Label2.Left-50,提示：位置减少,50,个单位时阴影效果比较明显且逼真，读者可以修改相对距离，但如果相对距离过大，阴影和原文字就分离了，无法实现阴影的效果，如果太小，阴影效果也不太明显，读者可以自己试验。,阴影位置下移，即黑色字体所在的,Label1,要在原来黄色字体,Label2,的基础上下移，通过,Label11,距离,Form1,窗体上部的距离相对,Label2,的距离变大来实现，代码为：,Label1.Top=Label2.Top+50,思路明确后进入代码编写界面。,3.3,第,3,步：程序代码,双击“左下阴影”按钮进入代码编写窗口，系统自动生成了,Command1,按钮的单击,Click,事件的结构，单击,Click,事件是,CommandButton,按钮最常用的事件，当双击对象,Command1,进入代码编写窗口时，系统默认生成单击事件的代码结构，补充代码和注释最终如下代码所示。,Private Sub Command1_Click(),左下阴影按钮的,Name,属性是,Command1,Label1.Left=Label2.Left-50,设置阴影文字向左偏移,50,Label1.Top=Label2.Top+50,设置阴影文字向下偏移,50,End Sub,3.3,第,3,步：程序代码,代码完成后，单击,【,运行,】,菜单下的工具栏中的 按钮，即可运行程序，单击“左下阴影”按钮，运行结果如图,3-5,所示。,图,3-5,单击“左下阴影”按钮的效果,提示：在,VB,窗体的坐标系中，坐标原点为窗体的左上角，水平向右横坐标递增，垂直向下纵坐标递增；要注意严格区分。,3.3,第,3,步：程序代码,3,、“右上阴影”按钮的程序代码,编程思路：代码编写思想与“左下阴影”按钮类似。,在运行程序时，当单击按钮“右上阴影”时，期望的结果是“欢迎你的到来”出现阴影效果，黑色阴影出现在原文字的右上方，效果如图,3-5,。用代码实现时，需要调整阴影文字相对原黄色文字的位置，通过调整,Label1,的,top,和,left,属性值即可实现，以,Label2,的位置参数作为参照。,黑色阴影文字位置相对原黄色文字右移，即黑色字体所在的,Label1,要在原来黄色字体,Label2,的基础上位置右移，通过,Label11,距离,Form1,窗体左部的距离相对,Label2,的距离变大来实现，代码为：,Label1.Left=Label2.Left+50,阴影位置上移，即黑色字体所在的,Label1,要在原来黄色字体,Label2,的基础上下上移，通过,Label11,距离,Form1,窗体上部的距离相对,Label2,的距离变小来实现，代码为：,Label1.Top=Label2.Top-50,思路明确后进入代码编写界面。,3.3,第,3,步：程序代码,双击“右上阴影”按钮进入代码编写窗口，系统自动生成了,Command2,按钮的单击,Click,事件的结构，补充代码和注释，最终如下代码所示。,Private Sub Command2_Click(),Label1.Left=Label2.Left+50,设置阴影文字向右偏移,50,Label1.Top=Label2.Top-50,设置阴影文字向上偏移,50,End Sub,执行结果见下图（注意同图,3,6,区分）,图,3-6,右上阴影运行结果图,3.3,第,3,步：程序代码,4,、“右下阴影”按钮的程序代码,编程思路：“右下阴影”的代码分析方法与“左下阴影”和“右上阴影”代码思路类似，与“右上阴影”少有不同。双击“右下阴影”按钮进入代码设计窗口，补充如下的代码与注释。“右下阴影”按钮的,name,属性值为：,Command3,。,Private Sub Command3_Click(),Label1.Left=Label2.Left+50,设置阴影文字向右偏移,50,Label1.Top=Label2.Top+50,设置阴影文字向下偏移,50,End Sub,3.3,第,3,步：程序代码,执行结果见图,3-7,（注意同其他图区分效果）,图,3-7,右上阴影执行结果图,3.4,第,4,步：程序调试，功能完善,待完善功能,1,：实现“左上阴影”的效果，包括界面设计和代码实现两部分；,待完善功能,2,：为三个按钮定义三个快捷键，使得用户能用键盘方便操作。,3.5,第,5,步：程序打包，生成可执行文件,EXE,单击,【,文件,】,菜单下的“生成阴影文字,.exe”,，选择适当的位置保存生成的,exe,文件，单击“确定”。,当需要再次打开的时候，找到“阴影文字,.exe”,，双击“阴影文字,.exe”,，出现如图,3-8,所示的界面，分别单击三个按钮，运行效果与在,VB,环境中完全一致。,图,3-8,双击“阴影文字,.exe”,的运行界面,3.5,第,5,步：程序打包，生成可执行文件,EXE,项目总结：,各种颜色函数的使用，常用的有三种方法：,修改控件属性的两种方法：属性窗口和使用程序修改控件属性,控件的特殊属性：颜色、字体、位置、样式，通过“”来进一步设置,脱离,VB,开发环境来运行程序的方法：生成,exe,文件,事件、方法、属性的概念和用法：事件是为了完成用户要求的功能，需要用户在其中写代码，方法和属性是基于控件对象的，方法是系统定义过的特殊的函数或者过程，属性是对象的特征。,程序的功能完善和功能添加,3.5,第,5,步：程序打包，生成可执行文件,EXE,操作练习：,制作如下图,3-9,所示的小程序，功能是：当单击“变长”按钮的时候，蓝条向右增大,20,个单位，当单击“变短”按钮时，蓝条向左缩短,20,个单位，窗体的标题为“变魔术”。,图,3-9,运行界面图,3.5,第,5,步：程序打包，生成可执行文件,EXE,编程提示：程序中的蓝条是,Label,标签，标签的显示文字去掉后，修改背景颜色为蓝色，单击“变长”按钮，要实现蓝条变长只需在“变长”按钮的单击事件中修改,Label,的宽度在原来基础上增加,20,即可，单击“变短”按钮的时候，在“变短”按钮的单击事件中修改,Label1,的宽度在原来基础上减少,20,即可。,3.5,第,5,步：程序打包，生成可执行文件,EXE,复习思考：,一、选择题,1,、颜色设置的方法有（）,A,：,vb,+,颜色名称,B,：,QBColor,（数字代码）,C,：采用十六进制表示法,D,：采用二进制表示法,二、填空题,1,、,是,VB,对窗体和控件的统称。,2,、对象可以用一组数据来描述它本身的特点，而且还支持对其施加的操作。描述对象本身特点的称为对象的,，描述对对象施加动作的称为,。,3,、指令代码修改属性的格式是：,。,4,、描述对对象施加动作的称为,方 法,。,三、思考题,1,：自己动手为本项目的命令按钮添加快捷方式，参照“项目二”中快捷键的设置方法；,2,：如何用属性对话框设置使得两个,Label,（标签）实现重合；,3,：如何实现阴影效果？试将程序中的参数数值修改，并观察效果。（编程实现）,4,：如果要实现“左上阴影”的效果，如何来实现？包括界面设计和代码实现两部分。,