📄 form1.frm
字号:
VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form Form1
BackColor = &H00FFFFFF&
BorderStyle = 1 'Fixed Single
Caption = "天线测量仪"
ClientHeight = 7530
ClientLeft = 45
ClientTop = 795
ClientWidth = 12450
FillStyle = 6 'Cross
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
PaletteMode = 2 'Custom
ScaleHeight = 7530
ScaleWidth = 12450
Begin MSCommLib.MSComm MSComm1
Left = 11880
Top = 1080
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
DTREnable = -1 'True
End
Begin VB.Timer Timer1
Left = 12000
Top = 600
End
Begin TabDlg.SSTab SSTab1
Height = 7575
Left = 0
TabIndex = 0
Top = 0
Width = 12435
_ExtentX = 21934
_ExtentY = 13361
_Version = 393216
Tabs = 6
TabsPerRow = 6
TabHeight = 670
ShowFocusRect = 0 'False
BackColor = 8421504
ForeColor = 16711680
TabCaption(0) = "采集波形"
TabPicture(0) = "Form1.frx":0000
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "Frame1"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "Grid1"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).ControlCount= 2
TabCaption(1) = "数据处理"
TabPicture(1) = "Form1.frx":001C
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "Frame2"
Tab(1).ControlCount= 1
TabCaption(2) = "天线方向图"
TabPicture(2) = "Form1.frx":0038
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "Frame3"
Tab(2).Control(1)= "Csave"
Tab(2).Control(2)= "Copen"
Tab(2).ControlCount= 3
TabCaption(3) = "采集控制"
TabPicture(3) = "Form1.frx":0054
Tab(3).ControlEnabled= 0 'False
Tab(3).Control(0)= "Frame4"
Tab(3).ControlCount= 1
TabCaption(4) = "使用说明"
TabPicture(4) = "Form1.frx":0070
Tab(4).ControlEnabled= 0 'False
Tab(4).Control(0)= "Frame5"
Tab(4).ControlCount= 1
TabCaption(5) = "频谱仪操作"
TabPicture(5) = "Form1.frx":008C
Tab(5).ControlEnabled= 0 'False
Tab(5).Control(0)= "Frame7"
Tab(5).Control(1)= "Frame6"
Tab(5).Control(2)= "Label11"
Tab(5).ControlCount= 3
Begin VB.Frame Frame7
BackColor = &H00FFC0C0&
Caption = "Frame7"
BeginProperty Font
Name = "Courier New"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 6735
Left = -68640
TabIndex = 58
Top = 480
Width = 5775
Begin VB.Timer Timer2
Interval = 100
Left = 5160
Top = 120
End
Begin VB.TextBox Text16
BackColor = &H00FFC0C0&
BeginProperty Font
Name = "Courier New"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 2760
TabIndex = 64
Top = 360
Width = 1215
End
Begin VB.TextBox Text15
BackColor = &H00FFC0C0&
BeginProperty Font
Name = "Courier New"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 840
TabIndex = 62
Top = 360
Width = 975
End
Begin VB.PictureBox Picture6
BackColor = &H00FFC0C0&
BeginProperty Font
Name = "Courier New"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 5055
Left = 0
Picture = "Form1.frx":00A8
ScaleHeight = 4995
ScaleWidth = 5955
TabIndex = 59
Top = 840
Width = 6015
End
Begin VB.Label Label14
BackColor = &H00FFC0C0&
Caption = "Hz"
BeginProperty Font
Name = "Courier New"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 4200
TabIndex = 65
Top = 360
Width = 735
End
Begin VB.Label Label13
BackColor = &H00FFC0C0&
Caption = "dBm"
BeginProperty Font
Name = "Courier New"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 2040
TabIndex = 63
Top = 360
Width = 495
End
Begin VB.Label Label10
BackColor = &H00FFC0C0&
Caption = "MKR"
BeginProperty Font
Name = "Courier New"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 120
TabIndex = 61
Top = 360
Width = 735
End
Begin VB.Label Label12
BackColor = &H00FFC0C0&
BeginProperty Font
Name = "Courier New"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1200
TabIndex = 60
Top = 6120
Width = 3975
End
End
Begin VB.Frame Frame6
BackColor = &H00FFC0C0&
Caption = "Frame6"
BeginProperty Font
Name = "Courier New"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 6735
Left = -74880
TabIndex = 24
Top = 480
Width = 6255
Begin VB.CommandButton Command18
BackColor = &H00FFC0C0&
Caption = "END"
BeginProperty Font
Name = "Courier New"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 4440
Style = 1 'Graphical
TabIndex = 56
Top = 360
Width = 1335
End
Begin VB.CommandButton Command17
BackColor = &H00FFC0C0&
Caption = "设置"
BeginProperty Font
Name = "Courier New"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 4680
Style = 1 'Graphical
TabIndex = 55
Top = 5520
Width = 1095
End
Begin VB.ComboBox Combo7
BackColor = &H00FFC0C0&
BeginProperty Font
Name = "Courier New"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 3000
TabIndex = 54
Text = "dB"
Top = 5520
Width = 1215
End
Begin VB.TextBox Text14
BackColor = &H00FFC0C0&
BeginProperty Font
Name = "Courier New"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1560
TabIndex = 53
Top = 5520
Width = 1215
End
Begin VB.CommandButton Command16
BackColor = &H00FFC0C0&
Caption = "设置"
BeginProperty Font
Name = "Courier New"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 4680
Style = 1 'Graphical
TabIndex = 51
Top = 4800
Width = 1095
End
Begin VB.CommandButton Command15
BackColor = &H00FFC0C0&
Caption = "设置"
BeginProperty Font
Name = "Courier New"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -