《Visual Basic程序设计》课件第9章

主要内容绘制图形（点）绘制图形（直线和矩形）绘制圆、椭圆、弧线图片框和图像框

多媒体控件API应用

1.1图像浏览器案例说明

本案例是模拟夜晚的星空，呈现出“繁星满天”的样子。程序运行之后会显示如图9-1所示的图形。用黑色背景的窗体模拟“夜晚的天空”，在“夜晚的天空”上会有一个个出现在不同位置上的“星星”。这些“星星”都是通过VB的程序语句绘制的一个个“小点”。本案例的主要任务就是通过形象有趣的案例来掌握PSet方法实现点的绘制。

1.2程序实现

界面设计：新建一个工程文件，在窗体上添加一个时钟控件，其界面设计如图9-2所示。按表9-1设置各个控件的属性。

2.代码设计：1.3相关知识

1.VB中的坐标系统：设置坐标系统的目的在于确定容器（容器是指其内部可以包含其他对象的对象，如窗体、框架、图片框等）中点的位置，坐标包括“横坐标”（x轴）和“纵坐标”（y轴），x值是指点与原点的水平距离，y值是指点与原点的垂直距离。2.默认坐标系统和度量单位：从容器的左上角作为原点（0，0）坐标的，且在默认状态下，坐标是以twips（缇）为度量单位的。

1.3相关知识

3.用户自定义坐标系统

：使用ScaleLeft、ScaleTop、ScaleHeight和ScaleWidth属性设置坐标系统需要设置窗体左上角坐标为（20，20），而右下角的坐标值为（60，60）：

Form1.ScaleTop＝20 Form1.ScaleLeft＝20 Form1.ScaleHeight＝40 Form1.ScaleWidth＝40右下角的坐标与左上角、高度及宽度的关系为： 右下角的x坐标＝ScaleLeft＋ScaleWidth

右下角的y坐标＝ScaleTop＋ScaleHeight1.3相关知识

使用Scale方法定义坐标系统：

[对象名].Scale[(x1,y1)－(x2,y2)]颜色的引用：（1）RGB函数（2）QBColor函数（3）使用颜色的内部常数（4）直接输入一种颜色值1.3相关知识

5.PSet函数实现点的绘制

[对象名].PSet[Step](x,y)[,Color]2.1绘制直线和矩形案例说明在窗体上有三个命令按钮，分别是“绘制直线”、“绘制矩形”和“绘制三角形”。单击某个按钮，则在窗体上绘制相应的图形。通过本案例来介绍VB中如何绘制直线和举行等图形。

2.2程序实现1.界面设计：新建一个工程文件，在窗体上放置三个按钮控件

2.代码设计：2.3相关知识1.绘制直线绘制直线有两种方法可以实现，一是采用直线控件（Line）二是采用Line方法：[对象.]Line[Step](x1,y1)]-[Step](x2,y2)[,Color]

返回2.3相关知识2.绘制矩形使用Line方法绘制矩形，可以用绘制直线的办法依次画出矩形的4条边。也可以通过指定矩形的左上角和右下角坐标完成绘制过程。[对象.]Line[[Step](x1,y1)]-[Step](x2,y2)[,Color],B[F]

参数B表示要画一个矩形，F选项规定矩形以矩形边框的颜色填充，省略时绘制空心矩形。FillStyle属性以不同的风格填充矩形。FillStyle属性的取值如表9-9所示。

返回3.1圆的制作案例说明本案例演示如何绘制圆形图案。在窗体上放置3个按钮，分别是“画圆”、“画椭圆”和“画弧线”，如图9-10所示。，当按下“画圆”按钮时，在窗体上以随机颜色和随机半径画圆图9-11，多次单击该按钮则会有许多不同颜色和大小的同心圆显示在窗体上；当按下“画椭圆”时，会在窗体上显示如图9-12所示的椭圆；当按下“画弧线”时，会在窗体上显示如图9-13所示的图形。3.2

程序实现

1.界面设计在窗体上放置3个按钮，按钮的标题属性分别设置成图9-10所示，窗体的DrawWidth属性设置为3，可以确定所画线的宽度；其他属性取默认值。 2.代码设计：3.3相关知识1.圆的绘制 使用Circle方法绘制圆是最简单的用法。格式如下：[对象.]Circle[Step](x,y),radius[,Color]2.椭圆的绘制使用Circle方法可以绘制椭圆。绘制椭圆与圆相比多一个“纵横比”参数，格式如下：

[对象.]Circle[Step](x,y),radius[,Color],,,纵横比

3.弧线的绘制：圆周的一部分就是圆弧。采用Circle方法可以绘制圆弧，需加上起始角和终止角即可。[对象.]Circle[Step](x,y),radius[,Color][,起始角][,终止角]

4.1图片浏览案例说明用户在电脑上选择一幅图片，可以在右边的图片框中显示出来；如果图片超出了图片框的大小，则可以通过水平和垂直滚动条的拖动来显示图片超出范围的其余细节。

4.2

程序实现

1.界面设计：在窗体上添加两个图片框Picture1和Picture2，驱动器列表框控件Drive1、目录列表框控件Dir1、文件列表框控件File1、水平滚动条控件HSroll1、垂直滚动条控件VSroll1。

2.代码设计：4.3相关知识1.图片框控件图片框(PictureBox)通常用于显示位图、图标、JPEG文件等，图片框的属性有BackColor、DrawWidth、DrawStyle、ForeColor、FillStyle、FillColor、ScaleMode等，

5.1图像框应用案例说明该程序可以在图像框中加载图片。当按下“true”按钮时，图像可以拉伸以适应图像框的大小（如图9-15），当按下“false”按钮时图像会恢复本来的大小（如图9-16）。5.2

程序实现

1.界面设计：新建一个工程文件，在窗体上添加一个图像框和两个按钮，各控件属性设置见下表9-13。2.代码设计：5.3相关知识1.图像框控件和图片框控件的区别（1）图像框控件占用的系统资源比图片框少而且重新绘图速度快，所以为了节省内存，一般尽量使用图像框。 （2）图片框控件可以作为容器包含其他控件，并且控件从属于图片框，而图像框虽然也可以作为控件的容器，但是图像框和控件的关系是独立的，控件不从属于图像框。 （3）两种控件都支持相同的图片格式，但图像框控件中可以伸展图片的大小使之适合控件的大小，而图片框控件中不能这样做。5.4制作动画拓展知识当按下开始按钮时，界面上的小人开始跑动，当按下停止按钮时跑动的小人会定格在界面上，并且该程序可以通过水平滚动条控制小人跑动的速度。事实上，该程序是在窗体上放置了8个图像框控件，并且每个控件中装载一张图片，除第一个图像框Visible属性可见外，其余图像框的Visible属性均设置为不可见。当按下开始按钮时，启动时钟控件，将其余七个图像框中的图像放置到第一个图像框中，并且使用图像框的move方法实现第一个图像框的移动，达到动作连贯的动画效果。返回6.1多媒体播放器案例说明利用VB中的多媒体控件制作一个简单的多媒体播放器。用户可以从驱动器列表和目录列表中选择文件，并允许用户选择文件的类型。当用户点击文件列表框中的文件时，即会开始播放选中的文件。

6.2

程序实现

1.界面设计：新建一个工程文件，在窗体上添加框架控件、驱动器列表框、目录列表框、文件列表框、标签、组合框，各1个。单击“工程”菜单中的“部件”命令，在“控件”选项卡中找到“MicrosoftMultimediaControl6.0”并单击其右边的复选框，此时在“工具箱”中新增了一个MultimediaMCI多媒体控件。

2.代码设计：6.3相关知识1.MMControl多媒体控件的添加VB提供了多种可实现多媒体播放的控件，Animation控件、Multimedia控件、ActiveMovie控件MediaPlayer控件MultimediaMCI多媒体控件等。

6.3相关知识2.MultimediaMCI控件常用的属性（1）ButtonEnabled属性（2）ButtonVisible属性（3）DeviceType属性（4）FileName属性（5）Notify属性（6）Orientation属性（7）Wait属性6.3相关知识3.MultimediaMCI控件的常用命令

见表9-167.1API实现播放器案例说明采用API函数实现一个多媒体播放器，该多媒体播放器依靠API函数来实现各类多媒体文件的播放

7.2

程序实现

1.界面设计：新建一个工程文件，在窗体上添加1个驱动器列表框、1个目录列表框、1个文件列表框、1个组合框、4个命令按钮以及3个标签控件，调整这些控件的位置和大小，并设置控件的属性，

2.代码设计：单击菜单栏中“工程”菜单的“添加模块”命令项，弹出“添加模块”对话框，如图9-23所示。单击“新建”选项卡中的“打开”按钮，在标准模块中写入以下代码：

PublicDeclareFunctionmciExecuteLib"winmm.dll"(ByVallpstrCommandAsString)AsLong7.3相关知识1.API函数简介“Win32API”的全称是“WindowsApplicationProgrammingInterface”，是一些由操作系统自身调用的函数。API函数由许多“动态连接库”（Dynamic-LinkLibrary，简称DLL）组成，在32位Windows中，核心的APIDLL有：Gdi32.dll：图形显示界面的API；Kernel32.dll：处理低级任务（比如内存和任务管理）的API；User32.dll：处理窗口和消息的API；Winmm.dll：处理多媒体任务的API，多媒体编程中主要使用的API函数就在这个连接库中。

7.3相关知识2.API函数的说明在