《多媒体应用程序设计》例题解析new

《《多媒体应用程序设计》例题解析new》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、VB多媒体编程实例例1：在窗体上显示正方形、圆形、矩形、圆角矩形等图形，并能设置图形的线形和填充方式。1）打开VB，从工具箱上选择7个命令控件Command1、Command2、Command3、Command4、Command5、Command6、Command7，一个标签控件Label1添加到窗体Form1的左边如图8.2，在它们的Caption属性上分别填上矩形、正方形、椭圆、圆、圆角矩形、圆角正方形和当前填充方式，然后从工具箱上选择一个形状控件Shape1和两个水平滚动条Hscroll1、Hscroll2，并把它们添加到Form1窗体的右边如图8-2。Hscroll

2、1的Min和Max属性分别设为1和6、Hscroll2的Min和Max属性分别设为0和7。图8-2Form1窗体示意图2）在代码窗口中添加上以下代码：PrivateSubCommand1_Click()Shape1.Shape=0EndSubPrivateSubCommand2_Click()Shape1.Shape=1EndSub8/8PrivateSubCommand3_Click()Shape1.Shape=2EndSubPrivateSubCommand4_Click()Shape1.Shape=3EndSubPrivateSubCommand5_Click()Sh

3、ape1.Shape=4EndSubPrivateSubCommand6_Click()Shape1.Shape=5EndSubPrivateSubCommand7_Click()EndEndSubPrivateSubForm_Load()Label1.Caption="当前线宽："+Str$(HScroll1.Value)EndSubPrivateSubHScroll1_Change()Label1.Caption="当前线宽："+Str$(HScroll1.Value)Shape1.BorderWidth=HScroll1.ValueEndSubPrivateSubHS

4、croll2_Change()8/8Shape1.FillStyle=HScroll2.ValueEndSub按F5键运行编好的程序，此时，按不同的命令按纽，在形状控件显示不同的形状，如按矩形按纽，形状控件就显示矩形形状。分别移动两个水平滚动条可改变形状的边宽（BorderWidth）和填充样式（FillStyle）。例2：一个多窗体的演示程序。Form1为开始窗体，Form2为由圆环构成的艺术图，Form3为画随机射线的基础上进行图形叠加。在开始窗体单击“演示1”按钮进入Form3，单击“演示2”按钮进入Form2，在Form3和Form2单击“返回”按钮，又回到开始窗体

5、。1）打开VisualBasic，从工具箱上选择2个命令控件Command1、Command2添加到Form1窗体，它们的Caption属性分别添上“演示1”和“演示2”，如图8-3。Form1窗体默认为开始窗体。图8-3Form1窗体2）用[工程][添加窗体]命令加窗体Form2，从工具箱上选择1个命令控件Command1添加到Form2窗体，其Caption属性添上“返回”。3）用[工程][添加窗体]命令加窗体Form3，从工具箱上选择3个命令控件Command1、Command2、Command3添加到Form3窗体，其Caption属性分别添上“叠加射线”、“交替圆

6、”和“返回”。4）打开Form1代码窗口，添加上以下代码：PrivateSubCommand1_Click()8/8Form2.HideForm3.ShowEndSubPrivateSubCommand2_Click()Form3.HideForm2.ShowEndSub该代码实现的是单击Command1按纽显示窗体3、隐藏窗体2，单击Command2按纽显示窗体2、隐藏窗体3。5）打开Form3代码窗口，添加上以下代码：PrivateSubForm_Load()Scale(-320,240)-(320,-240)DrawMode=7EndSubPrivateSubComm

7、and1_Click()Dimi,colorcodeFori=1To100x=320*RndIfRnd<0.5Thenx=-xy=240*RndIfRnd<0.5Theny=-ycolorcode=15*RndLine(0,0)-(x,y),QBColor(colorcode)NextiEndSubPrivateSubCommand2_Click()Staticx,yAsSingle,colorcodeAsIntegerLine(0,0)-(x,y),QBColor(colorcode),BFx=200*Rnd8/