📄 frmdbsprop.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmdbsprop
BorderStyle = 3 'Fixed Dialog
Caption = "Form1"
ClientHeight = 6285
ClientLeft = 45
ClientTop = 330
ClientWidth = 5595
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6285
ScaleWidth = 5595
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
WhatsThisButton = -1 'True
WhatsThisHelp = -1 'True
Begin VB.Frame frmValue
BorderStyle = 0 'None
Height = 405
Left = 1395
TabIndex = 73
Top = 2565
Width = 1710
Begin VB.OptionButton Option2
Caption = "否"
Height = 195
Left = 900
TabIndex = 75
Top = 150
Width = 585
End
Begin VB.OptionButton Option1
Caption = "是"
Height = 180
Left = 105
TabIndex = 74
Top = 135
Value = -1 'True
Width = 615
End
End
Begin VB.Frame tabfrm
BackColor = &H0080C0FF&
BorderStyle = 0 'None
Caption = "Frame1"
Height = 4980
Index = 4
Left = 210
TabIndex = 61
Top = 435
Visible = 0 'False
Width = 5295
Begin VB.CheckBox Check1
Caption = "链接到内容"
Enabled = 0 'False
Height = 315
Left = 3765
TabIndex = 76
Top = 2130
Width = 1305
End
Begin MSComctlLib.ListView propLV
Height = 1875
Left = 1185
TabIndex = 71
Top = 2685
Width = 3975
_ExtentX = 7011
_ExtentY = 3307
View = 3
LabelEdit = 1
LabelWrap = -1 'True
HideSelection = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
NumItems = 0
End
Begin VB.TextBox txtValue
Height = 270
Left = 1185
TabIndex = 70
Top = 2175
Width = 2130
End
Begin VB.ComboBox propCmb
Height = 300
Left = 1185
Style = 2 'Dropdown List
TabIndex = 68
Top = 1785
Width = 2130
End
Begin VB.ListBox lstZDY
Height = 960
Left = 1185
TabIndex = 66
Top = 555
Width = 2130
End
Begin VB.CommandButton CmdDel
Caption = "删除(&D)"
Enabled = 0 'False
Height = 315
Left = 3810
TabIndex = 65
Top = 720
Width = 1185
End
Begin VB.CommandButton CmdADD
Caption = "添加(&A)"
Enabled = 0 'False
Height = 330
Left = 3810
TabIndex = 64
Top = 225
Width = 1170
End
Begin VB.TextBox txtZDYName
Height = 285
Left = 1185
TabIndex = 63
Top = 240
Width = 2130
End
Begin VB.Label Label21
AutoSize = -1 'True
Caption = "属性(&P)："
Height = 180
Left = 270
TabIndex = 72
Top = 2670
Width = 810
End
Begin VB.Label Label20
AutoSize = -1 'True
Caption = "取值(&V)："
Height = 180
Left = 270
TabIndex = 69
Top = 2235
Width = 810
End
Begin VB.Label Label19
AutoSize = -1 'True
Caption = "类型(&T)："
Height = 180
Left = 270
TabIndex = 67
Top = 1830
Width = 810
End
Begin VB.Label Label18
AutoSize = -1 'True
Caption = "名称(&N)："
Height = 180
Left = 270
TabIndex = 62
Top = 285
Width = 810
End
End
Begin VB.Frame tabfrm
BackColor = &H00C0C0FF&
BorderStyle = 0 'None
Caption = "Frame1"
Height = 4980
Index = 3
Left = 3105
TabIndex = 58
Top = 5100
Visible = 0 'False
Width = 5295
Begin VB.ListBox List1
Height = 4380
Left = 1680
TabIndex = 60
Top = 270
Width = 3405
End
Begin VB.Label Label17
AutoSize = -1 'True
Caption = "文档内容(&D)："
Height = 180
Left = 270
TabIndex = 59
Top = 285
Width = 1170
End
End
Begin VB.Frame tabfrm
BackColor = &H00C0E0FF&
BorderStyle = 0 'None
Height = 4980
Index = 0
Left = 1380
TabIndex = 3
Top = 2685
Visible = 0 'False
Width = 5295
Begin VB.TextBox txtFilename
Appearance = 0 'Flat
BackColor = &H8000000F&
BorderStyle = 0 'None
Height = 225
Left = 1140
Locked = -1 'True
TabIndex = 18
Text = "txtFilename"
Top = 360
Width = 3915
End
Begin VB.TextBox txtType
Appearance = 0 'Flat
BackColor = &H8000000F&
BorderStyle = 0 'None
Height = 225
Left = 1620
Locked = -1 'True
TabIndex = 17
Text = "txtType"
Top = 1140
Width = 3435
End
Begin VB.TextBox txtLocation
Appearance = 0 'Flat
BackColor = &H8000000F&
BorderStyle = 0 'None
Height = 225
Left = 1620
Locked = -1 'True
TabIndex = 16
Text = "txtLocation"
Top = 1440
Width = 3435
End
Begin VB.TextBox txtSize
Appearance = 0 'Flat
BackColor = &H8000000F&
BorderStyle = 0 'None
Height = 225
Left = 1620
Locked = -1 'True
TabIndex = 15
Text = "txtSize"
Top = 1740
Width = 3435
End
Begin VB.TextBox txtAccessed
Appearance = 0 'Flat
BackColor = &H8000000F&
BorderStyle = 0 'None
Height = 225
Left = 1620
Locked = -1 'True
TabIndex = 14
Text = "txtAccessed"
Top = 3480
Width = 3435
End
Begin VB.TextBox txtModified
Appearance = 0 'Flat
BackColor = &H8000000F&
BorderStyle = 0 'None
Height = 225
Left = 1620
Locked = -1 'True
TabIndex = 13
Text = "txtModified"
Top = 3180
Width = 3435
End
Begin VB.TextBox txtCreated
Appearance = 0 'Flat
BackColor = &H8000000F&
BorderStyle = 0 'None
Height = 225
Left = 1620
Locked = -1 'True
TabIndex = 12
Text = "txtCreated"
Top = 2880
Width = 3435
End
Begin VB.TextBox txtDosName
Appearance = 0 'Flat
BackColor = &H8000000F&
BorderStyle = 0 'None
Height = 225
Left = 1620
Locked = -1 'True
TabIndex = 11
Text = "txtDosName"
Top = 2580
Width = 3435
End
Begin VB.TextBox txtDosPath
Appearance = 0 'Flat
BackColor = &H8000000F&
BorderStyle = 0 'None
Height = 225
Left = 1620
Locked = -1 'True
TabIndex = 10
Text = "txtDosPath"
Top = 2280
Width = 3435
End
Begin VB.Frame frmAttributes
BorderStyle = 0 'None
Caption = "Frame4"
Enabled = 0 'False
Height = 600
Left = 1605
TabIndex = 5
Top = 4095
Width = 3255
Begin VB.CheckBox chkAttr
Caption = "系统"
Height = 195
Index = 4
Left = 1620
TabIndex = 9
Top = 300
Width = 1335
End
Begin VB.CheckBox chkAttr
Caption = "隐藏"
Height = 195
Index = 3
Left = 1620
TabIndex = 8
Top = 0
Width = 1335
End
Begin VB.CheckBox chkAttr
Caption = "存档"
Height = 195
Index = 1
Left = 0
TabIndex = 7
Top = 300
Width = 1335
End
Begin VB.CheckBox chkAttr
Caption = "只读"
Height = 195
Index = 0
Left = 0
TabIndex = 6
Top = 0
Width = 1335
End
End
Begin VB.PictureBox picIcon
AutoRedraw = -1 'True
BorderStyle = 0 'None
Height = 480
Left = 240
ScaleHeight = 480
ScaleWidth = 480
TabIndex = 4
Top = 240
Width = 480
End
Begin VB.Line Line1
BorderColor = &H80000010&
Index = 0
X1 = 240
X2 = 5100
Y1 = 960
Y2 = 960
End
Begin VB.Line Line1
BorderColor = &H80000014&
Index = 1
X1 = 240
X2 = 5100
Y1 = 975
Y2 = 975
End
Begin VB.Line Line1
BorderColor = &H80000010&
Index = 2
X1 = 255
X2 = 5115
Y1 = 2100
Y2 = 2100
End
Begin VB.Line Line1
BorderColor = &H80000014&
Index = 3
X1 = 240
X2 = 5100
Y1 = 2115
Y2 = 2115
End
Begin VB.Line Line1
BorderColor = &H80000010&
Index = 4
X1 = 240
X2 = 5100
Y1 = 3780
Y2 = 3780
End
Begin VB.Line Line1
BorderColor = &H80000014&
Index = 5
X1 = 240
X2 = 5100
Y1 = 3795
Y2 = 3795
End
Begin VB.Label lblType
AutoSize = -1 'True
Caption = "类型："
Height = 180
Left = 240
TabIndex = 27
Top = 1140
Width = 540
End
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -