学VB已有一段时间了，自己总想用它来“编”点什么，但事不如意，没学好，可悲啊！机会终于来了，今天老师讲MediaPlayer控件，我听得特别认真，哈哈，全懂了。马上动手，做一个媒体播放器，经过近两个小时的努力，成功了。
这里用到的Dialog控件和MediaPlayer控件都要通过“部件”添加。具体方法是单击“工程/部件”，或按“Ctrl+T”打开部件对话框，找到Microsoft Common Dialog Control 6.0(SP3)、Windows Media Player选上它就OK了。
所用到的控件及其属性如
所示。
源代码：
Option Explicit
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand _As String， ByVal lpstrReturnString As String， ByVal uReturnLength As Long， ByVal hwndCallback As _Long) As Long '声明
Dim playfilename As String '定义播放文件名
Dim playposition As Double '定义当前播放位置
Private Sub Command7_Click()
mciSendString "open cdaudio alias cd wait shareable"，0，0，0
'打开光驱
mciSendString "set cd door closed"，0，0，0
End Sub
Private Sub Command6_Click()
mciSendString "open cdaudio alias cd wait shareable"，0，0，0
'关闭光驱
mciSendString "set cd door open"，0，0，0
End Sub
Private Sub Command1_Click()
Command1.Enabled=False '暂停键无效
MediaPlayer1.Pause '暂停播放
playposition=MediaPlayer1.CurrentPosition '当前播放位置
End Sub
Private Sub Command2_Click()
Command1.Enabled=True '暂停键有效
Command3.Enabled=True '停止键有效
MediaPlayer1.FileName=playfilename '播放媒体文件名
MediaPlayer1.SelectionStart=playposition '播放位置
MediaPlayer1.Play '播放文件
End Sub
Private Sub Command3_Click()
playposition=0 '停止播放
Command3.Enabled=False '停止键无效
Command1.Enabled=False '暂停键无效
Command2.Enabled=True '播放键有效
MediaPlayer1.Stop '停止播放
End Sub
Private Sub Command4_Click()
CommonDialog1.ShowOpen '调用对话框
playfilename=CommonDialog1.FileName '记录播放文件名
playposition=0
End Sub
Private Sub Command5_Click()
Unload Form1 '卸载窗体
End '退出
End Sub
这样，一个简单的播放器就做好了，但应用界面总是觉得少了点什么，没关系，这里我们加上了一幅精美的动画就可以了，甚至你还可以让它显示当前系统时间及日期呢！是不是酷呆了？