Visual Basic 5.0多媒体创作技巧

Visual Basic 5.0因其可视化的编程方式越来越受到编程人员的青睐，我们可以使用Visual Basic 5.0编写拥有漂亮的界面、动听的音乐的多媒体软件。但在实际的编程过程中可能会遇到一些难以解决的问题，以下是笔者在多媒体创作中的几点经验，或许能丰富一下你的多媒体配件箱。

一、背景音乐

在使用Visual Basic 5.0编制应用程序时，我们可以利用OLE嵌套的方 法很容易的为一个应用程序加入背景音乐。

进入Visual Basic 5.0系统环境，建立一个新的表单。点击‘表单控制’上的‘OLE容器’，并将其拖至FORM中任意位置。在‘插入对象’窗口中选择‘媒体剪辑’，选中‘以图标显示’栏（必须选中此栏，否则无法将其隐藏起来），按‘确认’键退出。 
在‘媒体播放机’窗口中，选择‘文件’、‘打开’，从文件列表中选择想要作为背景音乐的声音文件。由于音乐文件一般不是很长，所以要求循环播放，可以通过设置‘媒体播放机’重复播放来实现。然后选择‘编辑’菜单中的‘选项’，在选项窗口中选中‘重复播放’和去掉‘重放的控制条’前的选中标记，确认后退出。 
回到Visual Basic 5.0系统环境，按下鼠标右键，在弹出菜单中点击‘属性’栏调出属性窗口。选择‘Ole1’对象，将它的‘Visible’属性设为.F.，‘Autosize’属性设为.F.。再按下鼠标右键，在弹出菜单中点击‘代码’栏进入过程书写窗口，编写‘Form1’对象的‘Load’过程： 
Private Sub Form_Load()

OLE1.DoVerb (0)

End Sub

4、 按‘F5’键运行即可。

二、透明效果立体按钮

在制作多媒体软件时有时需要有透明效果的立体按钮，我们可以利用标签（LABEL）与形状（SHAPE）的组合来完成这一设计。

进入Visual Basic 5.0系统环境，建立一个新的表单（FORM1），并设置FORM1的Picture属性为一个WINDOWS位图文件（.BMP）。 
鼠标点击“表单控制栏”中的“形状”，并在FORM1上拉出一个矩形方框（SHAPE1）。以同样方法创建SHAPE2、SHAPE3和SHAPE4。在属性窗口中对这四个SHAPE的属性进行如下设置： 
SHAPE1：

BorderColor = &HFFFFFF

BorderWidth = 3 Left = 2160

Top = 2040 Width = 1100

SHAPE2：

BorderColor = &H80000008

BorderWidth = 3 Left = 2160

Top = 2520 Width = 1100

SHAPE3：

BorderColor = &HFFFFFF

BorderWidth = 3 Left = 2160

Top = 2040 Height = 500

SHAPE4：

BorderColor = &H80000008

BorderWidth = 3 Left = 3240

Top = 2040 Height = 500

鼠标点击“表单控制栏”中的“标签”，并在FORM1上拉出一个矩形方框（LABEL1），调整其大小以刚好嵌入四个SHAPE中。设置它的属性Caption为定制的按钮的标题，Alignment为2，Backstyle为0。 
双击LABEL1，编写LABEL1的MouseDown过程和MouseUp过程如下： 
Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Shape1.BorderColor = &H80000008

Shape3.BorderColor = &H80000008

Shape2.BorderColor = &HFFFFFF

Shape4.BorderColor = &HFFFFFF

Label1.Top = Label1.Top + 10

End Sub

Private Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

Shape1.BorderColor = &HFFFFFF

Shape3.BorderColor = &HFFFFFF

Shape2.BorderColor = &H80000008

Shape4.BorderColor = &H80000008

Label1.Top = Label1.Top - 10

End Sub

按‘F5’键运行即可。 
三、移动字幕

在电视上我们时常会看到屏幕下方会有一行提示文字或广告信息由右至左移动，这样既起了提示作用又不会破坏整体屏幕。在Visual Basic 5.0中我们同样可以完成这种设计。

进入Visual Basic 5.0系统环境，建立一个新的表单（FORM1），并设置FORM1的Backcolor属性为一个RGB(192,192,192)。 
鼠标点击“表单控制栏”中的“标签”，并在FORM1上拉出一个矩形方框（LABEL1）。设置它的属性Caption为“活动字幕演示”，Autosize为 .T.，Backstyle为0，Forecolor为RGB（128,128,128），Fontname为“隶书体”,Fontbold为 .T.，Fontsize为36。 
鼠标点击LABEL1，按CTRL + C（拷贝）键，再按CTRL + V（粘贴）键，在FORM1上创建另一个标题与LABEL1相同的标签（LABEL2），设置它的Forecolor属性为RGB（255，255，0）。调整LABEL2的位置，使其刚好比LABEL1高一些，使LABEL1