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

VB多媒体编程实例 例1：在窗体上显示正方形、圆形、矩形、圆角矩形等图形，并能设置图形的线形和填充方式。1） 打开VB，从工具箱上选择7个命令控件Command1、Command2、Command3、Command4、Command5、Command6、Command7，一个标签控件Label1添加到窗体Form1的左边如图 8.2，在它们的Caption 属性上分别填上矩形、正方形、椭圆、圆、圆角矩形、圆角正方形和当前填充方式，然后从工具箱上选择一个形状控件Shape1和两个水平滚动条Hscroll1 、Hscroll2，并把它们添加到Form1窗体的右边如图 8-2。Hscroll1 的Min和Max属性分别设为1和6、Hscroll2的Min和Max属性分别设为0和7。图8-2 Form1窗体示意图 2） 在代码窗口中添加上以下代码： Private Sub Command1_Click() Shape1.Shape = 0 End Sub Private Sub Command2_Click() Shape1.Shape = 1 End Sub Private Sub Command3_Click() Shape1.Shape = 2 End Sub Private Sub Command4_Click() Shape1.Shape = 3 End Sub Private Sub Command5_Click() Shape1.Shape = 4 End Sub Private Sub Command6_Click() Shape1.Shape = 5 End Sub Private Sub Command7_Click() End End Sub Private Sub Form_Load() Label1.Caption = 当前线宽： + Str$(HScroll1.Value) End Sub Private Sub HScroll1_Change() Label1.Caption = 当前线宽： + Str$(HScroll1.Value) Shape1.BorderWidth = HScroll1.Value End Sub Private Sub HScroll2_Change() Shape1.FillStyle = HScroll2.Value End Sub 按F5键运行编好的程序，此时，按不同的命令按纽，在形状控件显示不同的形状，如按矩形按纽，形状控件就显示矩形形状。分别移动两个水平滚动条可改变形状的边宽（BorderWidth）和填充样式（FillStyle）。 例2：一个多窗体的演示程序。Form1为开始窗体，Form2为由圆环构成的艺术图，Form3为画随机射线的基础上进行图形叠加。在开始窗体单击“演示1”按钮进入Form3，单击“演示2”按钮进入Form2，在Form3和Form2单击“返回” 按钮，又回到开始窗体。1） 打开Visual Basic，从工具箱上选择2个命令控件Command1、Command2添加到Form1窗体，它们的Caption属性分别添上“演示1”和“演示2”，如图8-3。Form1窗体默认为开始窗体。图8-3 Form1窗体2） 用工程添加窗体命令加窗体Form2，从工具箱上选择1个命令控件Command1添加到Form2窗体，其Caption属性添上“返回”。3） 用工程添加窗体命令加窗体Form3，从工具箱上选择3个命令控件Command1、Command2、Command3添加到Form3窗体，其Caption属性分别添上“叠加射线”、“交替圆”和“返回”。4） 打开Form1代码窗口，添加上以下代码： Private Sub Command1_Click() Form2.Hide Form3.ShowEnd Sub Private Sub Command2_Click() Form3.Hide Form2.Show End Sub 该代码实现的是单击Command1按纽显示窗体3、隐藏窗体2，单击Command2按纽显示窗体2、隐藏窗体3。5）打开Form3代码窗口，添加上以下代码： Private Sub Form_Load() Scale (-320, 240)-(320, -240) DrawMode = 7 End Sub Private Sub Command1_Click() Dim i, colorcode 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 i End Sub Private Sub Command2_Click() Static x, y As Single, colorcode As Integer Line (0, 0)-(x, y), QBColor(colorcode), BF x = 200 * Rnd If Rnd 0.5 Then x = -x y = 100 * Rnd f Rnd Form1.Height Then Image1.Top = 0 If Image1.Left + Image1.Width + 100 Form1.Width Then Image1.Left = 0 Image1.Top = Image1.Top + 50 Image1.Left = Image1.Left + 100 p1 = c:my documentsfla43 copy.gif p2 = c:my documentsfla44 copy.gif flag = flag* -1 If flag = 1 Then Image1.Picture = LoadPicture(p1)