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

  1. 1、本文档共23页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
第10章 设计图形和多媒体程序 10.1 图形控件 V B提供了线条(Line)、形状(Shape)、图像框(Image)和图片框(Picture Box)等四个图形控件。如图7-1所示。 线条控件:用来绘制直线 形状控件:绘制正方形、圆形、矩形或椭圆形。 图像框控件:显示各种图形格式文件的图形。 图片框控件:不仅可用来显示现存图形,还可以利用其提供的方法绘制复杂图形。 一、线条(Line)控件 线条控件的主要属性有: BorderStyle(线条风格)、BorderWidth(线宽)、BorderColor(颜色)等属性。 可按下面步骤操作使用线条控件: (1)单击工具栏中线条控件图标。 (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: 直线水平方向的终点坐标 Y2: 直线垂直方向的终点坐标 二、形状控件 使用形状控件的步骤如下: (1) 单击工具箱中的形状控件按钮。 (2) 在窗体中画出形状。 (3) 设置属性,定制形状的外观。 (4) 调整设置好的形状。可单击形状使其成为可编辑状态,通过鼠标拖动改变其大小和位置,再用属性窗口设置属性,使其符合设计要求。 形状控件的主要属性: (1) Shape(形状)属性 此属性决定其显示形状,该属性有6个可选值,如表9-2所示。 (2) FillStyle(填充模式) 设置FillStyle可以构成不同的填充效果。FillStyle可以在0~7之间取值,各数值对应的效果如表7-3。 三、图像框控件 1。 Stretch属性 (1)True——图形能够自动缩放以适应图像框大小;以图像框的大小为准。 (2) False——(默认值)图像框自动随实际图像大小缩放。以图像实际大小显示。 当在程序中动态加入图形时,为防止因图形大小不一而影响界面,可以置Stretch为True。 2。 Picture属性 为显示一幅图像,要对Picture赋值。可以用LoadPicture方法,也可用其他图像框或图片框的图像数据来赋值。 Imagel.Picture=LoadPicture(c:\widnows\sun.bmp) Imagel.Picture=Image2.Picture Imagel.Picture=Picture1.Picture 把图片框1的图像赋给图像框1。 3。用图像框设计动画程序 首先准备制作动画的素材,选用两幅蝴蝶的图片bfly1.bmp和bfly2.bmp(在VB\Samples\Pguide\VCR下)。 (1)在窗体上,放三个图像框(Image)、一个定时器控件(Timer)和一个命令按钮控件。 (2)为Image1和Image2的Picture属性填入文件名。设置Command1的Caption属性为“开始动画”,设置定时Timer1的Interval(定时间隔)属性为200,Enabled属性为False。设计好的界面如图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

文档评论(0)

wuyoujun92 + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档