📄 super player 9.0.frm
字号:
TabIndex = 6
Top = 1440
Width = 1575
End
Begin VB.Image Image1
Height = 480
Left = 3120
Picture = "Super Player 9.0.frx":1EA826
Top = 0
Width = 480
End
Begin VB.Label Label1
BackColor = &H80000007&
BorderStyle = 1 'Fixed Single
ForeColor = &H0000FFFF&
Height = 375
Index = 0
Left = 0
TabIndex = 2
Top = 1440
Width = 1695
End
Begin VB.Label Label2
BackColor = &H80000012&
BorderStyle = 1 'Fixed Single
ForeColor = &H0000FFFF&
Height = 375
Left = 1680
TabIndex = 3
Top = 1440
Width = 1335
End
Begin VB.Label Label3
BackColor = &H80000012&
BorderStyle = 1 'Fixed Single
ForeColor = &H0000FFFF&
Height = 375
Left = 3000
TabIndex = 4
Top = 1440
Width = 1215
End
Begin VB.Line Line2
Index = 5
X1 = 2520
X2 = 2520
Y1 = 1320
Y2 = 960
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 meuline
Caption = "-"
End
Begin VB.Menu meuM3u
Caption = "播放列表M3U(&M))"
Shortcut = ^X
End
Begin VB.Menu meuFlash
Caption = "播放Falsh(&F)"
Enabled = 0 'False
End
Begin VB.Menu meulinel
Caption = "-"
End
Begin VB.Menu meuMyTool
Caption = "我的媒体库(&T)"
Shortcut = ^H
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 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 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 = "曲目"
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
Const MMSYSERR_NOERROR = 0
Const SND_ASYNC = &H1
Const SND_NODEFAULT = &H2
Const SND_PURGE = &H40
Const SND_FILENAME = &H20000
Dim MyVolume As clsVolume
'
'Play a wave file.
Private Sub Form_Load() '载入窗体初始化
On Error Resume Next
Dim nextline As String
Dim a(1 To 30) As String
Dim my_file(0 To 50) As String
Dim m_file As String
Image1.Visible = False
music_dir = Dir(App.Path & "\temp\music.m3u")
If music_dir = "" Then
MkDir (App.Path & "\temp")
Open App.Path & "\temp\Music.m3u" For Output As #1 '//关键在于创建
Print #1, ""
Close #1
SetAttr App.Path & "\temp", vbHidden
End If
Open App.Path & "\temp\check" For Input As #1
Line Input #1, nextline
If nextline <> "True" Then
Form2.Show
End If
Close #1
File.Pattern = "*.Mp3;*.MPEG;*.mpg;*.avi;*.wav;*.DAT;*.WM;*.Wma;*.midi;*.mid;*.DVD;*.mps;*.mp4;*.mpga;*.mp1;*.mp2;*.pls;*.xpl;*.AU"
MMControl1.TimeFormat = 0
MMControl1.UpdateInterval = 1000
CommonDialog2.CancelError = True
CommonDialog1.CancelError = True '设置取消错误
meuMusic.Visible = False
Slider1.Enabled = True
'Label7.Caption = " Super Player 9.0 红叶编写"
Set MyVolume = New clsVolume
MyVolume.meOpenMixer
If MyVolume.prMixerErr = MMSYSERR_NOERROR Then
With vsVolume
'.Max = MyVolume.prSpeakerMinVolume \ 2
'.Min = 0
'.SmallChange = 10000
'.LargeChange = 10000
'.Value = MyVolume.prSpeakerMaxVolume \ 10
.Text = ""
End With
End If
Dim nextline1 As String
Open App.Path & "\temp\Music.m3u" For Input As #1
sum = 1
Do While Not EOF(1)
Line Input #1, nextline1
If nextline1 = "" Then Exit Do
Load meuMyMusic(sum)
'读顺序文件
meuMyMusic(sum).Caption = nextline1
sum = sum + 1
Loop
Close #1
CommonDialog1.Filter = "支持媒体文件(*.cda;*.AVI;*.asf;*.asx;*.wpl;*.wm;*.wma;*.wmv;*.AU;*.WAV;*.DAT;*.mid;*.MIDI;*.RMI;*.MPG;*.Mp3;*.MPEG)|*.cda;*.AVI;*.WAV;*.DAT;MID;*.MIDI;*.asf;*.asx;*.wpl;*.wm;*.wma;*.wmv;*.AU;*.RMI;*.MPG;*.Mp3;*.MPEG| All Files(*.*)|*.*|"
If meuMyMusic(1).Caption = "" Or meuMyMusic(1).Caption = "无可用音乐" Then
meuMyMusic(1).Caption = "无可用音乐"
meuAllPlay.Enabled = False
Else
meuAllPlay.Enabled = True
End If
With Toolbar2
.Buttons(2).Image = 1
.Buttons(3).Image = 2
.Buttons(5).Image = 3
.Buttons(7).Image = 4
.Buttons(8).Image = 5
.Buttons(10).Image = 6
'.Buttons(10).Image = 6
.Buttons(11).Image = 7
.Buttons(13).Image = 8
.Buttons(14).Image = 9
.Buttons(16).Image = 10
.Buttons(17).Image = 11
End With
Toolbar1.ImageList = ImageList1
Toolbar1.ShowTips = True
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -