listfrm.frm
来自「vb 写的播放器 对新的开发者很有用。写的不错。非常实际」· FRM 代码 · 共 1,631 行 · 第 1/4 页
FRM
1,631 行
Left = 1540
Top = 120
Width = 375
End
Begin VB.Image PLCbuttons
Height = 135
Index = 5
Left = 780
Top = 320
Width = 130
End
Begin VB.Image PLCbuttons
Height = 135
Index = 4
Left = 600
Top = 320
Width = 130
End
Begin VB.Image PLCbuttons
Height = 135
Index = 3
Left = 450
Top = 320
Width = 130
End
Begin VB.Image PLCbuttons
Height = 135
Index = 2
Left = 320
Top = 320
Width = 130
End
Begin VB.Image PLCbuttons
Height = 135
Index = 1
Left = 160
Top = 320
Width = 130
End
Begin VB.Image PLCbuttons
Height = 135
Index = 0
Left = 20
Top = 320
Width = 130
End
End
Begin VB.PictureBox Skin_PlayList4
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H00808080&
BorderStyle = 0 'None
Height = 570
Index = 0
Left = 0
ScaleHeight = 570
ScaleWidth = 1875
TabIndex = 21
Top = 1740
Width = 1880
Begin VB.Image Button4
Height = 300
Left = 1470
Top = 120
Width = 375
End
Begin VB.Image Button3
Height = 300
Left = 1035
Top = 120
Width = 375
End
Begin VB.Image Button2
Height = 300
Left = 600
Top = 120
Width = 375
End
Begin VB.Image Button1
Height = 300
Left = 165
Top = 120
Width = 375
End
End
Begin VB.PictureBox Skin_PlayList3
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H00C0FFC0&
BorderStyle = 0 'None
Height = 330
Index = 4
Left = 3820
ScaleHeight = 330
ScaleWidth = 330
TabIndex = 20
Top = 1620
Width = 330
End
Begin VB.PictureBox Skin_PlayList3
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H00C0C0FF&
BorderStyle = 0 'None
Height = 330
Index = 3
Left = 3820
ScaleHeight = 330
ScaleWidth = 330
TabIndex = 19
Top = 1290
Width = 330
End
Begin VB.PictureBox Skin_PlayList3
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H00C0FFFF&
BorderStyle = 0 'None
Height = 330
Index = 2
Left = 3820
ScaleHeight = 330
ScaleWidth = 330
TabIndex = 18
Top = 960
Width = 330
End
Begin VB.PictureBox Skin_PlayList3
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H00C0E0FF&
BorderStyle = 0 'None
Height = 330
Index = 1
Left = 3820
ScaleHeight = 330
ScaleWidth = 330
TabIndex = 17
Top = 630
Width = 330
End
Begin VB.PictureBox Skin_PlayList3
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H00C0C0FF&
BorderStyle = 0 'None
Height = 330
Index = 0
Left = 3820
ScaleHeight = 330
ScaleWidth = 330
TabIndex = 16
Top = 300
Width = 330
End
Begin VB.PictureBox Skin_PlayList2
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H00C0FFC0&
BorderStyle = 0 'None
Height = 330
Index = 4
Left = 0
ScaleHeight = 330
ScaleWidth = 165
TabIndex = 14
Top = 1590
Width = 160
End
Begin VB.PictureBox Skin_PlayList2
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H00C0C0FF&
BorderStyle = 0 'None
Height = 330
Index = 3
Left = 0
ScaleHeight = 330
ScaleWidth = 165
TabIndex = 13
Top = 1260
Width = 160
End
Begin VB.PictureBox Skin_PlayList2
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H00C0FFFF&
BorderStyle = 0 'None
Height = 330
Index = 2
Left = 0
ScaleHeight = 330
ScaleWidth = 165
TabIndex = 12
Top = 930
Width = 160
End
Begin VB.PictureBox Skin_PlayList2
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H00C0E0FF&
BorderStyle = 0 'None
ForeColor = &H00C0E0FF&
Height = 330
Index = 1
Left = 0
ScaleHeight = 330
ScaleWidth = 165
TabIndex = 11
Top = 600
Width = 160
End
Begin VB.PictureBox Skin_PlayList2
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H00C0C0FF&
BorderStyle = 0 'None
Height = 330
Index = 0
Left = 0
ScaleHeight = 330
ScaleWidth = 165
TabIndex = 10
Top = 270
Width = 160
End
Begin VB.PictureBox Skin_PlayList1
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H000040C0&
BorderStyle = 0 'None
Height = 300
Index = 8
Left = 3750
ScaleHeight = 300
ScaleWidth = 375
TabIndex = 9
Top = 0
Width = 380
Begin VB.Image PlayListBar
Height = 135
Index = 1
Left = 60
ToolTipText = "切换成条状模式"
Top = 50
Width = 135
End
Begin VB.Image PlayListBar
Height = 135
Index = 0
Left = 210
ToolTipText = "关闭"
Top = 50
Width = 135
End
End
Begin VB.PictureBox Skin_PlayList1
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H00800000&
BorderStyle = 0 'None
Height = 300
Index = 7
Left = 3450
ScaleHeight = 300
ScaleWidth = 300
TabIndex = 8
Top = 0
Width = 300
End
Begin VB.PictureBox Skin_PlayList1
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H00C0C0FF&
BorderStyle = 0 'None
Height = 300
Index = 6
Left = 3090
ScaleHeight = 300
ScaleWidth = 375
TabIndex = 7
Top = 0
Width = 380
End
Begin VB.PictureBox Skin_PlayList1
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H0080C0FF&
BorderStyle = 0 'None
Height = 300
Index = 5
Left = 2730
ScaleHeight = 300
ScaleWidth = 375
TabIndex = 6
Top = 0
Width = 380
End
Begin VB.PictureBox Skin_PlayList1
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H00FFFF00&
BorderStyle = 0 'None
Height = 300
Index = 4
Left = 1300
ScaleHeight = 300
ScaleWidth = 1500
TabIndex = 5
Top = 0
Width = 1500
End
Begin VB.PictureBox Skin_PlayList1
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H00C0FFFF&
BorderStyle = 0 'None
Height = 300
Index = 3
Left = 1080
ScaleHeight = 300
ScaleWidth = 255
TabIndex = 4
Top = 0
Width = 250
End
Begin VB.PictureBox Skin_PlayList1
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H00C0E0FF&
BorderStyle = 0 'None
Height = 300
Index = 2
Left = 720
ScaleHeight = 300
ScaleWidth = 375
TabIndex = 3
Top = 0
Width = 380
End
Begin VB.PictureBox Skin_PlayList1
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H00C0C0FF&
BorderStyle = 0 'None
Height = 300
Index = 1
Left = 360
ScaleHeight = 300
ScaleWidth = 375
TabIndex = 2
Top = 0
Width = 380
End
Begin VB.PictureBox Skin_5
AutoRedraw = -1 'True
BorderStyle = 0 'None
Height = 615
Left = 480
Picture = "Listfrm.frx":2BDA
ScaleHeight = 615
ScaleWidth = 480
TabIndex = 0
Top = 2400
Width = 480
Begin VB.Timer Timer2
Enabled = 0 'False
Interval = 100
Left = 3360
Top = 600
End
End
Begin VB.ListBox List1
BackColor = &H00C0C0C0&
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 1530
ItemData = "Listfrm.frx":28E6C
Left = 140
List = "Listfrm.frx":28E6E
TabIndex = 15
Top = 270
Width = 4080
End
End
Attribute VB_Name = "Listfrm"
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
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?