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

1、Visual Basic 程序设计项目化教程,主编 管小清 郭贺彬,项目三 制作阴影文字,项目目标： 本项目要制作阴影文字，阴影文字通过三种效果来显示，即阴影字“左下偏移”，阴影字“右上偏移”，阴影字“右下偏移”，单击相应的按钮实现相应的阴影效果。掌握对控件属性的修改两种方法，理解对象、事件和方法的基本概念及使用方法，掌握生成exe文件的方法，使得脱离VB环境后的程序能继续运行。,项目三 制作阴影文字,项目主要知识点： 窗体（Form）的属性设置 Caption Max Button Min Button Back Color 标签（Label）的属性设置 标题（Caption） 背景色（Ba

2、ck Color） 背景样式（Back Style） 字体（Font） 命令按钮Command Button)的属性 命令按钮的事件 控件的移动方法（用程序实现） 用程序实现修改控件属性的方法 控件颜色的使用 对象、事件、方法 脱离VB环境运行应用程序生成exe文件 程序调试能力培养,项目三 制作阴影文字,项目实施步骤： 阅读相关基础知识 界面设计 窗体设计 控件属性设置 程序设计 编程初步 程序代码 程序调试，功能完善 程序打包，生成可执行文件EXE,3.1 第1步：基础知识概述,3.1.1 对象 对象是VB对窗体和控件的统称。如Form窗体、Label标签、CommandButton按钮等

3、所有控件都是VB中的对象。对象可以用一组数据来描述它本身的特点，而且还支持对其施加的操作。描述对象本身特点的称为对象的属性，描述对对象施加动作的称为方法。,3.1 第1步：基础知识概述,3.1.2 属性 描述对象本身特点称为对象的属性，所有的VB对象都有各自的属性集合，对象的属性决定了对象的外观和行为。如Form窗体的标题，BackColor，CommandButton按钮上的显示文字的内容和格式等，这些都用属性来描述对象。 设置对象属性的方法有两种：,3.1 第1步：基础知识概述,通过属性窗口 通过属性窗口的属性列表框设置属性，方法是：选中对象，然后在属性窗口中找到相应的属性直接设置，有些属

4、性如：标题（Caption）、文本（Text）需要用户修改建立对象时的默认值。有些属性，如图形（Picture）、图标（Icon）、字体（Font）等，在设置框的右边有三个点的省略号按钮，单击该按钮将打开一个对话框供用户进行属性设置，如图3-1所示。在属性窗口的底部有一个简短的提示对属性做简要的介绍。,图 3-1 属性窗口,3.1 第1步：基础知识概述,通过指令代码设置属性 指令代码修改属性的格式是： 对象名.属性名称=属性值 如将命令按钮Command1的“标题”设置为“确定”的程序代码是： Command1.Caption=确定,3.1 第1步：基础知识概述,3.1.3 方法 描述对对象施

5、加动作的称为方法。方法是系统提供的一种特殊的函数或过程，用于完成某种特定功能，如清除方法Cls，显示方法Show，移动方法Move等。 方法决定了对象可以进行的操作，它只能在程序代码中使用。每个方法完成某种特定的功能，其实现步骤和细节用户看不到，也不能修改。用户可以按照约定直接调用他们，其调用格式如下： 对象名称.方法名称 例如：Form2.Show，表示显示Form2窗体，Form1.Hide表示隐藏Form1，如果Form1是当前窗体，可以使用me.Hide来隐藏当前窗体。,3.1 第1步：基础知识概述,3.1.4 事件 VB是事件驱动的编程机制。所谓“事件驱动”是说只有在事件发生时，程序

6、才能执行，在没有事件时，整个程序是不执行的。就像是客观世界的任何对象都会对外界的刺激做出反应一样，当用户激发出一个事件后，就会产生一个事件过程，执行一段程序代码，而且同一对象对不同的刺激也会产生不同的反应，当一个对象身上发生不同的事件后，也会引起不同的事件过程。总之，一个对象可以有多个事件，各个事件对应不同的代码，实现不同的功能。 “事件”是预先定义好的、能够被对象识别的动作。如单击（Click）事件、双击（Dbclick）事件、装载（Load）事件、鼠标移动（MouseMove）事件等。不同的对象能够识别不同的事件。当事件发生时，VB将检测两条信息：即发生了什么事件和哪个对象接受了事件。 为

7、了使对象能够对由用户或系统触发的某一事件做出响应，就必须编写事件过程。响应某个事件后所执行的操作可以通过一段程序代码来实现，这段独立的程序代码就是“事件过程”。事件过程在对象检测到某个特定事件时执行。一个对象可以识别一个或多个事件，因此可以用一个或多个事件过程对用户的事件做出响应。,3.1 第1步：基础知识概述,事件过程的一般格式是： Private Sub 对象名称_事件名称（） 事件响应程序代码 End Sub 其中，对象名称就是对象的Name属性值，事件名称是由VB预先定义好的赋予该对象的事件，该事件必须是对象所能识别的。如单击名为Command1的命令按钮控件时，退出应用程序的事件过程

8、如下： 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所示，保存位置可以自己选择，文件名

9、也可以更改，更改后单击“确定”，到保存exe文件的位置去查看生成的exe文件，双击后即可出现执行的界面，和在VB环境中的执行界面一样。,图 3-2 生成exe文件,3.2 第2步：界面设计,打开工程，双击窗体Form1，单击属性窗口，在对象下拉列表框中选择“Form1 Form”，设置如下属性： 在属性窗口将窗体的Caption 属性值设置为“阴影字体” BackColor 属性值设置为浅蓝色，方法为：单击BackColor右边的下拉按钮，选择“调色板”，选择第一行第六列的颜色，设置后BackColor属性的值为“&H00FFFFC0&”。 设置Form1窗体的MaxButton属性值为：Fa

10、lse，让窗体右上角没有最大化按钮，只有最小化和关闭按钮 。,注意：BackColor是背景色，用来设置控件的背景颜色，命令按钮除外。,3.2 第2步：界面设计,在窗体上添加两个标签Label1和Label2，将其Auto Size属性改为True，使得Label1和Label2标签可以根据所要显示的内容来自动调整控件的大小， Back Style属性改为0，即设置Label1和Label2标签的背景样式为透明。标签的BackStyle属性用来设置背景样式，0Transparent 表示透明，1Opaque 表示不透明；在使用的时候可用数字，也可以用英文单词。,3.2 第2步：界面设计,添加三

11、个命令按钮Command1Command3，布局排列如图3-3所示，将Commad1，Command2和Command3的Caption属性值分别设置为“左下阴影” 、“右上阴影” 、“右下阴影”。 界面设计的效果如图33所示：,图3-3 界面设计图,3.3 第3步：程序代码,编程思路：阴影字的实现是通过文字的位置和颜色调整来实现文字的阴影效果，对两个同样内容的文字，分别设置不同的颜色，位置稍稍有一些差异，就能显示出阴影的效果，通常情况下，我们把阴影的颜色设置为黑色，前面字体的颜色随意设置，让两者的位置保持一定的差异，即可实现不同角度的阴影效果。,3.3 第3步：程序代码,程序初始化代码 在窗

12、体载入的时候，需要先设置两个标签的位于同样的位置，这样看起来是重叠的效果，看不出阴影，另外我们通过代码设置Label1和Label2标签的字体大小为30，粗体，标签的标题为“欢迎你的到来”，设置阴影标签的字体颜色为黑色，设置前面标签显示的字体颜色为黄色。 在窗体上右键，选择快捷菜单中“查看代码”，进入代码编辑窗口，在对象下拉框中选择“Form”，在事件下拉框中选择“Load”事件， ，系统自动生成了事件的结构，在两行代码中间是用户写代码的位置，在此补充上实现程序初始化的代码，单引号后的文字是注释。,单引号的注释只能注释一行，如果注释换行，需要再用单引号。,3.3 第3步：程序代码,Privat

13、e 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.

14、ForeColor = vbBlack 设置阴影为黑色 Label2.ForeColor = vbYellow 设置文字为黄色 End Sub,3.3 第3步：程序代码,程序执行结果如图34：,图3-4 程序初始界面执行结果图,3.3 第3步：程序代码,提示： 颜色设置的方法有三种： （1）vb +颜色名称，如vbBlue代表蓝色 （2）QBColor（数字代码），如QBColor（1）代表蓝色，参数意义见表31,表31 Color 参数,3.3 第3步：程序代码,（3）采用十六进制表示法 例：Label2.ForeColor = &H80000012& 黑色 2 .控件的字体样式函数有以下几

15、种： FontBold 加粗 FontItalic 倾斜 FontUnderline 下划线 FontStrikethru删除线 例：Label2.FontBold=True 设置标签字体加粗,3.3 第3步：程序代码,3 、控件的位置有Left 和Top两个属性来决定，类似于数学坐标系中的横坐标和纵坐标。Left代表对象的内部左边线距离容器左边缘的距离。Top 代表对象的顶端距离容器顶端的距离。Form窗体是个容器，里面可以放置很多控件，在此设置的Top和Left的值，均指的是距离Form窗体的距离。,3.3 第3步：程序代码,“左下阴影”按钮的程序代码 编程思路：在运行程序时，当单击按钮“

16、左下阴影”时，期望的结果是“欢迎你的到来”出现阴影效果，黑色阴影出现在原文字的左下方，效果如图3-4，仔细观察阴影和文字的相对位置。用代码实现时，需要调整阴影文字相对原黄色文字的位置，让黑色的阴影出现在原文字的左下方，对象的位置通过top和left属性值来决定，所以通过调整Label1的top和left属性值即可实现位置的调整，要以Label2的位置参数作为参照。 黑色阴影文字位置相对原黄色文字左移，即黑色字体所在的Label1要在原来黄色字体Label2的基础上位置左移，通过Label11距离Form1窗体左部的距离相对Label2的距离变小来实现，代码为： Label1.Left=Labe

17、l2.Left-50 提示：位置减少50个单位时阴影效果比较明显且逼真，读者可以修改相对距离，但如果相对距离过大，阴影和原文字就分离了，无法实现阴影的效果，如果太小，阴影效果也不太明显，读者可以自己试验。 阴影位置下移，即黑色字体所在的Label1要在原来黄色字体Label2的基础上下移，通过Label11距离Form1窗体上部的距离相对Label2的距离变大来实现，代码为： Label1.Top = Label2.Top + 50 思路明确后进入代码编写界面。,3.3 第3步：程序代码,双击“左下阴影”按钮进入代码编写窗口，系统自动生成了Command1按钮的单击Click事件的结构，单击C

18、lick事件是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所示。,

19、图3-5 单击“左下阴影”按钮的效果,提示：在VB窗体的坐标系中，坐标原点为窗体的左上角，水平向右横坐标递增，垂直向下纵坐标递增；要注意严格区分。,3.3 第3步：程序代码,3、“右上阴影”按钮的程序代码 编程思路：代码编写思想与“左下阴影”按钮类似。 在运行程序时，当单击按钮“右上阴影”时，期望的结果是“欢迎你的到来”出现阴影效果，黑色阴影出现在原文字的右上方，效果如图3-5。用代码实现时，需要调整阴影文字相对原黄色文字的位置，通过调整Label1的top和left属性值即可实现，以Label2的位置参数作为参照。 黑色阴影文字位置相对原黄色文字右移，即黑色字体所在的Label1要在原来黄色

20、字体Label2的基础上位置右移，通过Label11距离Form1窗体左部的距离相对Label2的距离变大来实现，代码为： Label1.Left=Label2.Left+50 阴影位置上移，即黑色字体所在的Label1要在原来黄色字体Label2的基础上下上移，通过Label11距离Form1窗体上部的距离相对Label2的距离变小来实现，代码为： Label1.Top = Label2.Top -50 思路明确后进入代码编写界面。,3.3 第3步：程序代码,双击“右上阴影”按钮进入代码编写窗口，系统自动生成了Command2按钮的单击Click事件的结构，补充代码和注释，最终如下代码所示。

21、 Private Sub Command2_Click() Label1.Left = Label2.Left +50 设置阴影文字向右偏移50 Label1.Top = Label2.Top - 50 设置阴影文字向上偏移50 End Sub,执行结果见下图（注意同图36区分）,图3-6 右上阴影运行结果图,3.3 第3步：程序代码,4、“右下阴影”按钮的程序代码 编程思路：“右下阴影”的代码分析方法与“左下阴影”和“右上阴影”代码思路类似，与“右上阴影”少有不同。双击“右下阴影”按钮进入代码设计窗口，补充如下的代码与注释。“右下阴影”按钮的name属性值为：Command3。 Privat

22、e 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文件 事件、