📄 ftesttree.frm
字号:
ForeColor = &H8000000E&
Height = 300
Index = 5
Left = 105
TabIndex = 38
Top = 2520
Width = 1275
End
Begin VB.Label lblDetail
Alignment = 1 'Right Justify
BackColor = &H00808080&
Caption = "Has Children: "
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000E&
Height = 300
Index = 4
Left = 105
TabIndex = 36
Top = 2205
Width = 1275
End
Begin VB.Label lblDetail
Alignment = 1 'Right Justify
BackColor = &H00808080&
Caption = "Is Checked: "
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000E&
Height = 300
Index = 3
Left = 105
TabIndex = 34
Top = 1890
Width = 1275
End
Begin VB.Label lblDetail
Alignment = 1 'Right Justify
BackColor = &H00808080&
Caption = "Is Bold: "
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000E&
Height = 300
Index = 2
Left = 105
TabIndex = 32
Top = 1575
Width = 1275
End
Begin VB.Label lblDetail
Alignment = 1 'Right Justify
BackColor = &H00808080&
Caption = "Back Colour: "
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000E&
Height = 300
Index = 1
Left = 105
TabIndex = 30
Top = 1260
Width = 1275
End
Begin VB.Label lblDetail
Alignment = 1 'Right Justify
BackColor = &H00808080&
Caption = "Text: "
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000E&
Height = 300
Index = 0
Left = 105
TabIndex = 26
Top = 315
Width = 1275
End
End
Begin VB.Frame fraDialog
Height = 1485
Left = 3465
TabIndex = 17
Top = 1230
Width = 5790
Begin VB.CheckBox chkDialog
Caption = "Is Product?"
Height = 225
Index = 3
Left = 4515
TabIndex = 20
ToolTipText = "Is the new node a Group or a Product?"
Top = 255
Visible = 0 'False
Width = 1190
End
Begin VB.TextBox txtDialog
Appearance = 0 'Flat
Height = 315
Index = 1
Left = 1575
TabIndex = 22
Top = 630
Visible = 0 'False
Width = 2850
End
Begin VB.CommandButton cmdDialog
Caption = "Go"
Height = 330
Index = 5
Left = 4515
TabIndex = 23
Top = 622
Visible = 0 'False
Width = 1065
End
Begin VB.TextBox txtDialog
Appearance = 0 'Flat
Height = 315
Index = 0
Left = 1575
TabIndex = 19
Top = 210
Visible = 0 'False
Width = 2850
End
Begin VB.Label lblComments
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000018&
BeginProperty Font
Name = "Tahoma"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 330
Left = 210
TabIndex = 24
Top = 1050
Width = 5370
End
Begin VB.Label lblDialog
Alignment = 1 'Right Justify
BackColor = &H00C0C0C0&
Caption = "Node Text: "
Height = 315
Index = 0
Left = 210
TabIndex = 18
Top = 210
Visible = 0 'False
Width = 1275
End
Begin VB.Label lblDialog
Alignment = 1 'Right Justify
BackColor = &H00C0C0C0&
Caption = "Parent Node: "
Height = 315
Index = 1
Left = 210
TabIndex = 21
Top = 630
Visible = 0 'False
Width = 1275
End
End
Begin VB.Label lblEvent
Alignment = 1 'Right Justify
BackColor = &H80000010&
Caption = "*Action* Time:"
ForeColor = &H80000014&
Height = 300
Index = 2
Left = 6825
TabIndex = 66
Top = 735
Width = 1170
End
Begin VB.Label lblEvent
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H80000018&
BorderStyle = 1 'Fixed Single
ForeColor = &H80000008&
Height = 300
Index = 3
Left = 8085
TabIndex = 65
Top = 735
Width = 1170
End
Begin VB.Label lblEvent
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000018&
BorderStyle = 1 'Fixed Single
ForeColor = &H80000008&
Height = 300
Index = 1
Left = 8085
TabIndex = 16
Top = 315
Width = 1170
End
Begin VB.Label lblEvent
Alignment = 1 'Right Justify
BackColor = &H80000010&
Caption = "Last Event: "
ForeColor = &H80000014&
Height = 300
Index = 0
Left = 6825
TabIndex = 15
Top = 315
Width = 1170
End
Begin VB.Menu mnuPopNode
Caption = "PopNode"
Visible = 0 'False
Begin VB.Menu mnuNode
Caption = "&New"
Index = 0
End
Begin VB.Menu mnuNode
Caption = "&Move"
Index = 1
End
Begin VB.Menu mnuNode
Caption = "-"
Index = 2
End
Begin VB.Menu mnuNode
Caption = "C&ut"
Index = 3
End
Begin VB.Menu mnuNode
Caption = "&Copy"
Index = 4
End
Begin VB.Menu mnuNode
Caption = "&Paste"
Enabled = 0 'False
Index = 5
End
Begin VB.Menu mnuNode
Caption = "-"
Index = 6
End
Begin VB.Menu mnuNode
Caption = "&Delete"
Index = 7
End
Begin VB.Menu mnuNode
Caption = "&Rename"
Index = 8
End
Begin VB.Menu mnuNode
Caption = "-"
Index = 9
End
Begin VB.Menu mnuPopTree
Caption = "&Treeview"
Begin VB.Menu mnuTree
Caption = "&Home"
Index = 0
End
Begin VB.Menu mnuTree
Caption = "&Page Up"
Index = 1
End
Begin VB.Menu mnuTree
Caption = "&Up"
Index = 2
End
Begin VB.Menu mnuTree
Caption = "&Down"
Index = 3
End
Begin VB.Menu mnuTree
Caption = "P&age Down"
Index = 4
End
Begin VB.Menu mnuTree
Caption = "&End"
Index = 5
End
Begin VB.Menu mnuTree
Caption = "-"
Index = 6
End
Begin VB.Menu mnuTree
Caption = "All&ow Drag'n'Drop"
Checked = -1 'True
Index = 7
End
Begin VB.Menu mnuTree
Caption = "Allow &Label Edit"
Checked = -1 'True
Index = 8
End
Begin VB.Menu mnuTree
Caption = "&Hot Tracking Cursor"
Checked = -1 'True
Index = 9
End
End
End
End
Attribute VB_Name = "fTestTree"
Attribute VB_GlobalNameSpace = False
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -