设计图形和多媒体程序.ppt

《设计图形和多媒体程序.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第10章设计图形和多媒体程序10.1图形控件VB提供了线条(Line)、形状(Shape)、图像框(Image)和图片框(PictureBox)等四个图形控件。如图7-1所示。线条控件：用来绘制直线形状控件：绘制正方形、圆形、矩形或椭圆形。图像框控件：显示各种图形格式文件的图形。图片框控件：不仅可用来显示现存图形，还可以利用其提供的方法绘制复杂图形。一、线条（Line)控件线条控件的主要属性有：BorderStyle(线条风格)、BorderWidth(线宽)、BorderColor(颜色)等属性。可按下面步骤操作使用线条控件：(1)单击工具栏中线条控件图标。(2)在窗体上画出所需线

2、条。(3)打开属性窗口，设置线条属性，如线条风格、线条颜色等。(4)对线条调整:直线的移动；改变直线的端点位置和长度。线条控件的主要属性(1)BorderStyle属性BorderStyle属性决定线条的类型。此属性有7个取值：0～6，分别对应着不同的线条类型：0透明线1实心线2长划线3点线4点划线5点点相间的长划线6内部实线(2)BorderWidth属性BorderWidth属性决定着线条的宽度，即线条的粗细，如图7-2所示。(3)其它属性BorderColor：此属性决定线条的颜色，通过属性框中颜色调色板设置。X1:直线水平方向的起始坐标Y1:直线垂直方向的起始坐标X2:直线水

3、平方向的终点坐标Y2:直线垂直方向的终点坐标二、形状控件使用形状控件的步骤如下：(1)单击工具箱中的形状控件按钮。(2)在窗体中画出形状。(3)设置属性，定制形状的外观。(4)调整设置好的形状。可单击形状使其成为可编辑状态，通过鼠标拖动改变其大小和位置，再用属性窗口设置属性，使其符合设计要求。形状控件的主要属性：(1)Shape(形状)属性此属性决定其显示形状，该属性有6个可选值，如表9-2所示。(2)FillStyle(填充模式)设置FillStyle可以构成不同的填充效果。FillStyle可以在0～7之间取值，各数值对应的效果如表7-3。三、图像框控件1。Stretch属性（1

4、）True——图形能够自动缩放以适应图像框大小；以图像框的大小为准。（2）False——(默认值）图像框自动随实际图像大小缩放。以图像实际大小显示。当在程序中动态加入图形时，为防止因图形大小不一而影响界面，可以置Stretch为True。2。Picture属性为显示一幅图像，要对Picture赋值。可以用LoadPicture方法，也可用其他图像框或图片框的图像数据来赋值。Imagel.Picture=LoadPicture("c:widnowssun.bmp")Imagel.Picture=Image2.PictureImagel.Picture=Picture1.Pictur

5、e把图片框１的图像赋给图像框１。3。用图像框设计动画程序首先准备制作动画的素材，选用两幅蝴蝶的图片bfly1.bmp和bfly2.bmp(在VBSamplesPguideVCR下)。(1)在窗体上，放三个图像框(Image)、一个定时器控件(Timer)和一个命令按钮控件。(２)为Image1和Image2的Picture属性填入文件名。设置Command1的Caption属性为“开始动画”，设置定时Timer1的Interval(定时间隔)属性为200，Enabled属性为False。设计好的界面如图9-10所示。编写代码----用定时器控制图片的交替显示PrivateSub

6、Timer1_Timer()Staticflag'定义静态变量Ifflag=0ThenImage3.Picture=Imagel.Pictureflag=1ElseImage3.Picture=Image2.Pictureflag=0EndIfEndSub用Command1控制动画开始设置Timer1的Enabled属性为Ture即可。PrivateSubCommand1_Click()Timer1.Enabled=TrueTimer2.Enabled=TrueEndSubVB10L蝴蝶飞Ｍove方法的语法格式为：[对象.]MoveLeft[,Top,Width,Height]Lef

7、t：图象框左边的新位置Top：图象框顶端的新位置Width：图象框的新宽度Height：图象框的新高度。Left参数是必须提供的。让蝴蝶水平移动，用下面语句：Image3.MoveImage3.Left+100Image3.MoveImage3.Left+100,Image3.top-50020004000Image1位置二位置一101000(0,0)TopLeft蝴蝶重新飞回的代码IfImage3.Left>=Form1.ScaleWidththenIm