第10章设计图形和多媒体程序.ppt
《第10章设计图形和多媒体程序.ppt》由会员分享,可在线阅读,更多相关《第10章设计图形和多媒体程序.ppt(23页珍藏版)》请在三一文库上搜索。
1、第10章 设计图形和多媒体程序,10.1 图形控件 V B提供了线条(Line)、形状(Shape)、图像框(Image)和图片框(Picture Box)等四个图形控件。如图7-1所示。 线条控件:用来绘制直线 形状控件:绘制正方形、圆形、矩形或椭圆形。 图像框控件:显示各种图形格式文件的图形。 图片框控件:不仅可用来显示现存图形,还可以利用其提供的方法绘制复杂图形。,一、线条(Line)控件,线条控件的主要属性有: BorderStyle(线条风格)、BorderWidth(线宽)、BorderColor(颜色)等属性。 可按下面步骤操作使用线条控件: (1)单击工具栏中线条控件图标。 (
2、2)在窗体上画出所需线条。 (3)打开属性窗口,设置线条属性,如线条风格、线条颜色等。 (4) 对线条调整: 直线的移动;改变直线的端点位置和长度。,线条控件的主要属性,(1) BorderStyle 属性 BorderStyle属性决定线条的类型。此属性有7个取值:06,分别对应着不同的线条类型: 0 透明线 1 实心线 2 长划线 3 点线 4 点划线 5 点点相间的长划线 6 内部实线,(2) BorderWidth属性,BorderWidth属性决定着线条的宽度,即线条的粗细,如图7-2所示。 (3)其它属性 BorderColor: 此属性决定线条的颜色,通过属性框中颜色调色板设置。
3、 X1: 直线水平方向的起始坐标 Y1: 直线垂直方向的起始坐标 X2: 直线水平方向的终点坐标 Y2: 直线垂直方向的终点坐标,二、形状控件,使用形状控件的步骤如下: (1) 单击工具箱中的形状控件按钮。 (2) 在窗体中画出形状。 (3) 设置属性,定制形状的外观。 (4) 调整设置好的形状。可单击形状使其成为可编辑状态,通过鼠标拖动改变其大小和位置,再用属性窗口设置属性,使其符合设计要求。,形状控件的主要属性:,(1) Shape(形状)属性 此属性决定其显示形状,该属性有6个可选值,如表9-2所示。 (2) FillStyle(填充模式) 设置FillStyle可以构成不同的填充效果。
4、FillStyle可以在07之间取值,各数值对应的效果如表7-3。,三、图像框控件,1。 Stretch属性 (1)True图形能够自动缩放以适应图像框大小;以图像框的大小为准。 (2) False(默认值)图像框自动随实际图像大小缩放。以图像实际大小显示。 当在程序中动态加入图形时,为防止因图形大小不一而影响界面,可以置Stretch为True。,2。 Picture属性,为显示一幅图像,要对Picture赋值。可以用LoadPicture方法,也可用其他图像框或图片框的图像数据来赋值。 Imagel.Picture=LoadPicture(“c:widnowssun.bmp“) Image
5、l.Picture=Image2.Picture Imagel.Picture=Picture1.Picture 把图片框的图像赋给图像框。,3。用图像框设计动画程序,首先准备制作动画的素材,选用两幅蝴蝶的图片bfly1.bmp和bfly2.bmp(在VBSamplesPguideVCR下)。 (1)在窗体上,放三个图像框(Image)、一个定时器控件(Timer)和一个命令按钮控件。 ()为Image1和Image2的Picture属性填入文件名。设置Command1的Caption属性为“开始动画”,设置定时Timer1的Interval(定时间隔)属性为200,Enabled属性为Fal
6、se。设计好的界面如图9-10所示。,编写代码-用定时器控制图片的交替显示,Private Sub Timer1_Timer() Static flag 定义静态变量 If flag=0 Then Image3.Picture=Imagel.Picture flag=1 Else Image3.Picture=Image2.Picture flag=0 End If End Sub,用Command1控制动画开始,设置Timer1 的Enabled属性为Ture即可。 Private Sub Command1_Click() Timer1.Enabled=True Timer2.Enabled
7、=True End Sub,VB10L蝴蝶飞,ove方法的语法格式为:,对象. Move Left ,Top , Width , Height Left:图象框左边的新位置 Top:图象框顶端的新位置 Width:图象框的新宽度 Height:图象框的新高度。 Left参数是必须提供的。 让蝴蝶水平移动,用下面语句: Image3.Move Image3.Left+100 Image3.Move Image3.Left+100,Image3.top-50,蝴蝶重新飞回的代码,If Image 3.Left = Form1.ScaleWidth then Image3. Left = Form1
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 10 设计 图形 多媒体 程序
链接地址:https://www.31doc.com/p-2106934.html