VB中的Windows Media Player

VB中的Windows Media Player


Windows Media Player 是Windows自带的播放器，用VB可以实现它的一些简单播放功能。
打开VB，点击 工程>部件，选中 Windows Media Player 和 Microsoft Common Dialog Control 6.0 (SP3) ，点击 确定 。
这时，工具箱中会出现 WindowsMediaPlayer 和 CommonDialog 控件，将它们各一个拉到窗体中，注意 WindowsMediaPlayer 控件要调整好大小。添加一个 Label ，以显示文件名。如图。






以下是一些属性值：
Form1.Caption Windows Media Player
Form1.MaxBotton False
Form1.StartUpPosition 2 - 屏幕中心
Label1.Caption [空]
Label1.BackStyle 0 – Transparent
Label1.ToolTipText 文件名
接着用 工具>菜单编辑器 ，如图。






除快捷键外，其他属性为默认的。最后效果如图。






先输入代码：
Private Sub Form_Resize()
WindowsMediaPlayer1.Width = Me.Width -125
WindowsMediaPlayer1.Height = Me.Height - 1415
Label1.Width = Me.Width
End Sub ‘使改变窗体大小时，控件总与窗体正合适


点击 文件>打开 ，输入代码：
Private Sub Open_Click()
Dim mfile As String ‘定义mfile为字符形变量，作用范围为普通局部变量（dim）
‘一下代码必须放在同一行
################################################################
CommonDialog1.Filter = "媒体文件(所有类型)|*.dvr-ms;*.mid;*.rmi;*.midi;*.asp;*.wm;*.wma;*.wmv;*.wmd;*.jpg;*.jpeg;*.avi;*.wmv;*.wav;*.snd;*.au;*.aif;*.aifc;*.aiff;*.wma;*.mp3;*.mpeg;*.mpg;*.m1v;*.mp2;*.mpa;*.mpe;*.ifo;*.vob|Microsoft 录制的电视节目 (*.dvr-ms)|*.dvr-ms|MIDI 文件(midi) (*.mid;*.rmi;*.midi)|*.mid;*.rmi;*.midi|Windows Media 文件(asf) (*.asp;*.wm;*.wma;*.wmv;*.wmd)|*.asp;*.wm;*.wma;*.wmv;*.wmd|Windows 图片文件 (*.jpg;*.jpeg)|*.jpg;*.jpeg|Windows 视频文件 (*.avi;*.wmv)|*.avi;*.wmv|Windows 音频文件(wav) (*.wav;*.snd;*.au;*.aif;*.aifc;*.aiff;*.wma;*.mp3)|*.wav;*.snd;*.au;*.aif;*.aifc;*.aiff;*.wma;*.mp3|电影文件(mpeg) (*.mpeg;*.mpg;*.m1v;*.mp2;*.mpa;*.mpe;*.ifo;*.vob)|*.mpeg;*.mpg;*.m1v;*.mp2;*.mpa;*.mpe;*.ifo;*.vob|所有文件(*.*)|*.*" ‘CommonDialog1的文件类型
################################################################
CommonDialog1.ShowOpen '也可用CommonDialog1.action=1
mfile = CommonDialog1.FileName ‘让mfile是打开对话框的文件名
Label1.Caption = mfile ‘让Label1的Caption为mfile
WindowsMediaPlayer1.URL = mfile ‘让WindowsMediaPlayer控件的路径为mfile
End Sub


点击 文件>退出 ，输入代码：
Private Sub Exit_Click()
End ‘退出
End Sub


点击 播放>全屏幕 ，输入代码：
Private Sub Fullscreen_Click()
If Label1.Caption = "" Then
MsgBox "没有打开媒体", , "错误" ‘如果不加这行，会出现如图所示的错误。






Else: WindowsMediaPlayer1.Fullscreen = True
End If
End Sub


点击 播放>自动适应 ，输入代码：
Private Sub Str_Click()
If WindowsMediaPlayer1.stretchToFit = True Then
WindowsMediaPlayer1.stretchToFit = False
Str.Checked = False
Else: WindowsMediaPlayer1.stretchToFit = True
Str.Checked = True
End If ‘当自动适应时，菜单项前出现一个对勾
End Sub


点击 帮助>关于 ，输入代码：
Private Sub About_Click()
MsgBox "作者：*** ", , "关于"
End Sub


剩下的，就只有改 Form1 的 Icon 属性和 Label1 的位置和 Font 属性了。
最终效果图：