📄 vcd.frm
字号:
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "VCD.frx":6A4C
Key = "e"
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "VCD.frx":6EA0
Key = "f"
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "VCD.frx":72F4
Key = "g"
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "VCD.frx":7748
Key = "h"
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "VCD.frx":7B9C
Key = "i"
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "VCD.frx":7FF0
Key = "j"
EndProperty
BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "VCD.frx":844C
Key = "k"
EndProperty
BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "VCD.frx":88A0
Key = "l"
EndProperty
EndProperty
End
Begin VB.PictureBox Picture1
AutoSize = -1 'True
BackColor = &H00FF0000&
ForeColor = &H00404040&
Height = 855
Left = 840
ScaleHeight = 795
ScaleWidth = 555
TabIndex = 10
Top = 240
Width = 615
Begin VB.Timer Timer3
Enabled = 0 'False
Interval = 3000
Left = 3960
Top = 2640
End
Begin VB.Timer Timer1
Enabled = 0 'False
Interval = 1
Left = 1320
Top = 2400
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = 0
Top = 3240
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin MCI.MMControl MMControl1
Height = 330
Left = 840
TabIndex = 11
Top = 3240
Visible = 0 'False
Width = 3540
_ExtentX = 6244
_ExtentY = 582
_Version = 393216
UpdateInterval = 200
EjectEnabled = -1 'True
DeviceType = ""
FileName = ""
End
Begin VB.Line Line1
BorderColor = &H00FFFFFF&
X1 = 360
X2 = 4920
Y1 = 2400
Y2 = 2400
End
Begin VB.Label Label8
BackColor = &H00FF0000&
Caption = "全面支持 VCD,AVI,MP3,MPEG,Movie格式"
ForeColor = &H00FFFFFF&
Height = 255
Left = 1080
TabIndex = 14
Top = 2040
Width = 3495
End
Begin VB.Label Label6
BackColor = &H00FF0000&
Caption = " LXVCD V5.0"
BeginProperty Font
Name = "Small Fonts"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFF00&
Height = 375
Left = 1800
TabIndex = 12
Top = 1560
Width = 1815
End
Begin VB.Label Label7
BackColor = &H00FF0000&
Caption = "蓝霞家庭音乐视听"
BeginProperty Font
Name = "宋体"
Size = 21.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 495
Left = 720
TabIndex = 13
Top = 960
Width = 3615
End
End
Begin VB.PictureBox Picture4
AutoRedraw = -1 'True
AutoSize = -1 'True
Height = 375
Left = 600
ScaleHeight = 315
ScaleWidth = 3195
TabIndex = 15
Top = 840
Visible = 0 'False
Width = 3255
End
Begin VB.PictureBox Picture3
BackColor = &H00000000&
Height = 135
Left = 5160
ScaleHeight = 75
ScaleWidth = 195
TabIndex = 16
Top = 5760
Visible = 0 'False
Width = 255
End
End
Begin MSComctlLib.ImageList ImageList3
Left = 5520
Top = 3000
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 10
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "VCD.frx":8CF4
Key = "pp1"
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "VCD.frx":9148
Key = "pp2"
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "VCD.frx":959C
Key = "pp3"
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "VCD.frx":A278
Key = "pp4"
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "VCD.frx":AF54
Key = "pp5"
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "VCD.frx":B3A8
Key = "pp6"
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "VCD.frx":C084
Key = "pp7"
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "VCD.frx":CD60
Key = "pp8"
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "VCD.frx":D07C
Key = "pp9"
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "VCD.frx":D398
Key = "pp10"
EndProperty
EndProperty
End
Begin VB.Image imgIcon2
Height = 480
Left = 1680
Picture = "VCD.frx":D7EC
Top = 1920
Width = 480
End
Begin VB.Image ImgTrayIcon
Height = 480
Left = 840
Picture = "VCD.frx":DAF6
ToolTipText = "蓝霞家庭音乐视听系统 曾祥卓"
Top = 1920
Width = 480
End
Begin VB.Label Label15
BackStyle = 0 'Transparent
Caption = "话筒"
ForeColor = &H0000FF00&
Height = 255
Left = 0
TabIndex = 28
Top = 0
Width = 375
End
Begin VB.Label Label14
BackStyle = 0 'Transparent
Caption = "话筒"
ForeColor = &H0000FF00&
Height = 255
Index = 0
Left = 0
TabIndex = 27
Top = 0
Width = 375
End
Begin VB.Menu f1
Caption = "文件(&F)"
Begin VB.Menu f11
Caption = "打开文件"
Shortcut = ^O
End
Begin VB.Menu 早上54545
Caption = "打开列表"
End
Begin VB.Menu f12
Caption = "关闭"
Shortcut = ^C
End
Begin VB.Menu add
Caption = "添加"
Shortcut = ^A
End
Begin VB.Menu f13
Caption = "-"
End
Begin VB.Menu f14
Caption = "播放 VCD"
Shortcut = ^V
End
Begin VB.Menu f15
Caption = "播放 CD"
Enabled = 0 'False
Shortcut = ^B
End
Begin VB.Menu f16
Caption = "-"
End
Begin VB.Menu eeret
Caption = "弹开光驱"
End
Begin VB.Menu jfsfhjhhl
Caption = "关闭光驱"
End
Begin VB.Menu hghlkl
Caption = "-"
End
Begin VB.Menu mLastFile
Caption = "mLastFile"
Index = 0
End
Begin VB.Menu mLastFile
Caption = ""
Index = 1
Visible = 0 'False
End
Begin VB.Menu mLastFile
Caption = ""
Index = 2
Visible = 0 'False
End
Begin VB.Menu mLastFile
Caption = ""
Index = 3
Visible = 0 'False
End
Begin VB.Menu 应该
Caption = "-"
End
Begin VB.Menu f17
Caption = "退出"
Shortcut = ^X
End
End
Begin VB.Menu f2
Caption = "控制(&C)"
Begin VB.Menu f21
Caption = "播放"
Enabled = 0 'False
Shortcut = ^P
End
Begin VB.Menu f22
Caption = "暂停"
Enabled = 0 'False
End
Begin VB.Menu f23
Caption = "停止"
Shortcut = ^S
End
Begin VB.Menu f24
Caption = "-"
End
Begin VB.Menu gh
Caption = "到头"
Enabled = 0 'False
Shortcut = ^H
End
Begin VB.Menu f25
Caption = "快进"
Enabled = 0 'False
Shortcut = ^F
End
Begin VB.Menu f26
Caption = "快退"
Enabled = 0 'False
Shortcut = ^R
End
Begin VB.Menu f27
Caption = "-"
End
Begin VB.Menu f28
Caption = "循环"
Checked = -1 'True
Enabled = 0 'False
End
Begin VB.Menu f29
Caption = "静音"
Checked = -1 'True
Enabled = 0 'False
End
Begin VB.Menu 音量
Caption = "系统音量"
Begin VB.Menu uuuu
Caption = "音量 高"
End
Begin VB.Menu 痒痒
Caption = "音量 中"
End
Begin VB.Menu 晶日下下
Caption = "音量 低"
End
Begin VB.Menu kjkjkj
Caption = "-"
End
Begin VB.Menu 减小
Caption = "减小"
End
Begin VB.Menu 增加
Caption = "增加"
End
End
Begin VB.Menu jhjhjjhj
Caption = "话筒音量"
Begin VB.Menu hjhjhjhjh
Caption = "高"
End
Begin VB.Menu jhjhuoyuiy
Caption = "中"
End
Begin VB.Menu yuyuyiy
Caption = "低"
End
Begin VB.Menu kjkzx
Caption = "-"
End
Begin VB.Menu klhkljhjk
Caption = "关闭"
End
End
Begin VB.Menu 眒晫
Caption = "-"
End
Begin VB.Menu ooooo
Caption = "播放列表"
Checked = -1 'True
End
End
Begin VB.Menu f3
Caption = "界面(&W)"
Begin VB.Menu f31
Caption = "简化界面"
Checked = -1 'True
Enabled = 0 'False
End
Begin VB.Menu f32
Caption = "清空列表历史文件"
Enabled = 0 'False
Shortcut = ^D
End
Begin VB.Menu oiooooooo
Caption = "-"
End
Begin VB.Menu fgh
Caption = "控制栏颜色"
End
Begin VB.Menu aasssss
Caption = "-"
End
Begin VB.Menu first
Caption = "总是位于最顶层"
End
Begin VB.Menu doiu
Caption = "取消位于最顶层"
Enabled = 0 'False
End
Begin VB.Menu iiiiiiii
Caption = "-"
End
Begin VB.Menu ttyyuu
Caption = "关闭图像窗口"
End
End
Begin VB.Menu f4
Caption = "帮助(&H)"
Begin VB.Menu kkkll
Caption = "声卡测试"
End
Begin VB.Menu 谢谢hhj
Caption = "-"
End
Begin VB.Menu f41
Caption = "关于编者..."
Shortcut = {F1}
End
Begin VB.Menu dffdfdf
Caption = "-"
End
Begin VB.Menu f42
Caption = "关于本系统..."
Shortcut = {F2}
End
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -