📄 mainfrm.frm
字号:
Height = 120
Index = 2
Left = 0
Top = 270
Width = 135
End
Begin VB.Image OAIDVbutton
Height = 120
Index = 1
Left = 0
Top = 150
Width = 135
End
Begin VB.Image OAIDVbutton
Height = 120
Index = 0
Left = 0
Top = 30
Width = 135
End
End
Begin VB.PictureBox Number
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 200
Index = 3
Left = 1320
ScaleHeight = 195
ScaleWidth = 135
TabIndex = 33
Top = 400
Width = 135
End
Begin VB.PictureBox Number
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 200
Index = 2
Left = 1140
ScaleHeight = 195
ScaleWidth = 135
TabIndex = 32
Top = 400
Width = 135
End
Begin VB.PictureBox Number
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 200
Index = 1
Left = 900
ScaleHeight = 195
ScaleWidth = 135
TabIndex = 31
Top = 400
Width = 135
End
Begin VB.PictureBox Number
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 200
Index = 0
Left = 720
ScaleHeight = 195
ScaleWidth = 135
TabIndex = 30
Top = 400
Width = 135
End
Begin VB.PictureBox PosScrollBar
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 150
Left = 240
ScaleHeight = 150
ScaleWidth = 3720
TabIndex = 25
Top = 1080
Width = 3720
Begin VB.PictureBox Pos_ScrollBar
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H00C0C0FF&
BorderStyle = 0 'None
Height = 150
Left = 0
ScaleHeight = 150
ScaleWidth = 435
TabIndex = 26
Top = 0
Width = 440
End
End
Begin VB.PictureBox BalanceScrollBar
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H00C0E0FF&
BorderStyle = 0 'None
Height = 190
Left = 2650
ScaleHeight = 195
ScaleWidth = 570
TabIndex = 20
Top = 850
Width = 570
Begin VB.PictureBox Balance_ScrollBar
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 150
Left = 180
ScaleHeight = 150
ScaleWidth = 210
TabIndex = 23
Top = 20
Width = 210
End
End
Begin VB.PictureBox VolumeScrollBar
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H00FFFF00&
BorderStyle = 0 'None
Height = 190
Left = 1600
ScaleHeight = 195
ScaleWidth = 975
TabIndex = 16
Top = 840
Width = 980
Begin VB.PictureBox Volume_ScrollBar
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 150
Left = 360
ScaleHeight = 150
ScaleWidth = 210
TabIndex = 19
ToolTipText = "声音大小"
Top = 20
Width = 210
End
End
Begin VB.PictureBox Skin_Pl
AutoRedraw = -1 'True
BorderStyle = 0 'None
Height = 160
Left = 3630
ScaleHeight = 165
ScaleWidth = 345
TabIndex = 11
ToolTipText = "隐藏PlayList"
Top = 850
Width = 350
End
Begin VB.PictureBox Skin_Eq
AutoRedraw = -1 'True
BorderStyle = 0 'None
Height = 160
Left = 3280
ScaleHeight = 165
ScaleWidth = 345
TabIndex = 10
ToolTipText = "隐藏EQ"
Top = 850
Width = 350
End
Begin VB.PictureBox Skin_rep
AutoRedraw = -1 'True
BorderStyle = 0 'None
Height = 230
Left = 3150
ScaleHeight = 225
ScaleWidth = 420
TabIndex = 9
ToolTipText = "非循环播放"
Top = 1330
Width = 427
End
Begin VB.PictureBox Skin_shuffle
AutoRedraw = -1 'True
BorderStyle = 0 'None
Height = 230
Left = 2460
ScaleHeight = 225
ScaleWidth = 675
TabIndex = 8
ToolTipText = "随机播放"
Top = 1330
Width = 675
End
Begin VB.PictureBox Skin_TitleBar
AutoRedraw = -1 'True
BackColor = &H00E0E0E0&
BorderStyle = 0 'None
Height = 210
Left = 0
ScaleHeight = 210
ScaleWidth = 4215
TabIndex = 7
Top = 0
Width = 4215
Begin VB.Image MainMenu
Height = 150
Left = 60
Top = 20
Width = 150
End
Begin VB.Image TitleBarButton
Height = 135
Index = 8
Left = 2520
ToolTipText = "上一首"
Top = 50
Visible = 0 'False
Width = 135
End
Begin VB.Image TitleBarButton
Height = 135
Index = 7
Left = 2645
ToolTipText = "播放"
Top = 50
Visible = 0 'False
Width = 135
End
Begin VB.Image TitleBarButton
Height = 135
Index = 6
Left = 2770
ToolTipText = "暂停"
Top = 50
Visible = 0 'False
Width = 135
End
Begin VB.Image TitleBarButton
Height = 135
Index = 5
Left = 2900
ToolTipText = "停止"
Top = 50
Visible = 0 'False
Width = 135
End
Begin VB.Image TitleBarButton
Height = 135
Index = 4
Left = 3025
ToolTipText = "下一首"
Top = 50
Visible = 0 'False
Width = 135
End
Begin VB.Image TitleBarButton
Height = 135
Index = 3
Left = 3240
ToolTipText = "打开一首曲目"
Top = 50
Visible = 0 'False
Width = 135
End
Begin VB.Image TitleBarButton
Height = 135
Index = 2
Left = 3660
ToolTipText = "最小化"
Top = 50
Width = 135
End
Begin VB.Image TitleBarButton
Height = 135
Index = 1
Left = 3810
ToolTipText = "切换到条形窗口模式"
Top = 50
Width = 135
End
Begin VB.Image TitleBarButton
Height = 135
Index = 0
Left = 3960
ToolTipText = "关闭"
Top = 50
Width = 135
End
End
Begin VB.PictureBox Skin_cbuttons2
AutoRedraw = -1 'True
BorderStyle = 0 'None
Height = 240
Left = 2040
ScaleHeight = 240
ScaleWidth = 330
TabIndex = 2
ToolTipText = "打开一首曲目"
Top = 1330
Width = 330
End
Begin VB.PictureBox Skin_cbuttons1
AutoRedraw = -1 'True
BorderStyle = 0 'None
Height = 255
Left = 240
ScaleHeight = 255
ScaleWidth = 1710
TabIndex = 1
Top = 1320
Width = 1710
Begin VB.Image Skin_cbuttons1_5
Height = 255
Left = 1368
ToolTipText = "下一首"
Top = 0
Width = 324
End
Begin VB.Image Skin_cbuttons1_4
Height = 255
Left = 1026
ToolTipText = "停止"
Top = 0
Width = 324
End
Begin VB.Image Skin_cbuttons1_3
Height = 255
Left = 684
ToolTipText = "暂停"
Top = 0
Width = 324
End
Begin VB.Image Skin_cbuttons1_2
Height = 255
Left = 324
ToolTipText = "播放"
Top = 0
Width = 324
End
Begin VB.Image Skin_cbuttons1_1
Height = 255
Left = 0
ToolTipText = "上一首"
Top = 0
Width = 324
End
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
ForeColor = &H00FF8080&
Height = 180
Left = 1680
TabIndex = 42
Top = 360
Width = 2415
End
Begin VB.Image Image1
Height = 375
Left = 3600
Top = 1320
Width = 375
End
End
End
Attribute VB_Name = "Mainfrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
' **********************************************************************
' 描 述：存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 Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Const SRCCOPY = &HCC0020
Public ShuffleFlag As Boolean
Public RepFlag As Boolean
Public SimpleFlag1 As Boolean
Public MainFlag As Boolean
Public EQFlag As Boolean
Public PLFlag As Boolean
Public DragTogether1 As Boolean
Public DragTogether2 As Boolean
Dim VolScrollFlag As Boolean
Dim VolScrollX As Integer
Dim BScrollFlag As Boolean
Dim BScrollX As Integer
Dim PosScrollFlag As Boolean
Dim PosScrollX As Integer
Public SkDir As String
Public StartDir1 As String '歌词目录StartDir
Public StartDir2 As String '皮肤目录StartDir
Public StartDir3 As String '添加歌曲目录StartDir
Public VolumeValue As Long '声音大小
Public RecentDir As String '对话框目录
Public SongWordDir As String '歌词目录
Public TopFlag As Boolean
Private Sub Balance_ScrollBar_KeyDown(KeyCode As Integer, Shift As Integer)
KeyDown KeyCode
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -