VB 版 (精华区)

应用程序编制实例之五
如何在VB4和Delphi中快速实现立体化窗口显示
在VB4和Delphi中，我们可以很方便地创建具有立体化观感的窗口，这也是近两年来，W
in3.X
中较为流行的显示方式。许多专业化的软件都采用了这种立体化的窗口和相应的控件，
达到了
赏心悦目的效果。下面我们来谈谈如何在目前最流行的两种Win编程语言中实现这样的效
果。
其实，无论是VB4还是Delphi，要实现这种效果都较为容易，在编程中，并不需要调用外
部的D
LL，在程序运行时，会自动调用CTL3dV2.dll。
我们先来看看如何在VB4中实现：
1.新建一个窗口。
2.在窗口form的属性列表中有一项Auto3D属性，缺省值为false，将其设置为true。它是
控制V
B4中是否显示立体窗口的重要属性。
3.在form的属性列表中还有一项BorderStyle属性，这是控制窗口的边框显示类型，将其
设置
为3－Fixed Double。
4.现在可以运行这个程序了，你将会看到立体窗口出现。
将Auto3D属性设置为true，还有一个很好的副作用，那就是在这个窗口上的Text、Fram
e、Che
ckBox、OptionButton和ListBox都自动具有了立体效果。
在Delphi中实现似乎显得更加容易和直观：
1.新建一个窗口。
2.在窗口form的属性列表中有一项BorderStyle属性，它的缺省值为bsSizeable，表示边
界可
以任意调整，将其重新设置为bsDialog。
3.运行程序，你会发现立体窗口出现了。(看来，Delphi中将这种立体化窗口称为“对话
窗口”，
确实如此，比如在Word中，对话窗口都是这种立体化的显示，而主窗口仍然是一般的风
格。)
与VB4中的Auto3D类似，在Delphi中有一个属性为Ctl3D，将其设置为true，将使所有在
这个窗
口上的控件具有立体观感，并且这种变化是立刻反映的，而不象VB中在运行时才能看到
。
在Delphi的窗口form中，你还可以通过设置FormStyle属性为fsStayOntop来轻而易举的
实现“永
远浮在其他窗口”上的效果。著名的“译林”Win版本就是用Delphi写的，它其中就有一
个“永
远在最上面”的功能，就是这样实现的。
用VB进行多媒体程序设计初步
VB(Visual Basic)具有很强的多媒体处理控制功能，VB的多媒体控制MCI(Media contro
l inte
rface)包括一套控制音频和视频设备但具有与设备无关的命令，用它来进行多媒体设计
是很方
便的。比如：你也许想拥有一个自己编写的CD播放器，那么利用VB的MCI只需写几行代码
就可
生成一个功能比较齐全的CD播放器。下面简单谈谈用VB的MCI进行多媒体设计的初步知识
并给
出一个非常简单的CD播放器的例子。
在使用MCI之前必须安装好多媒体设备如声卡、CD—ROM等以及这些设备的驱动程序，否
则MCI
将不听指挥。
一、MCI控制的安装
MCI控制在VB不同版本中的安装方法是不一样的。在VB 3.0专业版中，MCI控制文件为MC
I.VBX，
在VB 4.0中MCI控制文件为MCI16.OCX(16位)、MCI32.OCX(32位)。一般情况下MCI控制在
启动VB
之后并没有加入到工具箱中(TOOLBOX)，需要自己动手安装它。
1.VB 3.0中MCI的安装。打开VB的FILE菜单，选择Add File项，从Windows\system目录下
找到M
CI.VBX，选择OK即可，这时你将发现TOOLBOX最后又多了一个工具，这就是MCI。如果你
经常要
用它，建议在VB目录下找到Autoload.mak文件，用字处理软件打开它，把MCI.VBX添加在
其中，
这样每次启动VB时就将其自动调入。
2.VB 4.0中MCI的安装。VB 4.0支持16位和32位两种系统，在WINDOWS 3.1下只能使用16
位系统。
MCI不能和VB 3.0中一样用Add File调入，如果你这样做将会发现系统提示错误，需在A
utoloa
d.mak文件中调入。笔者打开Autoload.mak文件后发现调用格式为：OBJECT={序列号}＃
1.0＃0;
文件名，不知道MCI16.OCX的序列号是无法安装的。幸好在VB目录下的子目录SAMPLE下有
一个M
CI的子目录，进入它可以看到有一个MCITEST.MAK文件，打开它可以看到有：Object={C
1A8AF2
8－1257－101B－8FB0－0020AF039CA3}＃1.0＃0;MCI32.OCX一行（也许您的序列号不一
定和这
相同），将这一行复制到Autoload.mak文件中即可。由于本人使用的是WINDOWS 3.1，在
安装VB
 4.0时32位系统无法装入，硬盘中根本没有MCI32.OCX文件，VB何以将MCI32.OCX调入呢
？经试
验发现VB以序列号选择文件，可能上述序列号是MCI16.OCX文件的序列号，进一步试验发
现即
使将序列号后面的MCI32.OCX去掉也可调入，这进一步说明了VB 4.0中一个OCX文件有一
个对应
的序列号，因此绝对不能改变序列号，否则将无法正确调入所需的文件。
MCI安装完毕，用鼠标双击工具箱的MCI图标，如果在Form中出现9个熟悉的按扭，那么安
装就
成功了。
二、MCI的属性和事件
MCI提供许多关于MCI控制方面的属性和事件。
比较常用的属性有：
Button visible 决定该按钮在MCI控制中是否可见。
Command 要执行的MCI命令，如Open Close Play Stop Eject等。
Device Type 要打开的MCI设备类型，如动画播放设备、MIDI序列发生器、激光视盘机、
WAV文
件播放器、录相机等。
Filename 使用Open命令打开或Save命令保存的文件名。
Length 确定一个文件或CD唱片的长度。
Track 指定特定的轨道，供Tracklength和Trackposition使用。
Tracks 当前MCI设备的轨道数。
Tracklength 在当前时间格式下，传回Track所指轨道的时间长度。
Trackposition 在当前时间格式下，传回Track所指轨道的起始位置。
Visible 决定在运行时刻多媒体MCI控制是否可见。
比较常用的事件有：
Buttonclick 当用户在多媒体MCI控制的按钮上按下或释放鼠标时产生该事件，每一个B
uttonc
lick事件缺省执行一个MCI命令。
Buttoncompleted 当多媒体MCI控制按钮激活的MCI命令完成后发送。
Statusupdate 这个事件可监测目前多媒体设备的状态信息，比如用滚动条来表示当前轨
道的
位置。
详细的属性和事件的用法请参看控制帮助文件。
三、CD播放器的例子
对初学者来说，能利用入门知识编写一个的成功小程序是很鼓舞人心的，下面我们来编
写一个
非常简单的例子：迷你CD播放器。
在MCI调入Toolbox之后，双击MCI工具，将会在Form中出现9个按钮，用鼠标移动这些按
钮至合
适的位置，然后双击Form窗体，把下面的代码加入到事件中：
Sub Form_Load()
MMControl1.DeviceType = “CDaudio"   'MCI设备类型为CD唱片
MMControl1.Command = “open"         '打开设备
End Sub
Sub Form_Unload(Cancel As Integer)
MMControl1.Command = “close"        '退出时关闭MCI设备
End Sub
保存文件，在CD驱动器中放入一张CD唱片，然后运行，你将发现九个按钮中Prev、Next
、Play、
Eject四个按钮变黑（有效状态），点一下Play按钮，音乐出来了！若驱动器中无CD盘则
所有按
钮都处于无效状态。这样一个简易CD播放器就完成了，它具有四种功能，但自己动手写
的代码
只有上面加注释的三行。这个CD播放器有点太简单了，下面就看你的了，你可以加入一
些文字
信息如开发时间、作者、版权等，再进一步学习MCI可加入其他功能如显示播放时间、曲
目等。