在VB5.0中制作多媒体界面

来源：作者：出处：巧巧读书 2006-09-03 进入讨论组

　　简介：由于Visual Basic 具有易学易用、编程简洁、功能极为丰富等诸多优点，因此拥有众多用户。

许多用户在运用VB 编程时，都希望能用VB 为自己的应用程序制作有声、有色、形式多样、引人入胜的多媒体界面。在这里我们将向大家介绍一种简单实用的多媒体界面制作方法，希望它能对大家编程起到一定的借鉴作用。

---- 软件中那些生动有趣的多媒体界面，往往会使用户对该软件产生深刻、良好的印象，因此，用户界面是一个应用程序非常重要的部分。因为一般情况下用户感觉不到幕后正在运行的代码，所以无论设计者花多少时间、精力来编制和优化代码，应用程序给用户的印象仍主要取决于界面的效果。

---- Visual Basic 5.0 是微软公司最新推出的BASIC 语言编程环境，它不仅具有强大的计算和数据处理能力，而且还提供了丰富的多媒体功能。利用这些多媒体功能我们就可以设计出多种多样的多媒体用户界面了。

---- 一般来说多媒体界面可由四部分组成：动画、声音、图象、文字。有时只有三部分：图象（或动画）、声音和文字。

---- 下面我们将结合一个实例来向大家介绍多媒体界面的制作方法。本例中的多媒体界面由动画、图象、背景音乐和滚动显示的文字四部分组成。

---- 多媒体界面显示效果描述：工程运行后，屏幕背景显示为黑色，在屏幕中间适当位置显示一幅图象，在此图象右上角适当位置连续重复播放动画，显示的文字信息从屏幕下面向上面滚动，至中间指定位置停止滚动，同时在此过程中连续播放背景音乐。具体实现方法如下。

窗体和控件的设计

---- 本例共需六个窗体、控件，各窗体和控件的具体设计如下：

---- 1 ．所需创建的窗体和控件. 编号窗体及控件功能

1 Form1 窗体创建新工程，由此窗体控制界面总背景为黑色

2 Picture1 控件

(PictureBox 控件) 在此控件中显示一幅图象

3 Picture2 控件

(PictureBox 控件) 在此控件中显示播放的动画

4 MCI1 控件

(MMControl 控件) 利用此控件连续播放背景音乐

5 MCI2 控件

(MMControl 控件) 利用此控件连续播放动画

6 Timer1 控件利用此控件显示滚动的文字信息，并控制动画、声音的重放

---- 2 ．设置各窗体和控件的属性.

---- 窗体及控件属性设置值含义

Form1 窗体 BorderStyle 0-None 不显示Windows95 的边框及边框相关元素.

WindowState 2-Maximized 在运行时，将窗体的可视窗口最大化.

Picture1 控件 Appearance 0-Flat 设置控件的显示风格为平面视觉效果.

AutoRedraw True 允许自动重绘控件上的图象、文字（若此项设为False，则屏幕显示文字有闪烁感）.

AutoSize True 自动调整控件大小以显示全部要显示内容.

Font 楷体-GB2312 显示字体: 楷体，样式:Regular，大小:1 号 .

Picture2 控件 AutoSize True 自动调整控件大小以显示全部要显示内容.

MCI1 控件（名称） MCI1 重新给MMControl 控件命名.

Visible False 将控件隐藏起来，由程序去控制播放.

MCI2 控件（名称） MCI2 重新给MMControl 控件命名.

Visible False 将控件隐藏起来，由程序去控制播放.

Timer1 控件 Interval 200 设置每隔0.2 秒发生一次Timer1-timer 事件，当然此项设置也可在事件代码中用语句 Timer1.Interval = 200 来设定.

---- 注：表中未列出的各窗体和控件的属性值维持原窗体和控件创建时的缺省值。

---- 4 ．调整各窗体和控件的尺寸，并将各窗体和控件调整到适当位置.

事件及相应代码的设计

---- 本例中涉及到的事件有三个，它们分别是：Form_Load 事件、Picture1_MouseUp 事件和Timer1_timer 事件。其中Form_Load 事件主要完成对数组及变量进行初始化，对所要读取文件的盘符路径进行处理，并控制多媒体控件MCI1、MCI2 分别播放背景音乐和动画；Picture1_MouseUp 事件主要完成关闭、退出工程的任务，即在工程运行时，当鼠标处于画面Picture1 范围内时，按鼠标左键，则关闭多媒体控件MCI1、MCI2，并卸载退出工程；Timer1_timer 事件主要用来完成背景音乐和动画的连续循环重放，并控制要显示的文字信息向上滚动显示。窗体的声明及各事件的代码分别如下：

---- 1 ．窗体的通用声明.

Option Explicit ' 强制进行变量声明.

Dim CurY, CurY1, Temp As Single, s1(1 To 3), s2(1 To 3) As String

---- 2 ． Form_Load 事件代码及注释.

Private Sub Form_Load()

' 变量DiskPathName 用于存放应用程序

所在的盘符和路径.

Dim DiskPathName As String, x, y As Single

' 根据WINDOWS 所设置的分辨率重

新调整各窗口和控件的位置.

Move 0, 0, Screen.Width, Screen.Height

x = (ScaleWidth - Picture1.Width) / 2:

y = (ScaleHeight - Picture1.Height) / 2

Picture1.Move x, y

Picture2.Move Picture2.Left + x, Picture2.Top+y

s1(3) = " 程序功能:": s2(3) =

"VB5.0 多媒体界面演示" ' 要滚动显示的文字信息.

S1(2) = " 设计单位:": s2(2) = " 中国矿大北京研究生部"

s1(1) = " 设计者:": s2(1) = " 关永张杰"

' 保存Picture1 画面的起始坐标.

CurY = Picture1.CurrentY: CurY1 = CurY: Temp = 8000 - Picture1.CurrentY

DiskPathName = App.Path

' 判断应用程序所在路径是否为根目录，

若为根目录则去掉路径中的 "\" .

' 例如当应用程序处于A 盘根目录时，

字符串表达式DiskPathName + "\demo.bmp" 的

' 值为"a:\\demo.bmp"，即路径中出现二个反斜杠，

这是不允许的。

If Right(DiskPathName, 1) = "\" Then

DiskPathName = Left(DiskPathName, Len(DiskPathName) - 1)

End If

Picture1.Picture = LoadPicture(DiskPathName + "\demo.bmp")

' 装入要显示的图象.

Form1.BackColor = QBColor(0)

' 设置Form1 的背景为黑色.

MCI1.filename = DiskPathName + "\demo.wav"

' 打开并播放背景音乐.

MCI1.Command = "Open"

MCI1.Command = "Play"

MCI2.DeviceType = "AVIVideo"

' 打开并播放动画.

MCI2.filename = DiskPathName + "\demo.avi"

MCI2.hWndDisplay = Picture2.hWnd

' 让动画在Picture2 中进行播放.

MCI2.Command = "Open"

MCI2.Command = "Play"

End Sub

---- 3 ． Picture1_MouseUp 事件代码及注释.

---- Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) ' 判断是否按下了鼠标的左键，是则关闭多媒体控件MCI1、MCI2，并卸载退出工程.

If Button = vbLeftButton Then

MCI1.Command = "Stop"

MCI1.Command = "Close"

MCI2.Command = "Stop"

MCI2.Command = "Close"

Unload Me

End If

End Sub

---- 4 ．Timer1_timer 事件代码及注释.

---- 实现文字信息向上滚动显示的方法：首先在屏幕最下向显示要显示的文字信息，然后等待Timer1_timer 事件发生（由于本例中Timer1 控件的Interval 属性被设为200，所以每隔0.2 秒就会发生一次Timer1_timer 事件），每发生一次该事件，我们就用Picture1.Cls 命令清除上一次屏幕显示文字内容，再向上调整本屏要显示内容的起始纵坐标（横坐标不变），接着查看 http://www.qqread.com/vb/e241296.html 更多内容请看多媒体应用解决方案、VB其他多媒体设计专题，或进入讨论组讨论。