📄 显示结果.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form frmXianshiJG
Caption = "显示平差结果"
ClientHeight = 8100
ClientLeft = 255
ClientTop = 345
ClientWidth = 9630
LinkTopic = "Form1"
ScaleHeight = 8100
ScaleWidth = 9630
Begin VB.CommandButton Command1
Caption = "返 回"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 7920
TabIndex = 4
Top = 7560
Width = 1215
End
Begin TabDlg.SSTab SSTab1
Height = 7575
Left = 120
TabIndex = 3
Top = 120
Width = 9495
_ExtentX = 16748
_ExtentY = 13361
_Version = 393216
Style = 1
Tab = 1
TabHeight = 609
BackColor = 12632256
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
TabCaption(0) = "点位结果"
Tab(0).ControlEnabled= 0 'False
Tab(0).Control(0)= "MSFlexGrid1"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).ControlCount= 1
TabCaption(1) = "点椭圆"
Tab(1).ControlEnabled= -1 'True
Tab(1).Control(0)= "MSFlexGrid2"
Tab(1).Control(0).Enabled= 0 'False
Tab(1).ControlCount= 1
TabCaption(2) = "点间椭圆"
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "MSFlexGrid3"
Tab(2).ControlCount= 1
Begin MSFlexGridLib.MSFlexGrid MSFlexGrid3
Height = 5175
Left = -74760
TabIndex = 2
Top = 720
Width = 8295
_ExtentX = 14631
_ExtentY = 9128
_Version = 393216
Cols = 10
ForeColor = 49152
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin MSFlexGridLib.MSFlexGrid MSFlexGrid2
Height = 4575
Left = 480
TabIndex = 1
Top = 720
Width = 6615
_ExtentX = 11668
_ExtentY = 8070
_Version = 393216
Cols = 10
ForeColor = 49152
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1
Height = 4335
Left = -74760
TabIndex = 0
Top = 720
Width = 7095
_ExtentX = 12515
_ExtentY = 7646
_Version = 393216
Cols = 7
ForeColor = 49152
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
End
Begin VB.Label Label1
Caption = "单位权中误差m0="
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 360
TabIndex = 5
Top = 7800
Width = 3615
End
End
Attribute VB_Name = "frmXianshiJG"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
frmXianshiJG.Visible = False
Unload Me
End Sub
Private Sub Form_Load()
SSTab1.Tab = 0
MSFlexGrid1.Visible = True
MSFlexGrid2.Visible = False
MSFlexGrid3.Visible = False
Label1.Caption = Label1.Caption + "±" + Format(m0, "#.#") + "″"
MSFlexGrid1.ColWidth(0) = 600 '显示点的结果
MSFlexGrid1.ColWidth(1) = 600
MSFlexGrid1.ColWidth(2) = 1200
MSFlexGrid1.ColWidth(3) = 1600
MSFlexGrid1.ColWidth(4) = 2100
MSFlexGrid1.ColWidth(5) = 2000
MSFlexGrid1.ColWidth(6) = 2000
For i = 0 To 6
MSFlexGrid1.ColAlignment(i) = 4
Next i
MSFlexGrid1.RowHeight(0) = 600
MSFlexGrid1.Rows = IntCount + 1
For i = 1 To IntCount
MSFlexGrid1.RowHeight(i) = 400
Next i
With MSFlexGrid1
.col = 0
.row = 0
.ColSel = 6
.Clip = "编号" & Chr(9) & "点号" & Chr(9) & "点名" & Chr(9) & "边长平差值(m)" & Chr(9) & "方位角平差值(dms)" & Chr(9) & "X(m)" & Chr(9) & "Y(m)"
End With
For i = 1 To IntCount
With MSFlexGrid1
.TextMatrix(i, 0) = i
.TextMatrix(i, 1) = InputDat(i).ICount
.TextMatrix(i, 2) = InputDat(i).PiontName
If i < IntCount Then
.TextMatrix(i, 3) = Format(s(i), "####.0000")
.TextMatrix(i, 4) = Format(DuDFM(ZBJG(i).a), "###.000000")
End If
.TextMatrix(i, 5) = Format(ZBJG(i).x, "######.0000")
.TextMatrix(i, 6) = Format(ZBJG(i).y, "######.0000")
End With
Next i
MSFlexGrid2.ColWidth(0) = 600 '显示点椭圆结果
MSFlexGrid2.ColWidth(1) = 600
MSFlexGrid2.ColWidth(2) = 1200
MSFlexGrid2.ColWidth(3) = 1600
MSFlexGrid2.ColWidth(4) = 1200
MSFlexGrid2.ColWidth(5) = 1200
MSFlexGrid2.ColWidth(6) = 1200
MSFlexGrid2.ColWidth(7) = 1200
MSFlexGrid2.ColWidth(8) = 1200
MSFlexGrid2.ColWidth(9) = 1200
'MSFlexGrid2.ColWidth(10) = 1200
For i = 0 To 9
MSFlexGrid2.ColAlignment(i) = 4
Next i
'MSFlexGrid2.RowHeight(0) = 600
MSFlexGrid2.Rows = IntCount - 1
For i = 0 To IntCount - 2
MSFlexGrid2.RowHeight(i) = 400
Next i
With MSFlexGrid2
.col = 0
.row = 0
.ColSel = 9
.Clip = "编号" & Chr(9) & "点号" & Chr(9) & "点名" & Chr(9) & "A(dms)" & Chr(9) & "E(mm)" & Chr(9) & "F(mm)" & Chr(9) & "M(mm)" & Chr(9) & "MX(mm)" & Chr(9) & "MY(mm)" & Chr(9) & "M(mm)"
End With
For i = 1 To IntCount - 2
With MSFlexGrid2
.TextMatrix(i, 0) = i
.TextMatrix(i, 1) = InputDat(i + 1).ICount
.TextMatrix(i, 2) = InputDat(i + 1).PiontName
.TextMatrix(i, 3) = Format(ZBJG(i + 1).Q, "###.0000")
.TextMatrix(i, 4) = Format(ZBJG(i + 1).E, "0.00")
.TextMatrix(i, 5) = Format(ZBJG(i + 1).F, "0.00")
.TextMatrix(i, 6) = Format(ZBJG(i + 1).m, "0.00")
.TextMatrix(i, 7) = Format(ZBJG(i + 1).mx, "0.00")
.TextMatrix(i, 8) = Format(ZBJG(i + 1).my, "0.00")
.TextMatrix(i, 9) = Format(ZBJG(i + 1).m, "0.00")
End With
Next i
MSFlexGrid3.ColWidth(0) = 600 '显示点间椭圆结果
MSFlexGrid3.ColWidth(1) = 1200
MSFlexGrid3.ColWidth(2) = 1200
MSFlexGrid3.ColWidth(3) = 1200
MSFlexGrid3.ColWidth(4) = 1200
MSFlexGrid3.ColWidth(5) = 1200
MSFlexGrid3.ColWidth(6) = 1200
MSFlexGrid3.ColWidth(7) = 1200
MSFlexGrid3.ColWidth(8) = 1200
MSFlexGrid3.ColWidth(9) = 1200
'MSFlexGrid2.ColWidth(10) = 1200
For i = 0 To 9
MSFlexGrid3.ColAlignment(i) = 4
Next i
'MSFlexGrid2.RowHeight(0) = 600
MSFlexGrid3.Rows = IntCount
For i = 0 To IntCount - 1
MSFlexGrid3.RowHeight(i) = 400
Next i
With MSFlexGrid3
.col = 0
.row = 0
.ColSel = 9
.Clip = "编号" & Chr(9) & "边号" & Chr(9) & "A(dms)" & Chr(9) & "E(mm)" & Chr(9) & "F(mm)" & Chr(9) & "T(dms)" & Chr(9) & "s(m)" & Chr(9) & "MT(s)" & Chr(9) & "MS(mm)" & Chr(9) & "MS/S=1/"
End With
For i = 1 To IntCount - 1
With MSFlexGrid3
.TextMatrix(i, 0) = i
.TextMatrix(i, 1) = Format(InputDat(i).ICount, "##0") + "--" + Format(InputDat(i + 1).ICount, "##0")
.TextMatrix(i, 2) = Format(Wzdty(i).Q, "###.0000")
.TextMatrix(i, 3) = Format(Wzdty(i).E, "###.0000")
.TextMatrix(i, 4) = Format(Wzdty(i).F, "###.0000")
.TextMatrix(i, 5) = Format(Wzdty(i).a, "###.0000")
.TextMatrix(i, 6) = Format(Wzdty(i).s, "####.0")
.TextMatrix(i, 7) = Format(Wzdty(i).ma, "##.00")
.TextMatrix(i, 8) = Format(Wzdty(i).Ms, "##.00")
.TextMatrix(i, 9) = Format(Wzdty(i).MsS, "######")
End With
Next i
End Sub
Private Sub Form_Resize()
With SSTab1
.Top = 10
.Left = 10
If frmXianshiJG.ScaleWidth > 50 Then
.Width = frmXianshiJG.ScaleWidth - 50
.Height = frmXianshiJG.ScaleHeight - 600
End If
End With
With MSFlexGrid1
.Top = SSTab1.Top + SSTab1.TabHeight + 20
.Left = SSTab1.Left + 20
.Width = SSTab1.Width - 60
.Height = SSTab1.Height - 400
End With
With MSFlexGrid2
.Top = SSTab1.Top + SSTab1.TabHeight + 20
.Left = SSTab1.Left + 20
.Width = SSTab1.Width - 60
.Height = SSTab1.Height - 400
End With
With MSFlexGrid3
.Top = SSTab1.Top + SSTab1.TabHeight + 20
.Left = SSTab1.Left + 20
.Width = SSTab1.Width - 60
.Height = SSTab1.Height - 400
End With
With Command1
.Top = SSTab1.Height + 150
.Left = frmXianshiJG.ScaleWidth - 1500
End With
With Label1
.Top = SSTab1.Height + 200
.Left = 10
End With
End Sub
Private Sub SSTab1_Click(PreviousTab As Integer)
Select Case SSTab1.Tab
Case 0
MSFlexGrid1.Visible = True
MSFlexGrid2.Visible = False
MSFlexGrid3.Visible = False
Case 1
MSFlexGrid1.Visible = False
MSFlexGrid2.Visible = True
MSFlexGrid3.Visible = False
Case 2
MSFlexGrid1.Visible = False
MSFlexGrid2.Visible = False
MSFlexGrid3.Visible = True
End Select
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -