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

VB多媒体编程实例 例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。 在代码窗口中添加上以下代码： 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单击“返回” 按钮，又回到开始窗体。 打开Visual Basic，从工具箱上选择2个命令控件Command1、Command2添加到Form1窗体，它们的Caption 属性分别添上“演示1”和“演示2”，如图8-3。Form1窗体默认为开始窗体。 用[工程][添加窗体]命令加窗体Form2，从工具箱上选择1个命令控件Command1添加到Form2窗体，其Caption属性添上“返回”。 用[工程][添加窗体]命令加窗体Form3，从工具箱上选择3个命令控件Command1、Command2、Command3添加到Form3窗体，其Caption属性分别添上“叠加射线”、“交替圆”和“返回”。 打开Form1代码窗口，添加上以下代码： Private Sub Command1_Click() Form2.Hide Form3.Show End Sub Private Sub Command2_Click() Form3.Hide Form2.Show End Sub 该代码实现的是单击Command1按纽显示窗体3、隐藏窗体2，单击Command2按纽显示窗体2、隐藏窗体3。 5）打开Form3代码窗口，添加上以下代码： Private Sub Form_Loa