📄 media.frm
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{C1A8AF28-1257-101B-8FB0-0020AF039CA3}#1.1#0"; "MCI32.OCX"
Begin VB.Form Form6
BorderStyle = 1 'Fixed Single
Caption = "我的媒体库"
ClientHeight = 6945
ClientLeft = 45
ClientTop = 225
ClientWidth = 10215
FillColor = &H00808080&
ForeColor = &H00000000&
Icon = "Media.frx":0000
LinkTopic = "Form6"
MaxButton = 0 'False
ScaleHeight = 6945
ScaleWidth = 10215
StartUpPosition = 3 '窗口缺省
Begin MSComctlLib.ImageList ImageList2
Left = 7200
Top = 2760
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 30
ImageHeight = 30
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 11
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Media.frx":23D2
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Media.frx":2A4C
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Media.frx":3326
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Media.frx":4000
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Media.frx":63E2
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Media.frx":80EC
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Media.frx":8406
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Media.frx":8518
Key = ""
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Media.frx":9856A
Key = ""
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Media.frx":9866C
Key = ""
EndProperty
BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Media.frx":98986
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar Toolbar1
Height = 570
Left = 120
TabIndex = 15
Top = 6360
Width = 10095
_ExtentX = 17806
_ExtentY = 1005
ButtonWidth = 979
ButtonHeight = 953
Appearance = 1
Style = 1
ImageList = "ImageList2"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 14
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "新建结点"
Style = 5
BeginProperty ButtonMenus {66833FEC-8583-11D1-B16A-00C0F0283628}
NumButtonMenus = 3
BeginProperty ButtonMenu1 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "t1"
Text = "前插入结点"
EndProperty
BeginProperty ButtonMenu2 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "t2"
Text = "后插入结点"
EndProperty
BeginProperty ButtonMenu3 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "t3"
Text = "新建子结点"
EndProperty
EndProperty
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "移除结点"
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "播放该列表"
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "为该结点添加文件"
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "编辑该结点列表"
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "重命名该结点"
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "保存更改"
EndProperty
BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "暂停播放"
EndProperty
BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "全选列表文件"
EndProperty
BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "退出"
EndProperty
EndProperty
BorderStyle = 1
OLEDropMode = 1
End
Begin MSComDlg.CommonDialog cdg
Left = 5880
Top = 2040
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.CommandButton Command2
Caption = "保存更改"
Height = 255
Left = 8760
TabIndex = 14
Top = 4440
Visible = 0 'False
Width = 495
End
Begin VB.CommandButton Command1
Caption = "暂停播放"
Height = 495
Left = 9240
TabIndex = 13
Top = 3360
Visible = 0 'False
Width = 615
End
Begin VB.CommandButton cmdExit
Caption = "退 出(&Q)"
Height = 375
Left = 9600
TabIndex = 12
Top = 5160
Visible = 0 'False
Width = 375
End
Begin VB.CommandButton cmdAddFile
Caption = "添加结点文件"
Height = 375
Left = 8640
TabIndex = 11
Top = 5040
Visible = 0 'False
Width = 735
End
Begin VB.CommandButton cmdNewName
Caption = "重命名该结点"
Height = 255
Left = 9000
TabIndex = 10
Top = 4440
Visible = 0 'False
Width = 735
End
Begin VB.CommandButton cmdPlay
Caption = "播放该列表"
Height = 495
Left = 9480
TabIndex = 9
Top = 4080
Visible = 0 'False
Width = 735
End
Begin VB.CommandButton cmdEdite
Caption = "编辑播放列表"
Height = 255
Left = 8880
TabIndex = 8
Top = 3960
Visible = 0 'False
Width = 855
End
Begin VB.CommandButton cmdDel
Caption = "移除结点 >>"
Height = 255
Left = 9360
TabIndex = 7
Top = 4680
Visible = 0 'False
Width = 615
End
Begin VB.CommandButton cmdAddNode
Caption = "<< 新建结点"
Height = 375
Left = 9240
TabIndex = 6
Top = 4800
Visible = 0 'False
Width = 735
End
Begin MSComctlLib.ImageList ImageList1
Left = 4920
Top = 2880
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 20
ImageHeight = 20
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 17
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Media.frx":1289D8
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Media.frx":12ADBA
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Media.frx":12C90E
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Media.frx":12DB90
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Media.frx":12E46A
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Media.frx":130174
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Media.frx":131E7E
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Media.frx":1339D2
Key = ""
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Media.frx":135526
Key = ""
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Media.frx":135840
Key = ""
EndProperty
BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Media.frx":13611A
Key = ""
EndProperty
BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Media.frx":1369F4
Key = ""
EndProperty
BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Media.frx":138548
Key = ""
EndProperty
BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Media.frx":138862
Key = ""
EndProperty
BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Media.frx":13913C
Key = ""
EndProperty
BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Media.frx":139F8E
Key = ""
EndProperty
BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Media.frx":13A868
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.TreeView TreeView1
Height = 5775
Left = 0
TabIndex = 5
Top = 0
Width = 3615
_ExtentX = 6376
_ExtentY = 10186
_Version = 393217
Style = 7
ImageList = "ImageList1"
Appearance = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin MSComctlLib.Slider Slider1
Height = 375
Left = 0
TabIndex = 3
Top = 5880
Width = 3735
_ExtentX = 6588
_ExtentY = 661
_Version = 393216
OLEDropMode = 1
LargeChange = 50
TickStyle = 3
End
Begin MCI.MMControl MCI
Height = 375
Left = 3120
TabIndex = 1
Top = 7440
Width = 3615
_ExtentX = 6376
_ExtentY = 661
_Version = 393216
DeviceType = ""
FileName = ""
End
Begin VB.ListBox List1
BackColor = &H80000008&
ForeColor = &H0000C000&
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -