📄 frmmain.frm
字号:
Begin VB.Label labLrc
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "歌词"
ForeColor = &H00C0FFC0&
Height = 180
Left = 720
TabIndex = 3
Top = 440
Width = 360
End
Begin VB.Label labLine
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "乐库"
ForeColor = &H00C0FFC0&
Height = 180
Left = 240
TabIndex = 2
Top = 440
Width = 360
End
Begin VB.Label Echo
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "00:00"
ForeColor = &H0000FFFF&
Height = 225
Left = 240
TabIndex = 1
Tag = "0"
Top = 840
Width = 570
End
Begin VB.Image Image2
Height = 240
Left = 75
Picture = "frmMain.frx":B0C1
ToolTipText = "关于"
Top = 50
Width = 240
End
Begin VB.Image P1
Height = 150
Index = 0
Left = 240
Picture = "frmMain.frx":B405
Top = 1200
Width = 300
End
Begin VB.Image listHide
Height = 315
Index = 0
Left = 2640
Picture = "frmMain.frx":B6A1
Top = 1920
Width = 315
End
Begin VB.Image listHide
Height = 315
Index = 2
Left = 2640
Picture = "frmMain.frx":BC25
Top = 2640
Width = 315
End
Begin VB.Image list
Height = 315
Left = 4130
Picture = "frmMain.frx":C1A9
Tag = "2"
ToolTipText = "播放列表"
Top = 1500
Width = 315
End
Begin VB.Image I4
Height = 345
Index = 5
Left = 1920
Picture = "frmMain.frx":C72D
Top = 2640
Width = 345
End
Begin VB.Image I4
Height = 330
Index = 4
Left = 1560
Picture = "frmMain.frx":CDE9
Top = 2640
Width = 315
End
Begin VB.Image I4
Height = 480
Index = 2
Left = 480
Picture = "frmMain.frx":D3AD
Top = 2880
Width = 465
End
Begin VB.Image I4
Height = 345
Index = 1
Left = 0
Picture = "frmMain.frx":DFF1
Top = 2640
Width = 345
End
Begin VB.Image I1
Height = 345
Index = 1
Left = 1000
Picture = "frmMain.frx":E6AD
ToolTipText = "上一首"
Top = 1500
Width = 345
End
Begin VB.Image I1
Height = 480
Index = 2
Left = 120
Picture = "frmMain.frx":ED69
ToolTipText = "播放"
Top = 1425
Width = 465
End
Begin VB.Image I1
Height = 330
Index = 4
Left = 620
Picture = "frmMain.frx":F9AD
ToolTipText = "停止"
Top = 1500
Width = 315
End
Begin VB.Image I1
Height = 345
Index = 5
Left = 1440
Picture = "frmMain.frx":FF71
ToolTipText = "下一首"
Top = 1500
Width = 345
End
Begin VB.Image I1
Height = 165
Index = 10
Left = 3780
Picture = "frmMain.frx":1062D
ToolTipText = "最小化"
Top = 120
Width = 165
End
Begin VB.Image I1
Height = 165
Index = 6
Left = 4010
Picture = "frmMain.frx":107FD
ToolTipText = "添加单个音乐文件"
Top = 100
Width = 165
End
Begin VB.Image I1
Height = 165
Index = 8
Left = 4250
Picture = "frmMain.frx":109CD
ToolTipText = "关闭"
Top = 100
Width = 165
End
Begin VB.Image listHide
Height = 315
Index = 1
Left = 2640
Picture = "frmMain.frx":10B9D
ToolTipText = "打开(显示)视频窗口"
Top = 2280
Width = 315
End
Begin VB.Image I2
Height = 345
Index = 1
Left = 0
Picture = "frmMain.frx":11121
ToolTipText = "上一首 F9"
Top = 1920
Width = 345
End
Begin VB.Image I3
Height = 345
Index = 1
Left = 0
Picture = "frmMain.frx":117DD
ToolTipText = "上一首 F9"
Top = 2280
Width = 345
End
Begin VB.Image I2
Height = 480
Index = 2
Left = 480
Picture = "frmMain.frx":11E99
ToolTipText = "播放 /"
Top = 1920
Width = 465
End
Begin VB.Image I3
Height = 480
Index = 2
Left = 480
Picture = "frmMain.frx":12ADD
ToolTipText = "播放 /"
Top = 2400
Width = 465
End
Begin VB.Image I2
Height = 330
Index = 4
Left = 1560
Picture = "frmMain.frx":13721
ToolTipText = "停止"
Top = 1920
Width = 315
End
Begin VB.Image I3
Height = 330
Index = 4
Left = 1560
Picture = "frmMain.frx":13CE5
ToolTipText = "停止"
Top = 2280
Width = 315
End
Begin VB.Image I2
Height = 345
Index = 5
Left = 1920
Picture = "frmMain.frx":142A9
ToolTipText = "下一首 F12"
Top = 1920
Width = 345
End
Begin VB.Image I3
Height = 345
Index = 5
Left = 1920
Picture = "frmMain.frx":14965
ToolTipText = "下一首 F12"
Top = 2280
Width = 345
End
Begin WMPLibCtl.WindowsMediaPlayer MP
Height = 600
Left = 960
TabIndex = 0
Top = 3960
Visible = 0 'False
Width = 1530
URL = ""
rate = 1
balance = 3
currentPosition = 0
defaultFrame = ""
playCount = 1
autoStart = -1 'True
currentMarker = 0
invokeURLs = -1 'True
baseURL = ""
volume = 71
mute = 0 'False
uiMode = "none"
stretchToFit = -1 'True
windowlessVideo = 0 'False
enabled = 0 'False
enableContextMenu= 0 'False
fullScreen = 0 'False
SAMIStyle = ""
SAMILang = ""
SAMIFilename = ""
captioningID = ""
enableErrorDialogs= 0 'False
_cx = 2699
_cy = 1058
End
Begin VB.Image Image1
Height = 1920
Left = 0
Picture = "frmMain.frx":15021
Top = 0
Width = 4500
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
'人人为我，我为人人
'枕善居收藏整理
'发布日期：2007/03/15
'描 述：网页搜索音乐播放器 Ver 1.1.0
'网 站：http://www.Mndsoft.com/ (VB6源码博客)
'网 站：http://www.VbDnet.com/ (VB.NET源码博客,主要基于.NET2005)
'e-mail ：Mndsoft@163.com
'e-mail ：Mndsoft@126.com
'OICQ ：88382850
' 如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************
Dim movx As Integer '用于进度条
Dim jdt As Boolean '用于判断进度条是否在拖动
Dim songinx As Integer '判断是否连接超时
'Dim tim As Integer '储存播放时间 用于歌词显示
Private Sub Form_Load()
On Error Resume Next
If App.PrevInstance Then End '程序已经运行，不能再次装载
MkDir App.path & "\Download"
MkDir App.path & "\Lrc"
Me.Width = 4500
Me.Height = 1920
txtKey.BackColor = RGB(191, 221, 245)
txtKey.Text = "输入歌名、歌手..."
Dim I As Integer
For I = 0 To 4
If Menu.mnuModes(I).Checked Then
modeType = I
End If
Next
ShowNotifyIcon Me, , Menu.mnuIco, False, "iMusic Ver1.0", , NIIF_NONE
End Sub
Private Sub Form_Resize()
frmList.Visible = True
End Sub
Private Sub Form_Unload(Cancel As Integer)
If Dir(App.path & "\default.lst") = "" Then
Open App.path & "\default.lst" For Append As #1
For a& = 0 To frmList.playlist.itemCount - 1
Write #1, frmList.playlist.ItemText(a&, 2), frmList.playlist.ItemText(a&, 4), frmList.playlist.ItemText(a&, 6), frmList.playlist.ItemText(a&, 7)
Next a&
Close #1
Else '用于新建播放列表
Close #1
Open App.path & "\default.lst" For Output As #1
For a& = 0 To frmList.playlist.itemCount - 1
Write #1, frmList.playlist.ItemText(a&, 2), frmList.playlist.ItemText(a&, 4), frmList.playlist.ItemText(a&, 6), frmList.playlist.ItemText(a&, 7)
Next a&
Close #1
End If
Unload frmList
Unload frmNet
Unload frmMain
End
End Sub
Private Sub I1_Click(Index As Integer)
On Error GoTo Go '发生错误 跳出 过程
Select Case Index
Case 0 '静音
MP.settings.mute = Not (MP.settings.mute)
Case 1 '上一曲
Call NT(1)
Case 2 '播放
If MP.playState = wmppsPlaying Then
MP.Controls.pause
I1(2).Picture = I2(2).Picture
Else
If MP.url = "" And frmList.playlist.selectedItem > 0 Then
MP.url = frmList.playlist.ItemText(frmList.playlist.selectedItem, 7)
End If
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -