📄 super player 9.0.frm
字号:
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 495
Index = 0
Left = 120
TabIndex = 3
ToolTipText = "打开文件"
Top = 840
Width = 615
End
Begin VB.Label Label7
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label7"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 180
Left = 2880
TabIndex = 2
Top = 120
Width = 645
End
Begin VB.Menu meuFile
Caption = "文件(&F)"
Begin VB.Menu meuOpen
Caption = "打开一个文件(&O)"
Shortcut = ^O
End
Begin VB.Menu meuFileOpen
Caption = "播放多个音频文件(&S)"
Shortcut = ^M
End
Begin VB.Menu meuSoundPin
Caption = "播放多个视频文件(&K)"
End
Begin VB.Menu meuline
Caption = "-"
End
Begin VB.Menu meuM3u
Caption = "播放列表M3U(&M))"
Shortcut = ^X
End
Begin VB.Menu meuFlash
Caption = "播放Falsh(&F)"
End
Begin VB.Menu meulinel
Caption = "-"
End
Begin VB.Menu meuMyTool
Caption = "我的媒体库(&T)"
End
Begin VB.Menu meuAll
Caption = "总在最前(&A)"
End
Begin VB.Menu meulineo
Caption = "-"
End
Begin VB.Menu meuOpenCD
Caption = "弹出(&P)"
Shortcut = ^P
End
Begin VB.Menu meuClose
Caption = "关上(&C)"
Shortcut = ^B
End
Begin VB.Menu meulineg
Caption = "-"
End
Begin VB.Menu meuBack
Caption = "背景设置(&H)"
End
Begin VB.Menu meuButton
Caption = "按钮设置(&B)"
End
Begin VB.Menu meuFont
Caption = "颜色设置(&F)"
End
Begin VB.Menu meuLinei
Caption = "-"
End
Begin VB.Menu meuMy
Caption = "我的音乐"
Begin VB.Menu meuMyMusic
Caption = "无可用音乐"
Index = 1
End
End
Begin VB.Menu meuAllPlay
Caption = "全部播放(&W)"
End
Begin VB.Menu linep
Caption = "-"
End
Begin VB.Menu meuText
Caption = "阅览器(&T)"
Shortcut = ^L
End
Begin VB.Menu meuExit
Caption = "退出(&E)"
Shortcut = ^Q
End
End
Begin VB.Menu meuPlayw
Caption = "播放(&P)"
Begin VB.Menu meuSound
Caption = "声音调节(&S)"
Shortcut = ^S
End
Begin VB.Menu meuPlay
Caption = "播放声音(&P)"
End
Begin VB.Menu meuFull
Caption = "全频(&F)"
Enabled = 0 'False
End
Begin VB.Menu meuliner
Caption = "-"
End
Begin VB.Menu meuCDAudio
Caption = "播放CD音频(&C)"
Shortcut = ^F
End
Begin VB.Menu meuDATVideo
Caption = "播放视频(&V)"
Shortcut = ^K
End
Begin VB.Menu lined
Caption = "-"
End
Begin VB.Menu meuPing
Caption = "循环播放单首(&Q)"
Shortcut = ^E
End
Begin VB.Menu meuSou
Caption = "循环播放所有(&H)"
End
Begin VB.Menu meuAgain
Caption = "重新开始(&A)"
Shortcut = ^A
End
Begin VB.Menu line
Caption = "-"
End
Begin VB.Menu meusheng
Caption = "声道(&W)"
Begin VB.Menu meuZuo
Caption = "左声道(&Z)"
End
Begin VB.Menu meuYou
Caption = "右声道(&Y)"
End
Begin VB.Menu meuli
Caption = "立体声(&L)"
End
End
Begin VB.Menu meuSilent
Caption = "静音(&F)"
Shortcut = ^T
End
End
Begin VB.Menu meuMusic
Caption = "曲目(&M)"
Visible = 0 'False
Begin VB.Menu meuQuMu
Caption = "曲目一"
Index = 0
End
End
Begin VB.Menu meuCDQuMu
Caption = "CD曲目"
Visible = 0 'False
Begin VB.Menu meuCDQ
Caption = "CD"
Index = 0
End
End
Begin VB.Menu meuPlayFile
Caption = "播放文件(&V)"
Visible = 0 'False
Begin VB.Menu meu
Caption = "1"
Index = 1
End
End
Begin VB.Menu meuPlayList
Caption = "播放列表(&L)"
Visible = 0 'False
Begin VB.Menu meu2
Caption = "1"
Index = 0
End
End
Begin VB.Menu meuTools
Caption = "转换工具(&T)"
Begin VB.Menu meuSoundTools
Caption = "音频转换工具(&S)"
End
Begin VB.Menu meuVideoTools
Caption = "视频转换工具(&V)"
End
End
Begin VB.Menu meuHelpWe
Caption = "帮助(&H)"
Begin VB.Menu meuHelp
Caption = "帮助(&H)"
Shortcut = {F1}
End
Begin VB.Menu meulinec
Caption = "-"
End
Begin VB.Menu meuShow
Caption = "展示屏幕(&S)"
Shortcut = {F4}
End
Begin VB.Menu meulined
Caption = "-"
End
Begin VB.Menu meuAbout
Caption = "关于(&A)"
Shortcut = {F8}
End
End
Begin VB.Menu meuRight
Caption = "右键菜单"
Visible = 0 'False
Begin VB.Menu meuPlayMeu
Caption = "打开文件(&O)"
End
Begin VB.Menu meuRightLine
Caption = "-"
End
Begin VB.Menu meuPlayVCD
Caption = "播放VCD(&V)"
End
Begin VB.Menu meuPlayCD
Caption = "播放CD(&C)"
End
Begin VB.Menu meuRightLineq
Caption = "-"
End
Begin VB.Menu meuRightNew
Caption = "重新播放(&N)"
End
Begin VB.Menu meuRightAgain
Caption = "反复播放(&A)"
End
Begin VB.Menu meuRightLinee
Caption = "-"
End
Begin VB.Menu meuRightOpen
Caption = "弹出光碟(&Q)"
End
Begin VB.Menu meuCloseCD
Caption = "关上光驱(&X)"
End
Begin VB.Menu meuRightLiner
Caption = "-"
End
Begin VB.Menu meuRightSilent
Caption = "静音(&S)"
End
Begin VB.Menu meuRightExit
Caption = "退出(&E)"
End
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'//软件名：Super Player
'//版本：9.0
'//描述：媒体播放器
'//作者：刘诸桂
'//开发日期：2004-8-25---2004-10-15
'///////////////////////////////////////////////////////////////////////////
Const conHwndTopmost = -1 'API函数的 SetWindowsPos 函数的设置值
Const conHwndNoTopmost = -2
Const conSwpNoActivate = &H10
Const conSwpShowWindow = &H40
Dim trackleng As Single, leng As Single '面板显示全局变量
Dim VarVCD As Integer '播放VCD全局变量
Dim VarMore As Integer '播放多个文件的全局变量
Dim VarM3u As Integer '播放 M3u 格式全局变量
Dim firstCD As String
Private Sub label8_Click(index As Integer) 'MCI控制按纽
On Error Resume Next
Select Case index
Case 0
meuFileOpen_Click
Case 1
Unload Form7
If MMControl1.Mode = 525 Or MMControl1.Mode = 529 Then
MMControl1.Command = "Open"
MMControl1.Command = "Play" '播放
Slider1.Enabled = True
MMControl1.UpdateInterval = 1000
Else
meuCDAudio_Click
End If
Case 5
MMControl1.Command = "Pause" '暂停
Case 6
Err.Clear
On Error Resume Next
If Form7.WMP.Status = "" Then
MMControl1.Command = "Stop" '停止播放
MMControl1.UpdateInterval = 1000
MMControl1.From = Slider1.Value '转到起始位置
ElseIf Form7.WMP.Status <> "" Then
Form7.WMP.Close
label: If Err.Number <> 0 Then Exit Sub
End If
Case 7
meuExit_Click
Case 3
If meuCDQuMu.Visible = True Then
MMControl1.Command = "Prev" '播放上一曲，单击一次返回当前曲目的开头，单击两次返回上一曲
MMControl1.UpdateInterval = 1000
ElseIf meuPlayFile.Visible = True Then
If Form7.WMP.Status = "" Then
If VarMore <> 0 Then
VarMore = VarMore - 1
MMControl1.Command = "Stop"
MMControl1.Command = "Close"
MMControl1.FileName = meu(VarMore).Caption
Label7.Caption = "Super Player 9.0 正在播放：" & MMControl1.FileName
MMControl1.Command = "Open"
MMControl1.Command = "Play"
MMControl1.UpdateInterval = 1000
For chec = 0 To 50
meu(chec).Checked = False
Next chec
meu(VarMore).Checked = True
Else
MMControl1.From = 0
MMControl1.Command = "Play"
MMControl1.UpdateInterval = 1000
End If
Else
If VarMore <> 0 Then
VarMore = VarMore - 1
Form7.WMP.URL = meu(VarMore).Caption
Label7.Caption = "Super Player 9.0 正在播放：" & Form7.WMP.URL
For chec = 0 To 50
meu(chec).Checked = False
Next chec
meu(VarMore).Checked = True
End If
End If
ElseIf meuPlayList.Visible = True Then
If VarM3u <> 1 Then
VarM3u = Var3u - 1
MMControl1.Command = "Stop"
MMControl1.Command = "Close"
MMControl1.FileName = meu2(VarM3u).Caption
MMControl1.Command = "Open"
MMControl1.Command = "Play"
MMControl1.UpdateInterval = 1000
For chec = 0 To 50
meu2(chec).Checked = False
Next chec
meu2(VarM3u).Checked = True
Else
MMControl1.From = 0
MMControl1.Command = "Play"
MMControl1.UpdateInterval = 1000
End If
ElseIf meuMusic.Visible = True Then
If VarVCD <> 0 Then
VarVCD = VarVCD - 1
MMControl1.Command = "Stop"
MMControl1.Command = "Close"
Form7.WMP.URL = meuQuMu(VarVCD).Caption
'MMControl1.Command = "Open"
'MMControl1.Command = "Play"
'MMControl1.UpdateInterval = 1000
'Timer2.Enabled = True
For chec = 0 To 30
meuQuMu(chec).Checked = False
Next chec
meuQuMu(VarVCD).Checked = True
Label3.Caption = "当前曲目:" & VarVCD + 2
Else
'MMControl1.From = 0
'MMControl1.Command = "Play"
Form7.WMP.URL = Form7.WMP.URL
Timer2.Enabled = True
'MMControl1.UpdateInterval = 1000
End If
End If
Label7.Caption = "Super Player 9.0 正在播放：" & MMControl1.FileName
Case 4 '播放下一曲
If meuCDQuMu.Visible = True Then
MMControl1.Command = "Prev" '播放上一曲，单击一次返回当前曲目的开头，单击两次返回上一曲
MMControl1.UpdateInterval = 1000
ElseIf meuPlayFile.Visible = True Then
If Form7.WMP.Status = "" Then
VarMore = VarMore + 1
MMControl1.Command = "Stop"
MMControl1.Command = "Close"
MMControl1.FileName = meu(VarMore).Caption
MMControl1.Command = "Open"
MMControl1.Command = "Play"
MMControl1.UpdateInterval = 1000
For chec = 0 To 50
meu(chec).Checked = False
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -