Visual Basic 因其可视化的编程方式越来越受到编程人员的青睐，我们可以使用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'键运行即可。 <
1/2 1 2 下一页 尾页 |
