📄 vcd.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{C1A8AF28-1257-101B-8FB0-0020AF039CA3}#1.1#0"; "MCI32.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form Form2
BorderStyle = 0 'None
Caption = "蓝霞家庭音乐视听系统"
ClientHeight = 1665
ClientLeft = 2490
ClientTop = 2640
ClientWidth = 3705
Icon = "VCD.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MouseIcon = "VCD.frx":08CA
Picture = "VCD.frx":0D0C
ScaleHeight = 1665
ScaleWidth = 3705
ShowInTaskbar = 0 'False
Begin VB.CommandButton Command3
Caption = "Command3"
Height = 375
Left = 4920
TabIndex = 39
Top = 3000
Width = 1455
End
Begin MSComDlg.CommonDialog CommonDialog2
Left = 5160
Top = 3480
_ExtentX = 847
_ExtentY = 847
_Version = 393216
Filter = "*.m3u"
End
Begin VB.CommandButton Command2
Caption = "Command2"
Height = 615
Left = 5760
TabIndex = 38
Top = 2880
Width = 1695
End
Begin VB.ListBox List2
BackColor = &H00000000&
ForeColor = &H0000FFFF&
Height = 1320
ItemData = "VCD.frx":123E
Left = 0
List = "VCD.frx":1240
TabIndex = 37
ToolTipText = "双击可以播放选取的歌曲"
Top = 1680
Width = 3735
End
Begin VB.HScrollBar vsmic
Height = 195
Left = 480
TabIndex = 25
Top = 1680
Width = 975
End
Begin VB.HScrollBar vsVolume
Height = 195
Left = 3960
TabIndex = 24
Top = 840
Visible = 0 'False
Width = 975
End
Begin VB.PictureBox Picture2
BackColor = &H00400000&
FillColor = &H00FF0000&
Height = 255
Left = 4200
ScaleHeight = 195
ScaleWidth = 3435
TabIndex = 22
Top = 1320
Visible = 0 'False
Width = 3495
Begin VB.Label Label1
BackColor = &H00400000&
Caption = "程序设计:华北电力大学动力工程系 曾祥卓"
ForeColor = &H00FFFF00&
Height = 255
Left = 480
TabIndex = 23
Top = 0
Width = 3615
End
End
Begin VB.Frame Frame3
BackColor = &H00400000&
Caption = "播放信息"
ForeColor = &H00FFFF00&
Height = 1335
Left = 5400
MouseIcon = "VCD.frx":1242
TabIndex = 4
Top = 3480
Visible = 0 'False
Width = 3495
Begin VB.PictureBox Picture6
Height = 375
Left = 360
Picture = "VCD.frx":1684
ScaleHeight = 315
ScaleWidth = 435
TabIndex = 21
Top = 1800
Visible = 0 'False
Width = 495
End
Begin VB.PictureBox Picture5
Height = 375
Left = 0
Picture = "VCD.frx":1BB6
ScaleHeight = 315
ScaleWidth = 315
TabIndex = 20
Top = 1800
Visible = 0 'False
Width = 375
End
Begin VB.Label Label3
BackColor = &H00400000&
Caption = "播放:"
ForeColor = &H00FFFF00&
Height = 255
Left = 120
MouseIcon = "VCD.frx":20E8
TabIndex = 6
Top = 240
Width = 495
End
Begin VB.Label Label11
BackColor = &H00400000&
ForeColor = &H0000FF00&
Height = 255
Left = 720
TabIndex = 5
Top = 240
Width = 3135
End
End
Begin VB.Frame Frame4
BackColor = &H00400000&
ForeColor = &H00FFFF00&
Height = 1335
Left = 4560
MouseIcon = "VCD.frx":284A
TabIndex = 1
Top = 0
Visible = 0 'False
Width = 2295
Begin VB.Timer Timer4
Interval = 1
Left = 1320
Top = 600
End
Begin VB.CommandButton Command1
Caption = "Command1"
Height = 255
Left = 0
TabIndex = 19
Top = 960
Width = 0
End
Begin VB.Timer Timer2
Interval = 10
Left = 600
Top = 360
End
Begin VB.ListBox List1
BackColor = &H00400000&
ForeColor = &H00FFFF00&
Height = 960
Left = 120
MouseIcon = "VCD.frx":2FAC
TabIndex = 2
Top = 240
Width = 150
End
End
Begin VB.Frame Frame1
BackColor = &H00400000&
Height = 1935
Left = -120
MouseIcon = "VCD.frx":370E
TabIndex = 0
Top = -120
Width = 7095
Begin VB.Frame Frame6
BackColor = &H00000000&
BorderStyle = 0 'None
Caption = "Frame6"
Height = 375
Left = 240
TabIndex = 17
Top = 600
Width = 3615
Begin MSComctlLib.Toolbar Toolbar2
Height = 390
Left = 0
TabIndex = 18
Top = 0
Width = 3495
_ExtentX = 6165
_ExtentY = 688
ButtonWidth = 609
ButtonHeight = 582
ImageList = "ImageList3"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 10
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "k1"
Object.ToolTipText = "加入文件"
ImageKey = "pp1"
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "k2"
Object.ToolTipText = "打开一个文件"
ImageKey = "pp2"
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "k3"
Object.ToolTipText = "暂停"
ImageKey = "pp3"
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "k4"
Object.ToolTipText = "播放"
ImageKey = "pp4"
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "k5"
Object.ToolTipText = "停止"
ImageKey = "pp5"
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "k6"
Object.ToolTipText = "快退"
ImageKey = "pp6"
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "k7"
Object.ToolTipText = "快进"
ImageKey = "pp7"
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "k8"
Object.ToolTipText = "下一首歌 没打开文件前千万别按"
ImageKey = "pp9"
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "k9"
Object.ToolTipText = "上一首歌 没打开文件前千万别按"
ImageKey = "pp8"
EndProperty
BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "k10"
Object.ToolTipText = "隐藏界面"
ImageKey = "pp10"
EndProperty
EndProperty
End
End
Begin VB.CheckBox Check1
BackColor = &H00400000&
Caption = "静音"
Enabled = 0 'False
ForeColor = &H0000FF00&
Height = 180
Left = 4080
TabIndex = 8
Top = 360
Visible = 0 'False
Width = 735
End
Begin VB.CheckBox Check2
BackColor = &H00400000&
Caption = "循环"
Enabled = 0 'False
ForeColor = &H0000FF00&
Height = 180
Left = 2760
TabIndex = 3
Top = 720
Width = 735
End
Begin MSComctlLib.Slider Slider2
Height = 255
Left = 240
TabIndex = 7
Top = 240
Width = 3495
_ExtentX = 6165
_ExtentY = 450
_Version = 393216
LargeChange = 1
Max = 1000
TickStyle = 3
End
Begin VB.Label Label18
BackStyle = 0 'Transparent
ForeColor = &H0000FF00&
Height = 255
Left = 2160
TabIndex = 40
Top = 1080
Width = 1815
End
Begin VB.Label Label17
BackStyle = 0 'Transparent
Caption = "蓝霞家庭音乐视听系统 程序设计：曾祥卓"
ForeColor = &H00FF8080&
Height = 255
Left = 240
TabIndex = 36
Top = 1560
Width = 9375
End
Begin VB.Label Label13
BackColor = &H00400000&
ForeColor = &H0000FF00&
Height = 255
Left = 840
TabIndex = 35
Top = 1320
Width = 735
End
Begin VB.Label Label5
BackColor = &H00400000&
Caption = "位置:"
ForeColor = &H00FFFF00&
Height = 255
Left = 240
MouseIcon = "VCD.frx":3E70
TabIndex = 34
Top = 1320
Width = 495
End
Begin VB.Label Label2
BackColor = &H00400000&
Caption = "帧"
ForeColor = &H00FFFF00&
Height = 255
Left = 1440
TabIndex = 33
Top = 1080
Width = 495
End
Begin VB.Label Label12
BackColor = &H00400000&
ForeColor = &H0000FF00&
Height = 255
Left = 720
TabIndex = 32
Top = 1080
Width = 735
End
Begin VB.Label Label4
BackColor = &H00400000&
Caption = "长度:"
ForeColor = &H00FFFF00&
Height = 255
Left = 240
MouseIcon = "VCD.frx":45D2
TabIndex = 31
Top = 1080
Width = 495
End
Begin VB.Label Label9
BackColor = &H00400000&
Caption = "状态:初始状态"
ForeColor = &H00FFFF00&
Height = 255
Left = 2520
TabIndex = 30
Top = 1320
Width = 1215
End
Begin VB.Label Label16
BackStyle = 0 'Transparent
Caption = "话筒"
ForeColor = &H0000FF00&
Height = 255
Left = 240
TabIndex = 29
Top = 1800
Width = 375
End
Begin VB.Label Label10
BackStyle = 0 'Transparent
Caption = "音量"
ForeColor = &H0000FF00&
Height = 255
Left = 4080
TabIndex = 26
Top = 720
Visible = 0 'False
Width = 375
End
End
Begin VB.Frame Frame2
BackColor = &H00000000&
ForeColor = &H00000000&
Height = 1815
Left = -360
TabIndex = 9
Top = -240
Width = 4080
Begin MSComctlLib.ImageList ImageList2
Left = 4920
Top = 960
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 2
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "VCD.frx":4D34
Key = "q1"
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "VCD.frx":5188
Key = "q2"
EndProperty
EndProperty
End
Begin MSComctlLib.ImageList ImageList1
Left = 4680
Top = 360
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 12
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "VCD.frx":55DC
Key = "b"
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "VCD.frx":5A30
Key = "a"
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "VCD.frx":5E84
Key = "c"
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "VCD.frx":62D8
Key = "d"
EndProperty
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -