《设计图形和多媒体程序.ppt》由会员分享，可在线阅读，更多相关《设计图形和多媒体程序.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：此属性决定线条的颜色，通过属性框中颜色调色板设置。X1:直线水平方向的起始坐标 Y1:直
3、线垂直方向的起始坐标X2:直线水平方向的终点坐标 Y2:直线垂直方向的终点坐标,二、形状控件,使用形状控件的步骤如下：(1)单击工具箱中的形状控件按钮。(2)在窗体中画出形状。(3)设置属性，定制形状的外观。(4)调整设置好的形状。可单击形状使其成为可编辑状态，通过鼠标拖动改变其大小和位置，再用属性窗口设置属性，使其符合设计要求。,形状控件的主要属性：,(1)Shape(形状)属性 此属性决定其显示形状，该属性有6个可选值，如表9-2所示。(2)FillStyle(填充模式)设置FillStyle可以构成不同的填充效果。FillStyle可以在07之间取值，各数值对应的效果如表7-3。,三、图
4、像框控件,1。Stretch属性（1）True图形能够自动缩放以适应图像框大小；以图像框的大小为准。（2）False(默认值）图像框自动随实际图像大小缩放。以图像实际大小显示。当在程序中动态加入图形时，为防止因图形大小不一而影响界面，可以置Stretch为True。,2。Picture属性,为显示一幅图像，要对Picture赋值。可以用LoadPicture方法，也可用其他图像框或图片框的图像数据来赋值。Imagel.Picture=LoadPicture(c:widnowssun.bmp)Imagel.Picture=Image2.Picture Imagel.Picture=Picture
5、1.Picture 把图片框的图像赋给图像框。,3。用图像框设计动画程序,首先准备制作动画的素材，选用两幅蝴蝶的图片bfly1.bmp和bfly2.bmp(在VBSamplesPguideVCR下)。(1)在窗体上，放三个图像框(Image)、一个定时器控件(Timer)和一个命令按钮控件。()为Image1和Image2的Picture属性填入文件名。设置Command1的Caption属性为“开始动画”，设置定时Timer1的Interval(定时间隔)属性为200，Enabled属性为False。设计好的界面如图9-10所示。,编写代码-用定时器控制图片的交替显示,Private Sub
6、 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=True End Sub,VB10L蝴蝶飞,ove方法的语法格式为：,对象.Move Left,Top
7、,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.LeftEnd IfImage3.Move Image3.Left+100 控制蝴蝶水平移动 用定时器Timer2控制蝴蝶移动速度
8、：设置其Enabled属性为False，Interval属性为250(移动间隔)。,在Timer2_Timer过程中添加下面代码：,Private Sub Timer2_Timer()If Image3.Left=Me.ScaleWidth Then Image3.Left=Me.Left-100 end if Image3.Move Image3.Left+100End Sub最后在Command1_Click()中添加代码Timer2.Enabled=True以启动定时器2。(vb7dh),四、图片框控件,1。使用Visual Basic颜色 Visual Basic提供了两个选择颜色函数
9、QBColor()和RGB()，其中QBColor()能够选择16种颜色。表7-4列出了QBColor()能够选择的颜色：表10-4 QBColor()可选择的颜色 RGB()函数能够选择更多的颜色，此函数有三个参数：RGB(R,G,B)R、G、B分别指明颜色中红色、绿色、蓝色的比例，它们的取值范围为0255。,10.2 图形方法,1Scale方法Scale方法定义绘图的坐标系。语法格式：对象.Scale(LeftX,TopY)-(RightX,BottomY)对象：可为Form和PictureBox控件。LerftX,TopY：所定义坐标系中左上角的坐标。RightX,BottomY：坐标系
10、中右下角的坐标。,Scale(-200,200)-(200,-200),如何定义一个如图的坐标系。,2Line方法,Line方法用来画线，格式为：对象.LineStep(X1,Y1)-Step(X2,Y2),Color,BF（1）(X1,Y1)和(X2,Y2)：线段的起止坐标；(X1,Y1)省略表示从当前位置开始画到(X2,Y2)点。（2）Step：是相对意义，为相对于当前点的坐标。（3）Color：用于设置画线颜色。（4）B：表示以(X1,Y1)和(X2,Y2)对角坐标画一方框。加入F则表示对矩形框填充。例如：Form1.Line(200,550)-(600,600)Line-(800,70
11、0)，Vbred,B,Line(200,300)-(400,100)与Line(200,300)-Step(200,-200)是等效的。,例2（10-2）在窗体上画多条直线。所画直线的宽度由DrawWidth属性决定，每条直线的颜色是随机的。(vb10L10-2),Private Sub Form_Click()For c=1 to 10 Form1.DrawWidth=c*2 Form1.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Line(100,c*200)-(100+c*500,c*200)Next cEnd Sub,例3(10-3)用Line方法在窗体
12、上画出如图所示的随机射线.(vb10L10-3),Private Sub Form_Click()Dim i As Integer,x As Single,y As Single Scale(-320,240)-(320,-240)For i=1 To 100 x=320*Rnd If Rnd 0.5 Then x=-x y=240*Rnd If Rnd 0.5 Then y=-y colorcode=15*Rnd Line(0,0)-(x,y),QBColor(colorcode)Next iEnd Sub,3Circle方法,Circle方法用来画圆、椭圆、弧等。格式：对象.Circle
13、step(x,y),radius,color,start,end,aspet,例4：Circle(2000,2000),1500,Qbcilor(4),0.5（VB10L4),(1)(x,y)为圆心坐标。(2)radius为半径长度。(3)color为图形颜色(4)start、end确定圆或椭圆弧的起止角度，取值范围为-22(5)aspet:为圆的纵横比。画圆时为1(缺省值)，,4PSet方法,在指定位置用指定颜色画点。其语法格式如下：对象.Pset Step(X,Y),Color(1)对象:是可以是窗体和图片框。(2)(,)为画点的位置坐标。(3)Color可选，用于设置点的颜色。如:Pic
14、ture1.DrawWidth=10 设置点的粗度 Picture1.Pset(270,250),RGB(255,0,0)画一个亮红点,Vbred或Qbcolor(12),例5(10-6)用Pset方法绘制阿基米德螺线.,Private Sub Form_Click()Dim x As Single,y As Single,i As Single Scale(-15,15)-(15,-15)Line(0,14)-(0,-14)Line(14.5,0)-(-14.5,0)Form1.DrawWidth=5,加一延时程序，起动画效果,螺线方程,For i=0 To 12 Step 0.01 y=i*Sin(i)x=i*Cos(i)PSet(x,y),vbRed For j=1 To 150000 Next jNext iEnd Sub,上机作业1。P100 四、实验题目（装入图片参考本实验的二、实验范例）2。上册P335 作蝴蝶飞（可查找bfly1.bmp和bfly2.bmp作蝴蝶）3。上册P339 例10-2（要求射线0.5秒变化一次。4。选作：上册P344 例10-7,
