📄 menufrm.frm
字号:
VERSION 5.00
Begin VB.Form MenuFrm
Caption = "海阔天空收集整理 http://www.play78.com"
ClientHeight = 3195
ClientLeft = 165
ClientTop = 735
ClientWidth = 4920
LinkTopic = "Form1"
ScaleHeight = 3195
ScaleWidth = 4920
StartUpPosition = 3 '窗口缺省
Begin VB.Menu TrayMenu
Caption = "Tray菜单"
Begin VB.Menu TrayMenu_About
Caption = "关于Winamp"
End
Begin VB.Menu TrayMenu1
Caption = "-"
End
Begin VB.Menu TrayMenu_Mainfrm
Caption = "Winamp主窗口"
End
Begin VB.Menu TrayMenu_Listfrm
Caption = "播放清单编辑器"
End
Begin VB.Menu TrayMenu_Eqfrm
Caption = "EQ 均衡器"
End
Begin VB.Menu TrayMenu2
Caption = "-"
End
Begin VB.Menu TrayMenu_循环播放
Caption = "循环播放"
End
Begin VB.Menu TrayMenu_随机播放
Caption = "随机播放"
End
Begin VB.Menu TrayMenu3
Caption = "-"
End
Begin VB.Menu TrayMenu_Exit
Caption = "退出"
End
End
Begin VB.Menu MainfrmMenu
Caption = "Mainfrm菜单"
Begin VB.Menu MainfrmMenu_About
Caption = "关于Winamp"
End
Begin VB.Menu MainfrmMenu1
Caption = "-"
End
Begin VB.Menu MainfrmMenu_Mainfrm
Caption = "Winamp主窗口"
End
Begin VB.Menu MainfrmMenu_Listfrm
Caption = "播放清单编辑器"
End
Begin VB.Menu MainfrmMenu_Eqfrm
Caption = "EQ 均衡器"
End
Begin VB.Menu MainfrmMenu2
Caption = "-"
End
Begin VB.Menu MainfrmMenu_循环播放
Caption = "循环播放"
End
Begin VB.Menu MainfrmMenu_随机播放
Caption = "随机播放"
End
Begin VB.Menu MainfrmMenu3
Caption = "-"
End
Begin VB.Menu MainfrmMenu_TopAllTime
Caption = "总在最前面"
End
Begin VB.Menu MainfrmMenu_ChangeSkin
Caption = "更换皮肤"
Begin VB.Menu MainfrmMenu_NewSkin
Caption = "新皮肤目录设置"
End
Begin VB.Menu MainfrmMenu_DefultSkin
Caption = "默认皮肤"
End
End
Begin VB.Menu MainfrmMenu_SongWord
Caption = "歌词制作"
Begin VB.Menu MainfrmMenu_MakeSongWord
Caption = "歌词制作"
End
Begin VB.Menu MainfrmMenu_SetSWDir
Caption = "歌词目录设置"
End
End
Begin VB.Menu MainfrmMenu_FileReg
Caption = "文件关联"
End
Begin VB.Menu MainfrmMenu4
Caption = "-"
End
Begin VB.Menu MainfrmMenu_Exit
Caption = "退出"
End
End
Begin VB.Menu ListfrmMenu
Caption = "Listfrm菜单"
Begin VB.Menu ListfrmMenu_Play
Caption = "播放音乐文件 Enter"
End
Begin VB.Menu ListfrmMenu1
Caption = "-"
End
Begin VB.Menu ListfrmMenu_Eelete
Caption = "删除音乐文件 Delete"
End
Begin VB.Menu ListfrmMenu_DeleteAll
Caption = "删除所有音乐文件"
End
Begin VB.Menu ListfrmMenu2
Caption = "-"
End
Begin VB.Menu ListfrmMenu_Pause
Caption = "暂停"
End
Begin VB.Menu ListfrmMenu_Last
Caption = "上一首"
End
Begin VB.Menu ListfrmMenu_Next
Caption = "下一首"
End
Begin VB.Menu ListfrmMenu3
Caption = "-"
End
Begin VB.Menu ListfrmMenu_OpenCD
Caption = "弹开光驱"
End
Begin VB.Menu ListfrmMenu_CloseCD
Caption = "关闭光驱"
End
End
End
Attribute VB_Name = "MenuFrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
End Sub
' **********************************************************************
' 描 述：存vb代码写的winnap程序，非常酷
' Play78.com : 网站导航，源码之家，绝对开源
' 海阔天空收集整理
' 主站地址：http://www.play78.com/
' 源码下载地址：http://www.play78.com/blog
' 图片下在地址：http://www.play78.com/pic
' QQ：13355575
' e-mail:hglai@eyou.com
' 编写日期：2005年08月30日
' **********************************************************************
Private Sub ListfrmMenu_CloseCD_Click()
CloseCDRom
End Sub
Private Sub ListfrmMenu_DeleteAll_Click()
Listfrm.List1.Clear
Listfrm.List2.Clear
End Sub
Private Sub ListfrmMenu_Eelete_Click()
Listfrm.List1.RemoveItem Listfrm.List1.ListIndex
Listfrm.List2.RemoveItem Listfrm.List2.ListIndex
End Sub
Private Sub ListfrmMenu_Last_Click()
BitBlt Mainfrm.Playpaus.hDC, 0, 0, 10, 10, Mainfrm.Skin12.hDC, 0, 0, SRCCOPY
Mainfrm.Playpaus.Refresh
LastMusic
End Sub
Private Sub ListfrmMenu_Next_Click()
BitBlt Mainfrm.Playpaus.hDC, 0, 0, 10, 10, Mainfrm.Skin12.hDC, 0, 0, SRCCOPY
Mainfrm.Playpaus.Refresh
NextMusic
End Sub
Private Sub ListfrmMenu_OpenCD_Click()
OpenCDRom
End Sub
Private Sub ListfrmMenu_Pause_Click()
BitBlt Mainfrm.Playpaus.hDC, 0, 0, 10, 10, Mainfrm.Skin12.hDC, 9, 0, SRCCOPY
Mainfrm.Playpaus.Refresh
Pause
End Sub
Private Sub ListfrmMenu_Play_Click()
BitBlt Mainfrm.Playpaus.hDC, 0, 0, 10, 10, Mainfrm.Skin12.hDC, 0, 0, SRCCOPY
Mainfrm.Playpaus.Refresh
Play Listfrm.List2.Text
End Sub
Private Sub MainfrmMenu_About_Click()
AboutFrm.Show 1
End Sub
Private Sub MainfrmMenu_DefultSkin_Click()
WritePrivateProfileString "SETTING", "SkinDirectory", "", App.Path & "\" & "Winamp.ini"
MsgBox ("重新启动后生效")
End Sub
Private Sub MainfrmMenu_Eqfrm_Click()
If MainfrmMenu_Eqfrm.Checked = True Then
BitBlt Mainfrm.Skin_Eq.hDC, 0, 0, 100, 20, Mainfrm.Skin4.hDC, 0, 61, SRCCOPY
Mainfrm.Skin_Eq.Refresh
EQfrm.Hide
Mainfrm.EQFlag = False
Mainfrm.Skin_Eq.ToolTipText = "显示EQ"
MenuFrm.TrayMenu_Eqfrm.Checked = False
MenuFrm.MainfrmMenu_Eqfrm.Checked = False
Else
BitBlt Mainfrm.Skin_Eq.hDC, 0, 0, 100, 20, Mainfrm.Skin4.hDC, 0, 73, SRCCOPY
Mainfrm.Skin_Eq.Refresh
EQfrm.Show
Mainfrm.EQFlag = True
Mainfrm.Skin_Eq.ToolTipText = "隐藏EQ"
MenuFrm.TrayMenu_Eqfrm.Checked = True
MenuFrm.MainfrmMenu_Eqfrm.Checked = True
End If
End Sub
Private Sub MainfrmMenu_Exit_Click()
Writem3u App.Path & "\Winamp.m3u"
CloseIt
RemoveTray
SaveSetting
Unload Mainfrm
Unload Listfrm
Unload EQfrm
Unload MenuFrm
Unload Me
Unload AboutFrm
End Sub
Private Sub MainfrmMenu_FileReg_Click()
RegFile ".mp3", "3"
RegFile ".m3u", "3"
End Sub
Private Sub MainfrmMenu_Listfrm_Click()
If MainfrmMenu_Listfrm.Checked = True Then
BitBlt Mainfrm.Skin_Pl.hDC, 0, 0, 100, 20, Mainfrm.Skin4.hDC, 23, 61, SRCCOPY
Mainfrm.Skin_Pl.Refresh
Listfrm.Hide
Mainfrm.PLFlag = False
Mainfrm.Skin_Pl.ToolTipText = "显示PlayList"
MenuFrm.TrayMenu_Listfrm.Checked = False
MenuFrm.MainfrmMenu_Listfrm.Checked = False
Else
BitBlt Mainfrm.Skin_Pl.hDC, 0, 0, 100, 20, Mainfrm.Skin4.hDC, 23, 73, SRCCOPY
Mainfrm.Skin_Pl.Refresh
Listfrm.Show
Mainfrm.PLFlag = True
Mainfrm.Skin_Pl.ToolTipText = "隐藏PlayList"
MenuFrm.TrayMenu_Listfrm.Checked = True
MenuFrm.MainfrmMenu_Listfrm.Checked = True
End If
End Sub
Private Sub MainfrmMenu_Mainfrm_Click()
If MainfrmMenu_Mainfrm.Checked = True Then
MainfrmMenu_Mainfrm.Checked = False
TrayMenu_Mainfrm.Checked = False
Mainfrm.MainFlag = False
Mainfrm.Hide
Else
MainfrmMenu_Mainfrm.Checked = True
TrayMenu_Mainfrm.Checked = True
Mainfrm.MainFlag = True
Mainfrm.Show
End If
End Sub
Private Sub MainfrmMenu_MakeSongWord_Click()
MakeSongWord.Show
End Sub
Private Sub MainfrmMenu_NewSkin_Click()
ChangeSkin
End Sub
Private Sub MainfrmMenu_SetSWDir_Click()
rc = BrowseForFolder(Mainfrm, "设置歌词目录", Mainfrm.StartDir1)
If rc = "" Then Exit Sub
Mainfrm.Text3 = rc
Mainfrm.SongWordDir = rc
Mainfrm.StartDir1 = rc
WritePrivateProfileString "SETTING", "SongWordDirectory", rc, App.Path & "\" & "Winamp.ini"
End Sub
Private Sub MainfrmMenu_TopAllTime_Click()
If MainfrmMenu_TopAllTime.Checked = True Then
SetAllNoTop
MainfrmMenu_TopAllTime.Checked = False
Mainfrm.TopFlag = False
Else
SetAllTop
MainfrmMenu_TopAllTime.Checked = True
Mainfrm.TopFlag = True
End If
End Sub
Private Sub MainfrmMenu_随机播放_Click()
If MainfrmMenu_随机播放.Checked = True Then
BitBlt Mainfrm.Skin_shuffle.hDC, 0, 0, 100, 20, Mainfrm.Skin4.hDC, 28, 0, SRCCOPY
Mainfrm.Skin_shuffle.Refresh
Mainfrm.Skin_shuffle.ToolTipText = "顺序播放"
MenuFrm.MainfrmMenu_随机播放.Checked = False
MenuFrm.TrayMenu_随机播放.Checked = False
Mainfrm.ShuffleFlag = True
Else
BitBlt Mainfrm.Skin_shuffle.hDC, 0, 0, 100, 20, Mainfrm.Skin4.hDC, 28, 30, SRCCOPY
Mainfrm.Skin_shuffle.Refresh
Mainfrm.Skin_shuffle.ToolTipText = "随机播放"
MenuFrm.MainfrmMenu_随机播放.Checked = True
MenuFrm.TrayMenu_随机播放.Checked = True
Mainfrm.ShuffleFlag = False
End If
End Sub
Private Sub MainfrmMenu_循环播放_Click()
If MainfrmMenu_循环播放.Checked = True Then
BitBlt Mainfrm.Skin_rep.hDC, 0, 0, 100, 20, Mainfrm.Skin4.hDC, 0, 0, SRCCOPY
Mainfrm.Skin_rep.Refresh
Mainfrm.Skin_rep.ToolTipText = "非循环播放"
MenuFrm.MainfrmMenu_循环播放.Checked = False
MenuFrm.TrayMenu_循环播放.Checked = False
Mainfrm.RepFlag = True
Else
BitBlt Mainfrm.Skin_rep.hDC, 0, 0, 100, 20, Mainfrm.Skin4.hDC, 0, 30, SRCCOPY
Mainfrm.Skin_rep.Refresh
Mainfrm.Skin_rep.ToolTipText = "循环播放"
MenuFrm.MainfrmMenu_循环播放.Checked = True
MenuFrm.TrayMenu_循环播放.Checked = True
Mainfrm.RepFlag = False
End If
End Sub
Private Sub TrayMenu_About_Click()
AboutFrm.Show 1
End Sub
Private Sub TrayMenu_Eqfrm_Click()
MainfrmMenu_Eqfrm_Click
End Sub
Private Sub TrayMenu_Exit_Click()
MainfrmMenu_Exit_Click
End Sub
Private Sub TrayMenu_Listfrm_Click()
MainfrmMenu_Listfrm_Click
End Sub
Private Sub TrayMenu_Mainfrm_Click()
MainfrmMenu_Mainfrm_Click
End Sub
Private Sub TrayMenu_随机播放_Click()
MainfrmMenu_随机播放_Click
End Sub
Private Sub TrayMenu_循环播放_Click()
MainfrmMenu_循环播放_Click
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -