📄 坐标计算.frm
字号:
Height = 1770
Left = 120
TabIndex = 12
Top = 840
Width = 1935
End
Begin VB.DriveListBox Drive1
Height = 300
Left = 120
TabIndex = 11
Top = 360
Width = 1935
End
Begin VB.TextBox Text3
BackColor = &H8000000F&
Height = 2295
Left = 2160
MultiLine = -1 'True
TabIndex = 14
Top = 360
Width = 1575
End
Begin VB.Label Label4
Caption = "Label4"
Height = 615
Left = 240
TabIndex = 13
Top = 2760
Width = 3495
End
End
Begin MSComctlLib.StatusBar StatusBar2
Align = 2 'Align Bottom
Height = 375
Left = 0
TabIndex = 17
Top = 4860
Width = 7965
_ExtentX = 14049
_ExtentY = 661
SimpleText = "兰州交通大学 测绘05"
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 16
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Alignment = 1
AutoSize = 2
Object.Width = 4419
MinWidth = 4410
Text = "兰州交通大学 测绘"
TextSave = "兰州交通大学 测绘"
Object.ToolTipText = "版权所有者"
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 7
AutoSize = 2
Enabled = 0 'False
Object.Width = 2461
MinWidth = 2469
TextSave = "KANA"
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 1
AutoSize = 2
Enabled = 0 'False
Object.Width = 953
MinWidth = 176
TextSave = "CAPS"
EndProperty
BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 2
Alignment = 1
Object.Width = 882
MinWidth = 882
TextSave = "NUM"
EndProperty
BeginProperty Panel5 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 3
Enabled = 0 'False
Object.Width = 882
MinWidth = 882
TextSave = "Ins"
EndProperty
BeginProperty Panel6 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 5
Alignment = 1
TextSave = "17:42"
Object.ToolTipText = "当前时间"
EndProperty
BeginProperty Panel7 {8E3867AB-8586-11D1-B16A-00C0F0283628}
EndProperty
BeginProperty Panel8 {8E3867AB-8586-11D1-B16A-00C0F0283628}
EndProperty
BeginProperty Panel9 {8E3867AB-8586-11D1-B16A-00C0F0283628}
EndProperty
BeginProperty Panel10 {8E3867AB-8586-11D1-B16A-00C0F0283628}
EndProperty
BeginProperty Panel11 {8E3867AB-8586-11D1-B16A-00C0F0283628}
EndProperty
BeginProperty Panel12 {8E3867AB-8586-11D1-B16A-00C0F0283628}
EndProperty
BeginProperty Panel13 {8E3867AB-8586-11D1-B16A-00C0F0283628}
EndProperty
BeginProperty Panel14 {8E3867AB-8586-11D1-B16A-00C0F0283628}
EndProperty
BeginProperty Panel15 {8E3867AB-8586-11D1-B16A-00C0F0283628}
EndProperty
BeginProperty Panel16 {8E3867AB-8586-11D1-B16A-00C0F0283628}
EndProperty
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
OLEDropMode = 1
End
Begin VB.Menu File
Caption = "文件(&F)"
Begin VB.Menu New
Caption = "项目属性"
End
Begin VB.Menu Q
Caption = "-"
End
Begin VB.Menu Exit
Caption = "退出"
End
End
Begin VB.Menu Caculate
Caption = "计算(&C)"
Begin VB.Menu QXYS
Caption = "曲线要素"
End
Begin VB.Menu w
Caption = "-"
End
Begin VB.Menu Coord
Caption = "坐标计算"
Begin VB.Menu Line
Caption = "直线段"
End
Begin VB.Menu Curve
Caption = "曲线段"
End
End
End
Begin VB.Menu tool
Caption = "工具(&T)"
Begin VB.Menu cacl
Caption = "计算器(&C)"
End
Begin VB.Menu e
Caption = "-"
End
Begin VB.Menu Change
Caption = "坐标转换"
End
End
Begin VB.Menu Help
Caption = "帮助(&H)"
Begin VB.Menu About
Caption = "关于"
End
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim StrTemp As String * 60
Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
'工具——调用计算器
Private Sub cacl_Click()
Dim RetVal, S
Dim Path As String
S = GetSystemDirectory(StrTemp, Len(StrTemp))
Path = Left(StrTemp, S) & "\CALC.EXE"
RetVal = Shell(Path, 4)
End Sub
Private Sub Command1_Click()
'设置项目属性
Project_Name = Text1(0).Text
File_Path = Dir1.Path
Frame1.Visible = False
Frame2.Visible = False
Command1.Visible = False
Form1.Picture = LoadPicture(App.Path & "\ALIM0395.JPG")
End Sub
Private Sub Command2_Click()
Call Line_Click
End Sub
Private Sub Drive1_Change()
If Err.Number = 68 Then
MsgBox Err.Description, vbOKOnly
End If
Dir1.Path = Drive1.Drive
Label4.Caption = "" & Dir1.Path
End Sub
Private Sub Dir1_Change()
Label4.Caption = Dir1.Path
End Sub
Private Sub Exit_Click()
Dim i As Integer
i = MsgBox("确定要退出程序吗？", 33, "提示")
If i = 1 Then End
End Sub
Private Sub About_Click()
frmAbout.Show
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
'Dim i As Integer
'i = 0
'i = MsgBox("确定要退出程序吗？", 33, "提示")
'If i = 1 Then
'End
'Else
'Me.Show
'End If
End Sub
'计算直线中桩坐标——调用“中桩坐标计算--直线”窗体
Private Sub Line_Click()
Unload Me
Load Form2
Form2.Show
Form2.Command2.Enabled = False
Form2.Command3.Enabled = False
Form2.Text2.Text = Int((Rnd * 100 + 1))
Form2.Text2.Enabled = False
Form2.Option1(0).Value = True
Form2.Option2(0).Value = True
Form2.Option3(0).Value = True
Form2.Label2.Caption = "输入角度的格式：度.分秒。" + Chr(13) + "如 36°12'23.3" & "输入为 36.12233 "
End Sub
'计算曲线中桩坐标——调用“中桩坐标计算--曲线”窗体
Private Sub Curve_Click()
Unload Me
Load Form3
Form3.Show
End Sub
Private Sub New_Click()
'工程属性设置
Frame1.Visible = True
Frame2.Visible = True
Command1.Visible = True
Form1.Picture = LoadPicture()
If Text1(0).Text = "" Then
File_Path = App.Path
Label2.Caption = "创建于：" & Format(Date, "YYYY - mm - dd")
End If
Drive1.Drive = Left(File_Path, 2)
Dir1.Path = File_Path
Label4.Caption = File_Path
Text3.Text = " 提示： 设置此处的路径用来存放计算结果"
Text3.Enabled = False
End Sub
'计算曲线综合要素以及缓和曲线常数
Private Sub QXYS_Click()
Unload Me
Load Form3
Form3.Show
Form3.SSTab1.Enabled = False '窗体设置
Form3.SSTab2.TabEnabled(1) = False
Form3.SSTab2.TabEnabled(2) = False
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1
Call New_Click
End Select
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -