📄 form1.frm
字号:
VERSION 5.00
Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "shdocvw.dll"
Object = "{6BF52A50-394A-11D3-B153-00C04F79FAA6}#1.0#0"; "wmp.dll"
Object = "{48DC3C96-B20F-11D1-A87F-D9394DC38340}#2.6#0"; "FlatBtn2.ocx"
Begin VB.Form Form1
BorderStyle = 0 'None
Caption = "CoolSo player"
ClientHeight = 3840
ClientLeft = 0
ClientTop = 0
ClientWidth = 5250
Icon = "Form1.frx":0000
LinkTopic = "Form1"
ScaleHeight = 3840
ScaleWidth = 5250
ShowInTaskbar = 0 'False
StartUpPosition = 3 '窗口缺省
Begin VB.ListBox List3
Appearance = 0 'Flat
Height = 1470
Left = 240
TabIndex = 22
Top = 1950
Width = 2240
End
Begin DevPowerFlatBttn.FlatBttn FlatBttn3
Height = 360
Left = 4660
TabIndex = 20
Top = 550
Width = 540
_ExtentX = 953
_ExtentY = 635
AutoSize = 0 'False
BackColor = 33023
Caption = ""
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
TextColor = -2147483630
Object.ToolTipText = ""
MousePointer = 1
Picture = "Form1.frx":08CA
End
Begin VB.ListBox List1
Height = 600
Left = 120
TabIndex = 19
Top = 4440
Width = 4455
End
Begin VB.Timer Timer4
Enabled = 0 'False
Interval = 3500
Left = 3360
Top = 3480
End
Begin VB.PictureBox iScroll
Height = 375
Left = 720
ScaleHeight = 315
ScaleWidth = 2115
TabIndex = 16
Top = 6000
Width = 2175
End
Begin VB.PictureBox Picture2
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 200
Left = 960
Picture = "Form1.frx":0B75
ScaleHeight = 195
ScaleWidth = 3015
TabIndex = 14
Top = 1280
Width = 3015
Begin VB.Label Label7
AutoSize = -1 'True
BackStyle = 0 'Transparent
Height = 180
Left = 0
TabIndex = 15
Top = 0
Width = 90
End
End
Begin VB.PictureBox Picture1
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 0 'None
FillColor = &H000080FF&
ForeColor = &H80000008&
Height = 495
Left = 0
Picture = "Form1.frx":0D88
ScaleHeight = 495
ScaleWidth = 5250
TabIndex = 12
Top = 0
Width = 5250
Begin VB.Label Label14
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "×"
ForeColor = &H80000008&
Height = 255
Left = 4800
TabIndex = 25
Top = 120
Width = 255
End
Begin VB.Label Label11
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "_"
ForeColor = &H80000008&
Height = 255
Left = 4560
TabIndex = 21
Top = 120
Width = 255
End
End
Begin VB.Timer Timer3
Interval = 10
Left = 4080
Top = 3480
End
Begin DevPowerFlatBttn.FlatBttn FlatBttn2
Height = 360
Left = 3850
TabIndex = 10
Top = 550
Width = 795
_ExtentX = 1402
_ExtentY = 635
AutoSize = 0 'False
BackColor = 33023
Caption = ""
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
TextColor = -2147483630
Object.ToolTipText = ""
MousePointer = 1
Picture = "Form1.frx":4340
End
Begin DevPowerFlatBttn.FlatBttn FlatBttn1
Default = -1 'True
Height = 360
Left = 3180
TabIndex = 7
Top = 550
Width = 660
_ExtentX = 1164
_ExtentY = 635
BackColor = 33023
Caption = ""
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
TextColor = -2147483630
Object.ToolTipText = ""
MousePointer = 1
Picture = "Form1.frx":471C
End
Begin VB.Timer Timer2
Enabled = 0 'False
Interval = 100
Left = 3000
Top = 3480
End
Begin VB.Timer Timer1
Enabled = 0 'False
Interval = 1000
Left = 3720
Top = 3480
End
Begin VB.ListBox List2
Height = 1500
Left = 0
TabIndex = 2
Top = 3840
Width = 6495
End
Begin SHDocVwCtl.WebBrowser WebBrowser1
Height = 1095
Left = 0
TabIndex = 1
Top = 4800
Width = 6600
ExtentX = 11642
ExtentY = 1931
ViewMode = 0
Offline = 0
Silent = 0
RegisterAsBrowser= 0
RegisterAsDropTarget= 1
AutoArrange = 0 'False
NoClientEdge = 0 'False
AlignLeft = 0 'False
NoWebView = 0 'False
HideFileNames = 0 'False
SingleClick = 0 'False
SingleSelection = 0 'False
NoFolders = 0 'False
Transparent = 0 'False
ViewID = "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
Location = "http:///"
End
Begin VB.TextBox Text1
Appearance = 0 'Flat
BorderStyle = 0 'None
Height = 200
Left = 1320
TabIndex = 0
Top = 650
Width = 1695
End
Begin VB.Label Label13
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "_"
ForeColor = &H80000008&
Height = 255
Left = 0
TabIndex = 24
Top = 0
Width = 255
End
Begin VB.Label Label12
BackStyle = 0 'Transparent
Caption = "歌曲搜索历史："
Height = 200
Left = 240
TabIndex = 23
Top = 1750
Width = 2175
End
Begin VB.Line Line1
BorderColor = &H00808080&
BorderWidth = 2
X1 = 2760
X2 = 5040
Y1 = 2040
Y2 = 2040
End
Begin VB.Label Label5
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "歌曲信息"
ForeColor = &H000080FF&
Height = 180
Left = 2760
TabIndex = 18
Top = 1750
Width = 2295
End
Begin VB.Label Label4
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "歌词秀"
ForeColor = &H00808080&
Height = 1215
Left = 2760
TabIndex = 17
Top = 2160
Width = 2295
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "状态："
Height = 180
Left = 120
TabIndex = 13
Top = 3600
Width = 540
End
Begin VB.Label Label1
Caption = "Label1"
Height = 255
Left = 4800
TabIndex = 11
Top = 3600
Visible = 0 'False
Width = 375
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "正在搜索歌曲"
Height = 180
Left = 720
TabIndex = 9
Top = 3600
Width = 1080
End
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "正在连接"
Height = 180
Left = 120
TabIndex = 8
Top = 1280
Width = 720
End
Begin VB.Label Label10
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "00:00"
Height = 180
Left = 4635
TabIndex = 6
Top = 1275
Width = 450
End
Begin VB.Label Label9
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "/"
Height = 180
Left = 4515
TabIndex = 5
Top = 1275
Width = 90
End
Begin VB.Label Label8
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "00:00"
Height = 180
Left = 4035
TabIndex = 4
Top = 1275
Width = 450
End
Begin WMPLibCtl.WindowsMediaPlayer A1
Height = 975
Left = 120
TabIndex = 3
Top = 6360
Width = 6375
URL = ""
rate = 1
balance = 0
currentPosition = 0
defaultFrame = ""
playCount = 1
autoStart = -1 'True
currentMarker = 0
invokeURLs = -1 'True
baseURL = ""
volume = 50
mute = 0 'False
uiMode = "full"
stretchToFit = 0 'False
windowlessVideo = 0 'False
enabled = -1 'True
enableContextMenu= -1 'True
fullScreen = 0 'False
SAMIStyle = ""
SAMILang = ""
SAMIFilename = ""
captioningID = ""
enableErrorDialogs= 0 'False
_cx = 11245
_cy = 1720
End
Begin VB.Image Image1
Height = 3900
Left = 0
Picture = "Form1.frx":4ACF
Top = 0
Width = 5250
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
'人人为我，我为人人
'发布日期：2007/04/06
'描 述：即搜即听的网络播放器
'网 站：http://www.Mndsoft.com/ (VB6源码博客)
'网 站：http://www.VbDnet.com/ (VB.NET源码博客,主要基于.NET2005)
'e-mail ：Mndsoft@163.com
'e-mail ：Mndsoft@126.com
'OICQ ：88382850
' 如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************
''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''
''' 界面设计，歌词显示，操作设计 '''
''' 即搜即听的网络播放器 '''
''' 孙凤鸣设计 2007.3.15 '''
''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''
Option Explicit
'-------------------API 移动窗体
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const HTCAPTION = 2
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -