📄 dgdp.frm
字号:
Picture = "DGDP.frx":2012
Key = ""
EndProperty
BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "DGDP.frx":2124
Key = ""
EndProperty
BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "DGDP.frx":2666
Key = ""
EndProperty
BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "DGDP.frx":2778
Key = ""
EndProperty
BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "DGDP.frx":288A
Key = ""
EndProperty
BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "DGDP.frx":299C
Key = ""
EndProperty
BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "DGDP.frx":2AAE
Key = ""
EndProperty
BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "DGDP.frx":3128
Key = ""
EndProperty
BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "DGDP.frx":37A2
Key = ""
EndProperty
BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "DGDP.frx":3E1C
Key = ""
EndProperty
EndProperty
End
Begin VB.PictureBox ScrnDspObj
AutoRedraw = -1 'True
BackColor = &H00FFFFFF&
Height = 5172
Left = 360
ScaleHeight = 5115
ScaleWidth = 5955
TabIndex = 0
Top = 840
Width = 6012
Begin VB.Label lblMrk
BackColor = &H00FFFFFF&
Caption = "M4:"
Height = 252
Index = 3
Left = 4920
TabIndex = 5
Top = 3360
Width = 732
End
Begin VB.Label lblMrk
BackColor = &H00FFFFFF&
Caption = "M3:"
Height = 252
Index = 2
Left = 4920
TabIndex = 4
Top = 3000
Width = 732
End
Begin VB.Label lblMrk
BackColor = &H00FFFFFF&
Caption = "M2:"
Height = 252
Index = 1
Left = 4920
TabIndex = 3
Top = 2640
Width = 732
End
Begin VB.Label lblMrk
BackColor = &H00FFFFFF&
Caption = "M1:"
Height = 252
Index = 0
Left = 4920
TabIndex = 2
Top = 2280
Width = 732
End
End
Begin VB.Menu file
Caption = "文件"
Begin VB.Menu mnuOpen
Caption = "打开..."
End
Begin VB.Menu mnuSave
Caption = "存盘"
End
Begin VB.Menu mnuSaveAs
Caption = "另存为..."
End
End
Begin VB.Menu mnuRfrAgl
Caption = "参考角度"
Begin VB.Menu mnuRfrAglLoc
Caption = "到最大电平处"
Checked = -1 'True
Index = 0
End
Begin VB.Menu mnuRfrAglLoc
Caption = "3dB中心"
Index = 1
End
Begin VB.Menu mnuRfrAglLoc
Caption = "指定位置"
Index = 2
End
End
End
Attribute VB_Name = "formDGDP"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Set CrntDspObj = ScrnDspObj
INITmainDspArea
lblMrk(0).Visible = False
lblMrk(1).Visible = False
lblMrk(2).Visible = False
lblMrk(3).Visible = False
End Sub
Private Sub Form_Resize()
INITmainDspArea
DGreDraw
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "tbNew"
FilNum% = 0
FilPnt% = 0
DGreDraw
Case "tbOpen"
' 设置“CancelError”为 True
cmdlgFilPnt.CancelError = True
On Error GoTo Err1Handler
' 设置过滤器
cmdlgFilPnt.Filter = "All Files (*.*)|*.*|方向图数据文件" & "(*.ats)|*.ats"
' 指定缺省的过滤器
cmdlgFilPnt.FilterIndex = 2
' 显示“打开”对话框
cmdlgFilPnt.ShowOpen
FilPathNam(FilPnt%) = cmdlgFilPnt.filename
FilPnt% = FilPnt% + 1
FilNum% = FilNum% + 1
If FilPnt% > 15 Then
FilPnt% = 0
FilNum% = 16
End If
LobWid% = 0
SidLobLvl% = 0
DirGain% = 0
PreRbef% = 0
DeltSpfyAgl& = 0
DGreDraw
Err1Handler:
' 用户按了“取消”按钮
Case "tbSave"
' 设置“CancelError”为 True
cmdlgFilPnt.CancelError = True
On Error GoTo Err2Handler
' 设置过滤器
cmdlgFilPnt.Filter = "All Files (*.*)|*.*|方向图数据文件" & "(.ats)|*.ats"
' 指定缺省的过滤器
cmdlgFilPnt.FilterIndex = 2
' 显示“打开”对话框
cmdlgFilPnt.ShowSave
WrtToFil (cmdlgFilPnt.filename)
DeltSpfyAgl& = 0
Err2Handler:
Case "tbPrntGrp"
' If AmpDspMod% Then
Set CrntDspObj = Printer
PrntMod = &HFF
DGreDraw
' If GN Then
Printer.EndDoc
' GN = 0
' Else
' GN = 1
' End If
PrntMod = 0
Set CrntDspObj = ScrnDspObj
' Else
' PrintForm
' End If
Case "tbMaxLvlLoc"
CenAglMod% = 0
DGreDraw
Case "tb3dBCen"
CenAglMod% = 1
DGreDraw
Case "tbSpfLoc"
CenAglMod% = 2
DGreDraw
Case "tbMovToLft"
' CenAglMod% = 2
DeltSpfyAgl& = DeltSpfyAgl& + 1
DGreDraw
Case "tbMovToRgt"
DeltSpfyAgl& = DeltSpfyAgl& - 1
DGreDraw
Case "tbDspCenToSpf"
Case "tbDspCenMovToLft"
Case "tbDspCenMovToRgt"
Case "tbDspAreaDec"
If AglDspAreaPnt% > 1 Then
AglDspAreaPnt% = AglDspAreaPnt% - 1
End If
DGreDraw
Case "tbDspAreaInc"
If AglDspAreaPnt% < 10 Then
AglDspAreaPnt% = AglDspAreaPnt% + 1
End If
DGreDraw
Case "tbCdtMod"
DspCdtMod% = Toolbar1.Buttons(19).value
If DspCdtMod% Then
Toolbar1.Buttons(19).Image = 15
Else
Toolbar1.Buttons(19).Image = 16
INITmainDspArea
End If
DGreDraw
' If FilNum% > 0 Then
' CrntDspObj.Cls
' PPOLDIS CenAgl&, AmpDspArea%
' Else
'
' End If
Case "tbRfrLvlDec"
If RfrLvl% > -100 Then
RfrLvl% = RfrLvl% - 10
End If
Case "tbRfrLvlInc"
If RfrLvl% < 100 Then
RfrLvl% = RfrLvl% + 10
End If
Case "tbAmpAreaDec"
If AmpDspArea% > 10 Then
AmpDspArea% = AmpDspArea% - 10
End If
DGreDraw
Case "tbAmpAreaInc"
If AmpDspArea% < 100 Then
AmpDspArea% = AmpDspArea% + 10
End If
DGreDraw
Case "tbAmpDspMod"
AmpDspMod% = Not (AmpDspMod%)
Case "tbLobWid"
LobWidSW% = Toolbar1.Buttons(26).value
DGreDraw
Case "tbSidLobLvl"
SidLobLvlSW% = Toolbar1.Buttons(27).value
DGreDraw
Case "tbDirGain"
DirGainSW% = Toolbar1.Buttons(28).value
DGreDraw
Case "tbPreRbef"
PreRbefSW% = Toolbar1.Buttons(29).value
DGreDraw
Case "tbDspReDraw"
Case "tbMark1"
Case "tbMark2"
Case "tbMark3"
Case "tbMark4"
End Select
End Sub
Sub INITmainDspArea()
ScrnDspObj.Left = 80
ScrnDspObj.Width = formDGDP.Width - 255
ScrnDspObj.Top = 480
ScrnDspObj.Height = formDGDP.Height - 1440
MainDspArea.V1 = ScrnDspObj.Left + 1200
MainDspArea.V2 = ScrnDspObj.Width - 2160
MainDspArea.V4 = ScrnDspObj.Top
MainDspArea.V3 = ScrnDspObj.Height - 720
CrntVW = MainDspArea
Set CrntDspObj = ScrnDspObj
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -