📄 附合导线平差主窗体.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
Begin VB.Form frmMain
Caption = "附合导线平差"
ClientHeight = 5730
ClientLeft = 960
ClientTop = 1530
ClientWidth = 8025
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
LinkTopic = "Form1"
ScaleHeight = 5730
ScaleWidth = 8025
Begin MSComDlg.CommonDialog CommonDialog1
Left = 1440
Top = 3600
_ExtentX = 847
_ExtentY = 847
_Version = 393216
CancelError = -1 'True
End
Begin VB.TextBox txtEdit
Alignment = 2 'Center
BackColor = &H80000001&
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 400
Left = 5880
TabIndex = 1
Top = 2400
Visible = 0 'False
Width = 975
End
Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1
Height = 2055
Left = 360
TabIndex = 0
ToolTipText = "双击输入"
Top = 960
Width = 4815
_ExtentX = 8493
_ExtentY = 3625
_Version = 393216
Cols = 5
ForeColor = 32768
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin MSComctlLib.ImageList imlToolbar
Left = 2880
Top = 3840
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 10
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "附合导线平差主窗体.frx":0000
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "附合导线平差主窗体.frx":0452
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "附合导线平差主窗体.frx":08A4
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "附合导线平差主窗体.frx":0CF6
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "附合导线平差主窗体.frx":1010
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "附合导线平差主窗体.frx":1462
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "附合导线平差主窗体.frx":18B4
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "附合导线平差主窗体.frx":1D06
Key = ""
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "附合导线平差主窗体.frx":2020
Key = ""
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "附合导线平差主窗体.frx":217A
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar tbrMain
Align = 1 'Align Top
Height = 600
Left = 0
TabIndex = 2
Top = 0
Width = 8025
_ExtentX = 14155
_ExtentY = 1058
ButtonWidth = 1032
ButtonHeight = 1005
AllowCustomize = 0 'False
Appearance = 1
Style = 1
ImageList = "imlToolbar"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 13
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "New"
Object.ToolTipText = "新建(Ctrl+N)"
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "Open"
Object.ToolTipText = "打开(Ctrl+O)"
ImageIndex = 2
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "Save"
Object.ToolTipText = "保存(Ctrl+S)"
ImageIndex = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "Cut"
Object.ToolTipText = "剪切(Ctrl+X)"
ImageIndex = 4
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "Copy"
Object.ToolTipText = "复制(Ctrl+C)"
ImageIndex = 5
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "Paste"
Object.ToolTipText = "粘贴(Ctrl+V)"
ImageIndex = 6
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "Delete"
Object.ToolTipText = "删除(Del)"
ImageIndex = 7
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Key = "Undo"
Object.ToolTipText = "撤消(Ctrl+Z)"
ImageIndex = 8
EndProperty
BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "InsertRow"
Object.ToolTipText = "插入一行"
ImageIndex = 9
EndProperty
BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "DelRow"
Object.ToolTipText = "删除一行"
ImageIndex = 10
EndProperty
EndProperty
End
Begin VB.Menu mnuFIle
Caption = "文件(&F)"
Begin VB.Menu mnuFileNew
Caption = "新建"
Shortcut = ^N
End
Begin VB.Menu mnuFileOpen
Caption = "打开"
Shortcut = ^O
End
Begin VB.Menu mnuFileSpace1
Caption = "-"
End
Begin VB.Menu mnuFileSave
Caption = "保存"
Shortcut = ^S
End
Begin VB.Menu mnuFileSaveAs
Caption = "另存为"
Shortcut = ^R
End
Begin VB.Menu mnuFileSpace2
Caption = "-"
End
Begin VB.Menu mnuFileExit
Caption = "退出"
End
End
Begin VB.Menu mnuEdit
Caption = "编辑(&E)"
Begin VB.Menu mnuEditUndo
Caption = "撤消"
Shortcut = ^Z
End
Begin VB.Menu mnuEditBar0
Caption = "-"
End
Begin VB.Menu mnuEditcut
Caption = "剪切"
Shortcut = ^X
End
Begin VB.Menu mnuEditCopy
Caption = "复制"
Shortcut = ^C
End
Begin VB.Menu mnuEditPaste
Caption = "粘贴"
Shortcut = ^V
End
Begin VB.Menu mnuEditDelete
Caption = "删除"
Shortcut = {DEL}
End
Begin VB.Menu mnuEditSelectAll
Caption = "全选"
Shortcut = ^A
End
Begin VB.Menu mnuEditBar1
Caption = "-"
End
Begin VB.Menu mnuEditInsertRow
Caption = "插入行"
End
Begin VB.Menu mnuEditDelRow
Caption = "删除行"
End
End
Begin VB.Menu mnuDataOrganise
Caption = "数据输入(&I)"
Begin VB.Menu mnuDataORInput
Caption = "已知数据输入"
End
Begin VB.Menu mnuDataOrObvervationInput
Caption = "观测数据输入"
End
End
Begin VB.Menu mnuDataIn
Caption = "数据读入(&R)"
Begin VB.Menu mnuDataInput
Caption = "数据读入"
Shortcut = ^I
End
End
Begin VB.Menu mnuDataDo
Caption = "数据处理(&R)"
Begin VB.Menu mnuDataBihe
Caption = "闭合差计算"
End
Begin VB.Menu mnuDataCucha
Caption = "粗差探测"
End
Begin VB.Menu mnuDataChuli
Caption = "平差计算"
Shortcut = ^D
End
End
Begin VB.Menu mnuDataOutput
Caption = "数据输出(&O)"
Begin VB.Menu mnuOutV
Caption = "结果显示"
Begin VB.Menu mnuVPCJG
Caption = "显示平差结果"
End
Begin VB.Menu mnuVTuoyuan
Caption = "显示误差椭圆"
End
End
Begin VB.Menu mnuOutJG
Caption = "结果输出"
Begin VB.Menu mnuOutputTxt
Caption = "文本方式输出"
End
Begin VB.Menu mnuOutBaoBiao
Caption = "报表方式输出"
End
End
End
Begin VB.Menu mnuHelp
Caption = "帮助(&H)"
Begin VB.Menu mnuAboutPC
Caption = "关于符合导线平差"
End
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'Active Cell
Private Type FlxCell
row As Long
col As Long
End Type
Private m_ActiveCell As FlxCell
'Undo
Private Type UndoType
uText As String 'The whole Grid
uRows As Long 'Count of Rows
uCols As Long 'Count of Cols
uName As String 'Undo Name
End Type
Private m_UndoBuffer() As UndoType
Dim KCount As Integer '记录表格有多少行
Public kk As Integer '已知点数
Dim bool As Boolean
Private intMaxUndo As Integer
Private Sub Command1_Click()
End Sub
Private Sub Form_Load()
KCount = 1
MSFlexGrid1.col = 0
MSFlexGrid1.row = 0
MSFlexGrid1.ColSel = 4
MSFlexGrid1.FontWidth = 7
For i = 0 To 4
MSFlexGrid1.ColAlignment(i) = 4
Next i
MSFlexGrid1.ColWidth(0) = 300
MSFlexGrid1.ColWidth(1) = 1200
MSFlexGrid1.ColWidth(2) = 1400
MSFlexGrid1.ColWidth(3) = 2200
MSFlexGrid1.ColWidth(4) = 1600
MSFlexGrid1.col = 1
MSFlexGrid1.row = 0
MSFlexGrid1.ColSel = 4
MSFlexGrid1.Clip = "测站编号" & Chr(9) & "测站点名" & Chr(9) & "观测角度(o ′″)" & Chr(9) & "观测边长(m)"
MSFlexGrid1.RowHeightMin = txtEdit.Height
intMaxUndo = 50
'Initialize Undobuffer
EmptyUndoBuffer
MakeUndoBuffer
mnuDataChuli.Enabled = False
mnuDataBihe.Enabled = False
mnuDataCucha.Enabled = False
mnuOutputTxt.Enabled = False
mnuOutV.Enabled = False
mnuOutBaoBiao.Enabled = False
mnuOutJG.Enabled = False
bool = False
mnuDataInput.Enabled = False
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -