📄 form16.frm
字号:
VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.2#0"; "COMCTL32.OCX"
Object = "{A964BDA3-3E93-11CF-9A0F-9E6261DACD1C}#2.0#0"; "RESIZE32.OCX"
Begin VB.Form Form16
Caption = "HELP?"
ClientHeight = 5190
ClientLeft = 60
ClientTop = 345
ClientWidth = 7380
Icon = "Form16.frx":0000
LinkTopic = "Form16"
MDIChild = -1 'True
ScaleHeight = 5190
ScaleWidth = 7380
Begin VB.TextBox Text10
BackColor = &H00FFFFFF&
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 4635
Left = 3500
Locked = -1 'True
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 11
Text = "Form16.frx":0442
Top = 60
Visible = 0 'False
Width = 3700
End
Begin VB.TextBox Text9
BackColor = &H00FFFFFF&
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 4635
Left = 3500
Locked = -1 'True
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 10
Text = "Form16.frx":04A8
Top = 60
Visible = 0 'False
Width = 3700
End
Begin ComctlLib.TreeView TreeView1
Height = 4635
Left = 90
TabIndex = 0
Top = 60
Width = 3315
_ExtentX = 5847
_ExtentY = 8176
_Version = 327682
LabelEdit = 1
Style = 7
ImageList = "ImageList1"
BorderStyle = 1
Appearance = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.TextBox Text8
BackColor = &H00FFFFFF&
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 4635
Left = 3500
Locked = -1 'True
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 9
Text = "Form16.frx":0773
Top = 60
Visible = 0 'False
Width = 3700
End
Begin VB.TextBox Text7
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 4635
Left = 3500
Locked = -1 'True
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 8
Text = "Form16.frx":08E4
Top = 60
Visible = 0 'False
Width = 3700
End
Begin VB.TextBox Text6
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 4635
Left = 3500
Locked = -1 'True
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 7
Text = "Form16.frx":0983
Top = 60
Visible = 0 'False
Width = 3700
End
Begin VB.TextBox Text5
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 4635
Left = 3500
Locked = -1 'True
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 6
Text = "Form16.frx":0B91
Top = 60
Visible = 0 'False
Width = 3700
End
Begin VB.TextBox Text4
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 4635
Left = 3500
Locked = -1 'True
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 5
Text = "Form16.frx":0E43
Top = 60
Visible = 0 'False
Width = 3700
End
Begin VB.TextBox Text3
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 4635
Left = 3500
Locked = -1 'True
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 4
Text = "Form16.frx":0FAC
Top = 60
Visible = 0 'False
Width = 3700
End
Begin VB.CommandButton cmdOK
Caption = "确定"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 350
Left = 6120
TabIndex = 3
Top = 4770
Width = 1000
End
Begin VB.TextBox Text2
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 4635
Left = 3500
Locked = -1 'True
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 2
Text = "Form16.frx":10C0
Top = 60
Visible = 0 'False
Width = 3700
End
Begin VB.TextBox Text1
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 4635
Left = 3500
Locked = -1 'True
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 1
Text = "Form16.frx":1301
Top = 60
Width = 3700
End
Begin ResizeLibCtl.ReSize ReSize1
Left = 780
Top = 3180
_Version = 131072
_ExtentX = 741
_ExtentY = 741
_StockProps = 0
Enabled = -1 'True
FormMinWidth = 0
FormMinHeight = 0
AutoCenterFormOnLoad= -1 'True
FormDesignHeight= 5190
FormDesignWidth = 7380
End
Begin ComctlLib.ImageList ImageList1
Left = 1560
Top = 3600
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 327682
BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7}
NumListImages = 4
BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "Form16.frx":13EF
Key = ""
EndProperty
BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "Form16.frx":1709
Key = ""
EndProperty
BeginProperty ListImage3 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "Form16.frx":1A23
Key = ""
EndProperty
BeginProperty ListImage4 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "Form16.frx":1D3D
Key = ""
EndProperty
EndProperty
End
End
Attribute VB_Name = "Form16"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdOK_Click()
Form16.Hide
End Sub
Private Sub Form_Load()
Me.Width = 7100
Me.Height = 5000
Set nd = TreeView1.Nodes.Add(, , "wave", "微波传输线系统", 1)
nd.Tag = "wave"
Set nd = TreeView1.Nodes.Add("wave", tvwChild, "wave1", "微波传输线系统", 3, 4)
nd.Tag = "wave1"
Set nd = TreeView1.Nodes.Add("wave", tvwChild, "szfx", "数值分析", 1)
nd.Tag = "szfx"
Set nd = TreeView1.Nodes.Add("wave", tvwChild, "cxjg", "场型结构", 3, 4)
nd.Tag = "cxjg"
Set nd = TreeView1.Nodes.Add("wave", tvwChild, "smith", "Smith圆图分析", 3, 4)
nd.Tag = "smith"
Set nd = TreeView1.Nodes.Add("szfx", tvwChild, "pxsx", "平行双线", 3, 4)
nd.Tag = "pxsx"
Set nd = TreeView1.Nodes.Add("szfx", tvwChild, "jbx", "渐变线", 3, 4)
nd.Tag = "jbx"
Set nd = TreeView1.Nodes.Add("szfx", tvwChild, "cx", "槽 线", 3, 4)
nd.Tag = "cx"
Set nd = TreeView1.Nodes.Add("szfx", tvwChild, "tzx", "同轴线", 3, 4)
nd.Tag = "tzx"
Set nd = TreeView1.Nodes.Add("szfx", tvwChild, "bd", "波 导", 3, 4)
nd.Tag = "bd"
Set nd = TreeView1.Nodes.Add("szfx", tvwChild, "dzx", "带状线", 3, 4)
nd.Tag = "dzx"
Set nd = TreeView1.Nodes.Add("szfx", tvwChild, "wdx", "微带线", 3, 4)
nd.Tag = "wdx"
End Sub
Private Sub TreeView1_NodeClick(ByVal Node As ComctlLib.Node)
Dim cnd As Node, nd As Node
Set nd = Node
Me.Caption = nd.FullPath
nd.Expanded = Not nd.Expanded
Set nd = Node
Text1.Visible = True
Text2.Visible = False
Text3.Visible = False
Text4.Visible = False
Text5.Visible = False
Text6.Visible = False
Text7.Visible = False
Text8.Visible = False
Text9.Visible = False
Text10.Visible = False
Select Case nd.Tag
Case "wave"
If nd.Expanded = True Then
nd.Image = 2
Else
nd.Image = 1
End If
Case "wave1"
Text1.Visible = True
Set nd = nd.Parent
nd.Image = 2
Case "szfx"
If nd.Expanded = True Then
nd.Image = 2
Else
nd.Image = 1
End If
Case "pxsx"
Text2.Visible = True
Text1.Visible = False
Set nd = nd.Parent
nd.Image = 2
Set nd = nd.Parent
nd.Image = 2
Case "jbx"
Text9.Visible = True
Text1.Visible = False
Set nd = nd.Parent
nd.Image = 2
Set nd = nd.Parent
nd.Image = 2
Case "cx"
Text10.Visible = True
Text1.Visible = False
Set nd = nd.Parent
nd.Image = 2
Set nd = nd.Parent
nd.Image = 2
Case "tzx"
Text3.Visible = True
Text1.Visible = False
Set nd = nd.Parent
nd.Image = 2
Set nd = nd.Parent
nd.Image = 2
Case "bd"
Text4.Visible = True
Text1.Visible = False
Set nd = nd.Parent
nd.Image = 2
Set nd = nd.Parent
nd.Image = 2
Case "dzx"
Text5.Visible = True
Text1.Visible = False
Set nd = nd.Parent
nd.Image = 2
Set nd = nd.Parent
nd.Image = 2
Case "wdx"
Text6.Visible = True
Text1.Visible = False
Set nd = nd.Parent
nd.Image = 2
Set nd = nd.Parent
nd.Image = 2
Case "cxjg"
Text7.Visible = True
Text1.Visible = False
Set nd = nd.Parent
nd.Image = 2
Case "smith"
Text8.Visible = True
Text1.Visible = False
Set nd = nd.Parent
nd.Image = 2
End Select
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -