逆风编程精品
　　首先必须确保在你的Windows系统中SYSTEM.INI文件关于[MCI]中需有MPEGVideo项(一般Windows 95和Windows 98中均有此项)。

　　次在VB中建立一个新窗口,加入多媒体部件Microsoft Multimedia Control 5.0( 位于C:\Windows\System\MCI32.OCX),以及对话框部件Microsoft Common Dialog Control 5.0( 位于C:\Windows\System\COMMONDLG32.OCX),将MCI控件拖放至窗体Form上,调整其大小,并将窗体的大小也调整为与其同样大小;将其九个按钮(从左至右为:Prev、Next、Play、Pause、Back、Step、Stop、Record和Eject)中的Record按钮的Visible属性设为False,其余按钮中的Visible属性和Enabled属性设为True,以上按钮的设置可通过MMControl的属性栏内"自定义"项来设置。对话框控件的DefaultExt属性设为.DAT,DialogTitle属性设为"打开多媒体文件",Filter属性设为"*.DAT,*.WAV",InitDir属性设为"G:\MPEGAV"(假设光驱盘符为G)。

　　源代码如下:

　　Option Explicit

　　Private Sub Form_Load()

　　Dim Response As Integer

　　MMControl1.DeviceType = "MPEGVideo"

　　CommonDialog1.ShowOpen '通过对话框选择不同的VCD文件

　　MMControl1.filename = CommonDialog1.filename '选定要播放的文件

　　MMControl1.Command = "Open"

　　MMControl1.Command = "Play"

　　End Sub

　　Private Sub Form_Unload(Cancel As Integer)

　　MMControl1.Command = "close"

　　End Sub

　　Private Sub MMControl1_BackClick(Cancel As Integer) '对Back按钮的功能改进

　　Dim i As Integer

　　i = MMControl1.Position - 100 '数值100为后退量,可适当调整

　　If i < 0 Then MMControl1.From = 0

　　Else MMControl1.From = i

　　End If

　　MMControl1.Command = "Play"

　　End Sub

　　Private Sub MMControl1_StepClick(Cancel As Integer) '对Step按钮的功能改进

　　Dim j As Integer

　　j = MMControl1.Position 100 '数值100为前进量,可适当调整

　　If j > MMControl1.Length Then MMControl1.From = MMControl1.Length

　　Else MMControl1.From = j

　　End If

　　MMControl1.Command = "Play"

　　End Sub

　　MCI控件还有很多属性,如画面播放位置hWndDisplay属性等等,大家可参阅相关资料自行摸索。

　　调整好窗体的标题、图标、颜色等,然后编译成.EXE文件,你就可以在Windows 下 拥有自己的VCD播放器了。

　　再按F5运行程序，您就会看到一单击按钮，文本框会立即取得输入焦点。另外，我们还可以使用语句：Sendkeys "{TAB}"使下一个控件获得焦点，但我们需要在设计时确定各控件的Index值。(在Properties窗口中)让控件自己感知自己的工作已完成，而主动将焦点让出，会使用户觉得应用程序很聪明，也减少了用户出错的机会。

　　可是当焦点切换的两个控件相隔有一定距离时，上述的方法有时也不足以引起用户的注意，那么一种好的解决方法是将鼠标箭头也移到控件上。可惜，VB并不支持鼠标移动，那我们就求助API函数，API函数SetCursorPos可让我们如愿。

　　下面是子程序MoveCursorOn，它可让鼠标移动到指定控件上方。下列代码请放在declarations段中：

　　Type PoinTAPI