📄 frmlrc.frm
字号:
'//该源码下载自www.aspx1.com(ａｓｐｘ１．ｃｏｍ)
VERSION 5.00
Begin VB.Form frmLrc
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
Caption = "Form4"
ClientHeight = 5100
ClientLeft = 1380
ClientTop = 5760
ClientWidth = 6210
LinkTopic = "Form4"
Picture = "frmLrc.frx":0000
ScaleHeight = 5100
ScaleWidth = 6210
ShowInTaskbar = 0 'False
Begin VB.TextBox Text3
Height = 270
Left = 270
TabIndex = 1
Text = "Text1"
Top = 360
Width = 630
End
Begin VB.Label L1
Caption = "Label1"
Height = 495
Left = 6720
TabIndex = 0
Top = 3120
Visible = 0 'False
Width = 1215
End
Begin VB.Image I3
Height = 165
Left = 3240
Picture = "frmLrc.frx":01CE
Top = 120
Visible = 0 'False
Width = 165
End
Begin VB.Image I2
Height = 165
Left = 3000
Picture = "frmLrc.frx":039E
Top = 120
Visible = 0 'False
Width = 165
End
Begin VB.Image I1
Height = 165
Left = 1440
Picture = "frmLrc.frx":056C
Top = 120
Width = 165
End
Begin VB.Image T4
Height = 165
Left = 2640
Picture = "frmLrc.frx":073C
Top = 120
Visible = 0 'False
Width = 165
End
Begin VB.Image T3
Height = 165
Left = 2400
Picture = "frmLrc.frx":090C
Top = 120
Visible = 0 'False
Width = 165
End
Begin VB.Image T2
Height = 165
Left = 2160
Picture = "frmLrc.frx":0ADC
Top = 120
Visible = 0 'False
Width = 165
End
Begin VB.Image T1
Height = 165
Left = 1660
Picture = "frmLrc.frx":0CAC
Top = 120
Width = 165
End
Begin VB.Image skins
Height = 375
Index = 0
Left = 0
Picture = "frmLrc.frx":0E7C
Top = 0
Width = 810
End
Begin VB.Image skins
Height = 375
Index = 1
Left = 720
Picture = "frmLrc.frx":1EC4
Stretch = -1 'True
Top = 0
Width = 615
End
Begin VB.Image skins
Height = 375
Index = 2
Left = 1320
Picture = "frmLrc.frx":1F6C
Top = 0
Width = 600
End
Begin VB.Image skins
Height = 300
Index = 5
Left = 0
Picture = "frmLrc.frx":2B68
Top = 3960
Width = 105
End
Begin VB.Image skins
Height = 300
Index = 6
Left = 0
Picture = "frmLrc.frx":2D8C
Stretch = -1 'True
Top = 3960
Width = 1875
End
Begin VB.Image skins
Height = 300
Index = 7
Left = 1800
MousePointer = 8 'Size NW SE
Picture = "frmLrc.frx":2E20
Top = 3960
Width = 255
End
Begin VB.Image skins
Height = 120
Index = 4
Left = 1800
Picture = "frmLrc.frx":3274
Stretch = -1 'True
Top = 360
Width = 120
End
Begin VB.Image skins
Height = 360
Index = 3
Left = 0
Picture = "frmLrc.frx":3420
Stretch = -1 'True
Top = 360
Width = 105
End
Begin VB.Image bg
Height = 255
Left = 120
Picture = "frmLrc.frx":359C
Stretch = -1 'True
Top = 360
Width = 255
End
End
Attribute VB_Name = "frmLrc"
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
' 如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************
Private Sub Form_Load()
Me.Top = frmMain.Top + 20
Me.Left = frmMain.Left + frmMain.Width
MOVL(1) = True
End Sub
Private Sub Form_Resize()
'定义背景
skins(0).Move 0, 0, skins(0).Width, skins(0).Height
skins(1).Move skins(0).Width, 0, Me.Width - (skins(0).Width + skins(2).Width), skins(1).Height
skins(2).Move skins(1).Width + skins(0).Width, 0, skins(2).Width, skins(2).Height
skins(3).Move 0, skins(0).Height, skins(3).Width, Me.Height - (skins(0).Height + skins(5).Height)
skins(4).Move Me.Width - skins(4).Width, skins(0).Height, skins(4).Width, Me.Height - (skins(2).Height + skins(7).Height)
skins(5).Move 0, Me.Height - skins(5).Height, skins(5).Width, skins(5).Height
skins(6).Move skins(5).Width, Me.Height - skins(6).Height, Me.Width - (skins(5).Width + skins(7).Width), skins(6).Height
skins(7).Move Me.Width - skins(7).Width, Me.Height - skins(7).Height, skins(7).Width, skins(5).Height
T1.Left = skins(2).Left + 350
I1.Left = skins(2).Left + 100
' webLrc.Move skins(3).Width, skins(1).Height, Me.Width - (skins(3).Width + skins(5).Width), Me.Height - (skins(1).Height + skins(6).Height)
End Sub
Private Sub skins_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then X1 = X: Y1 = Y
End Sub
Private Sub skins_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
'窗口大小
On Error Resume Next
If Button = 1 Then
Select Case Index
Case 0, 1, 2
Me.Top = Me.Top + Y - Y1: Me.Left = Me.Left + X - X1
Case 7
If Me.Height > 2880 Then
Me.Height = Me.Height + Y
Else
Me.Height = 3000
End If
If Me.Width > 2880 Then
Me.Width = Me.Width + X
Else
Me.Width = 3000
End If
End Select
End If
T1.Picture = T2.Picture
End Sub
Private Sub skins_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
If Me.Top < frmMain.Top + 300 And Me.Top > frmMain.Top - 300 And Me.Left > frmMain.Left + frmMain.Width - 300 And Me.Left < frmMain.Left + frmMain.Width + 300 Then
Me.Top = frmMain.Top + 20
Me.Left = frmMain.Left + frmMain.Width
MOVL(1) = True '播放列表 与 主窗体 移动
Else
MOVL(1) = False
End If
End Sub
Private Sub T1_Click()
Me.Hide
End Sub
Private Sub T1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
T1.Picture = T3.Picture
End Sub
Private Sub T1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
T1.Picture = T4.Picture
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -