'form1的窗体代码 '在其上添加一个WMP控件 Option Explicit'wmp播放器缩放 Private Sub Form_Resize() WindowsMediaPlayer1.Move 0, 0, Me.Width, Me.Height End Sub'下面是Form2的窗体代码 'form1作为播放窗体 'form2作为启动窗体。播放控制。 '在Form2上添加10个命令按钮command1---command10(控件数组),1个通用对话框控件CommonDialog1Option ExplicitPrivate Sub Command1_Click(Index As Integer) 'On Error Resume Next Select Case Index Case 0 Form1.WindowsMediaPlayer1.fullScreen = True '全屏 Case 1 Form1.WindowsMediaPlayer1.Controls.play '播放 Exit Sub Case 2 Form1.WindowsMediaPlayer1.Controls.pause '暂停 Exit Sub Case 3 Form1.WindowsMediaPlayer1.Controls.stop '停止 Exit Sub Case 4 Form1.WindowsMediaPlayer1.Controls.currentPosition = Form1.WindowsMediaPlayer1.Controls.currentPosition + 100 '快进 Exit Sub Case 5 Form1.WindowsMediaPlayer1.Controls.currentPosition = Form1.WindowsMediaPlayer1.Controls.currentPosition - 100 '快退 Exit Sub Case 6 Form1.WindowsMediaPlayer1.Controls.Next '下一曲 Exit Sub Case 7 Form1.WindowsMediaPlayer1.Controls.previous '上一曲 Exit Sub Case 8 CommonDialog1.ShowOpen Form1.WindowsMediaPlayer1.URL = CommonDialog1.FileName Case 9 Form1.WindowsMediaPlayer1.Controls.stop Unload Form1: Unload Form2: End End Select
End Sub Private Sub Form_Load() Form1.Visible = True Form1.WindowsMediaPlayer1.Left = 0: Form1.WindowsMediaPlayer1.Top = 0 Form1.WindowsMediaPlayer1.Width = Form1.Width: Form1.WindowsMediaPlayer1.Height = Form1.Height
'在其上添加一个WMP控件
Option Explicit'wmp播放器缩放
Private Sub Form_Resize()
WindowsMediaPlayer1.Move 0, 0, Me.Width, Me.Height
End Sub'下面是Form2的窗体代码
'form1作为播放窗体
'form2作为启动窗体。播放控制。
'在Form2上添加10个命令按钮command1---command10(控件数组),1个通用对话框控件CommonDialog1Option ExplicitPrivate Sub Command1_Click(Index As Integer) 'On Error Resume Next
Select Case Index
Case 0
Form1.WindowsMediaPlayer1.fullScreen = True '全屏
Case 1
Form1.WindowsMediaPlayer1.Controls.play '播放
Exit Sub
Case 2
Form1.WindowsMediaPlayer1.Controls.pause '暂停
Exit Sub
Case 3
Form1.WindowsMediaPlayer1.Controls.stop '停止
Exit Sub
Case 4
Form1.WindowsMediaPlayer1.Controls.currentPosition = Form1.WindowsMediaPlayer1.Controls.currentPosition + 100 '快进
Exit Sub
Case 5
Form1.WindowsMediaPlayer1.Controls.currentPosition = Form1.WindowsMediaPlayer1.Controls.currentPosition - 100 '快退
Exit Sub
Case 6
Form1.WindowsMediaPlayer1.Controls.Next '下一曲
Exit Sub
Case 7
Form1.WindowsMediaPlayer1.Controls.previous '上一曲
Exit Sub
Case 8
CommonDialog1.ShowOpen
Form1.WindowsMediaPlayer1.URL = CommonDialog1.FileName
Case 9
Form1.WindowsMediaPlayer1.Controls.stop
Unload Form1: Unload Form2: End
End Select
End Sub
Private Sub Form_Load() Form1.Visible = True
Form1.WindowsMediaPlayer1.Left = 0: Form1.WindowsMediaPlayer1.Top = 0
Form1.WindowsMediaPlayer1.Width = Form1.Width: Form1.WindowsMediaPlayer1.Height = Form1.Height
Form1.WindowsMediaPlayer1.uiMode = "none" '隐藏WMP播放器控制面板
Form1.WindowsMediaPlayer1.URL = "E:\电影\月球\[月球].Moon.2009.DVDRiP.XViD-LAP.avi" '加载媒体
Form1.WindowsMediaPlayer1.stretchToFit = True
Form1.WindowsMediaPlayer1.enableContextMenu = True '允许右键菜单
Form1.WindowsMediaPlayer1.settings.autoStart = False
Form1.WindowsMediaPlayer1.windowlessVideo = False
Form1.WindowsMediaPlayer1.Controls.play
Form1.WindowsMediaPlayer1.fullScreen = False '禁止全屏
Form2.Command1(0).Caption = "全屏"
Form2.Command1(1).Caption = "播放"
Form2.Command1(2).Caption = "暂停"
Form2.Command1(3).Caption = "停止"
Form2.Command1(4).Caption = "快进"
Form2.Command1(5).Caption = "快退"
Form2.Command1(6).Caption = "下一曲"
Form2.Command1(7).Caption = "上一曲"
Form2.Command1(8).Caption = "打开"
Form2.Command1(9).Caption = "关闭"
End Sub
第一,我不想让用户去装解码器,更不想让我的安装程序还带着一大堆解码器文件。第二,我只是觉得WMP的播放界面不叫好,至少要比VB做出来的好看,所以才想用它。