📄 formmenu.ebf
字号:
VERSION 5.00
Object = "{F7DEA2C9-BA8F-446E-A292-B4840F3BD661}#1.0#0"; "mscemenubar.dll"
Object = "{A32A88B3-817C-11D1-A762-00AA0044064C}#1.0#0"; "mscecomdlg.dll"
Object = "{25C953A7-5464-11D1-A714-00AA0044064C}#1.0#0"; "MSCEFILE.DLL"
Begin VB.Form Form1
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "坐标转换系统"
ClientHeight = 5385
ClientLeft = 60
ClientTop = 840
ClientWidth = 4260
ForeColor = &H80000008&
ScaleHeight = 5385
ScaleWidth = 4260
Begin CEComDlgCtl.CommonDialog CommonDialog1
Left = 3240
Top = 3840
_cx = 847
_cy = 847
CancelError = 0 'False
Color = 0
DefaultExt = ""
DialogTitle = ""
FileName = ""
Filter = ""
FilterIndex = 0
Flags = 0
HelpCommand = 0
HelpContext = ""
HelpFile = ""
InitDir = ""
MaxFileSize = 256
FontBold = 0 'False
FontItalic = 0 'False
FontName = ""
FontSize = 10
FontUnderline = 0 'False
Max = 0
Min = 0
FontStrikethru = 0 'False
End
Begin FILECTLCtl.File File1
Left = 1680
Top = 4440
_cx = 1000
_cy = 1000
End
Begin VBCE.Frame Frame1
Height = 3855
Left = 360
TabIndex = 0
Top = 360
Width = 2775
_cx = 4895
_cy = 6800
BackColor = -2147483628
BorderStyle = 0
Caption = ""
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = -2147483640
ClipControls = -1 'True
Begin VBCE.Label Label3
Height = 375
Left = 720
TabIndex = 3
Top = 2760
Width = 1575
_cx = 2778
_cy = 661
AutoSize = 0 'False
BackColor = -2147483643
BackStyle = 1
BorderStyle = 0
Caption = "二〇〇五年十二月"
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = -2147483640
Alignment = 0
UseMnemonic = -1 'True
WordWrap = 0 'False
End
Begin VBCE.Label Label2
Height = 255
Left = 720
TabIndex = 2
Top = 2160
Width = 1815
_cx = 3201
_cy = 450
AutoSize = 0 'False
BackColor = -2147483643
BackStyle = 1
BorderStyle = 0
Caption = "余姚市国土资源局"
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = -2147483640
Alignment = 0
UseMnemonic = -1 'True
WordWrap = 0 'False
End
Begin VBCE.Label Label1
Height = 375
Left = 600
TabIndex = 1
Top = 600
Width = 2175
_cx = 3836
_cy = 661
AutoSize = 0 'False
BackColor = -2147483628
BackStyle = 1
BorderStyle = 0
Caption = "坐标系转换系统"
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = -2147483625
Alignment = 0
UseMnemonic = -1 'True
WordWrap = 0 'False
End
End
Begin MenuBarLib.MenuBar MenuBar1
Left = 120
Top = 4200
_cx = 1931
_cy = 873
Enabled = -1 'True
NewButton = 0 'False
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Form_OKClick()
App.End
End Sub
Private Sub Form_Load()
Dim mnuDropMenu As MenuBarLib.MenuBarMenu
Set mnuDropMenu = MenuBar1.Controls.AddMenu("换带计算", "mnuhuans")
mnuDropMenu.Items.Add , "mnuhuanA", "坐标正算"
mnuDropMenu.Items.Add , "mnuhuanB", "坐标反算"
mnuDropMenu.Items.Add , , , mbrMenuSeparator
mnuDropMenu.Items.Add , "mnuhuanC", "坐标换带"
mnuDropMenu.Items.Add , , , mbrMenuSeparator
mnuDropMenu.Items.Add , "mnuSpaces", "空间坐标转换"
Dim mnuSpaces As MenuBarLib.MenuBarMenu
Set mnuSpaces = mnuDropMenu.Items("mnuSpaces")
mnuSpaces.SubItems.Add , "mnuSpace1", "WGS84转北京54"
mnuSpaces.SubItems.Add , "mnuSpace2", "WGS84转西安80"
mnuSpaces.SubItems.Add , "mnuSpace3", "宁波转WGS84"
mnuDropMenu.Items.Add , "tuichu", "退出"
Set mnuDropMenu = MenuBar1.Controls.AddMenu("坐标转换", "mnuTools")
mnuDropMenu.Items.Add , "mnuToolsA", "宁波转西安"
mnuDropMenu.Items.Add , "mnuToolsB", "西安转宁波"
mnuDropMenu.Items.Add , , , mbrMenuSeparator
mnuDropMenu.Items.Add , "mnuToolsC", "宁波转北京"
mnuDropMenu.Items.Add , "mnuToolsD", "北京转宁波"
mnuDropMenu.Items.Add , , , mbrMenuSeparator
mnuDropMenu.Items.Add , "mnuToolsE", "西安转北京"
mnuDropMenu.Items.Add , "mnuToolsF", "北京转西安"
mnuDropMenu.Items.Add , , , mbrMenuSeparator
mnuDropMenu.Items.Add , "mnuOptions", "坐标文件转换"
Dim mnuOptions As MenuBarLib.MenuBarMenu
Set mnuOptions = mnuDropMenu.Items("mnuOptions")
mnuOptions.SubItems.Add , "mnuOption1", "宁波转西安"
mnuOptions.SubItems.Add , "mnuOption2", "西安转宁波"
mnuOptions.SubItems.Add , , , mbrMenuSeparator
mnuOptions.SubItems.Add , "mnuOption3", "宁波转北京"
mnuOptions.SubItems.Add , "mnuOption4", "北京转宁波"
mnuOptions.SubItems.Add , , , mbrMenuSeparator
mnuOptions.SubItems.Add , "mnuOption5", "西安转北京"
mnuOptions.SubItems.Add , "mnuOption6", "北京转西安"
Set mnuDropMenu = MenuBar1.Controls.AddMenu("坐标编辑", "mnuEdit")
mnuDropMenu.Items.Add , "mnuEdit", "坐标编辑"
Set mnuDropMenu = MenuBar1.Controls.AddMenu("帮助", "mnuHelp")
mnuDropMenu.Items.Add , "mnuAbout", "关于 坐标转换..."
Form1.Hide
End Sub
Private Sub MenuBar1_MenuClick(ByVal Item As MenuBarLib.Item)
Select Case Item.Key
Case "tuichu"
App.End
Case "mnuToolsA"
Form2.Label1 .Caption = "中央子午线120度30分转到120度"
Form2.Caption = "宁波坐标转换西安坐标"
Form2.Frame1.Top = 480
Form2.Frame1.Left = 240
ShowformAFrame
Form2.Frame1.Visible = True
Form2.Show
Case "mnuToolsB"
Form2.Label1 .Caption = "中央子午线120度转到120度30分"
Form2.Caption = "西安坐标转换宁波坐标"
Form2.Frame2.Top = 480
Form2.Frame2.Left = 240
ShowformAFrame
Form2.Frame2.Visible = True
Form2.Show
Case "mnuToolsC"
Form2.Label1 .Caption = "中央子午线120度30分转到120度"
Form2.Caption = "宁波坐标转换北京坐标"
Form2.Frame3.Top = 480
Form2.Frame3.Left = 240
ShowformAFrame
Form2.Frame3.Visible = True
Form2.Show
Case "mnuToolsD"
Form2.Label1 .Caption = "中央子午线120度转到120度30分"
Form2.Caption = "北京坐标转换宁波坐标"
Form2.Frame4.Top = 480
Form2.Frame4.Left = 240
ShowformAFrame
Form2.Frame4.Visible = True
Form2.Show
Case "mnuToolsE"
Form2.Label1 .Caption = " 中央子午线120度转到120度"
Form2.Caption = "西安坐标转换北京坐标"
Form2.Frame5.Top = 480
Form2.Frame5.Left = 240
ShowformAFrame
Form2.Frame5.Visible = True
Form2.Show
Case "mnuToolsF"
Form2.Label1 .Caption = " 中央子午线120度转到120度"
Form2.Caption = "北京坐标转换西安坐标"
Form2.Frame6.Top = 480
Form2.Frame6.Left = 240
ShowformAFrame
Form2.Frame6.Visible = True
Form2.Show
Case "mnuOption1"
Form3.Label1 .Caption = "中央子午线120度30分转到120度"
Form3.Caption = "宁波坐标转换西安坐标"
Form3.Frame1.Top = 480
Form3.Frame1.Left = 240
ShowFrame
Form3.Frame1.Visible = True
Form3.Show
Case "mnuOption2"
Form3.Label1 .Caption = "中央子午线120度转到120度30分"
Form3.Caption = "西安坐标转换宁波坐标"
Form3.Frame2.Top = 480
Form3.Frame2.Left = 240
ShowFrame
Form3.Frame2.Visible = True
Form3.Show
Case "mnuOption3"
Form3.Label1 .Caption = "中央子午线120度30分转到120度"
Form3.Caption = "宁波坐标转换北京坐标"
Form3.Frame3.Top = 480
Form3.Frame3.Left = 240
ShowFrame
Form3.Frame3.Visible = True
Form3.Show
Case "mnuOption4"
Form3.Label1 .Caption = "中央子午线120度转到120度30分"
Form3.Caption = "北京坐标转换宁波坐标"
Form3.Frame4.Top = 480
Form3.Frame4.Left = 240
ShowFrame
Form3.Frame4.Visible = True
Form3.Show
Case "mnuOption5"
Form3.Label1 .Caption = " 中央子午线120度转到120度"
Form3.Caption = "西安坐标转换北京坐标"
Form3.Frame5.Top = 480
Form3.Frame5.Left = 240
ShowFrame
Form3.Frame5.Visible = True
Form3.Show
Case "mnuOption6"
Form3.Label1 .Caption = " 中央子午线120度转到120度"
Form3.Caption = "北京坐标转换西安坐标"
Form3.Frame6.Top = 480
Form3.Frame6.Left = 240
ShowFrame
Form3.Frame6.Visible = True
Form3.Show
Case "mnuhuanA"
Form5.Show
Case "mnuhuanB"
Form6.Show
Case "mnuhuanC"
Form7.Show
Case "mnuEdit"
Form4.Show
Case "mnuAbout"
Form8.Show
Case "mnuSpace1"
Form9.Caption = "WGS84转换北京坐标"
Form9.Frame1.Top = 200
Form9.Frame1.Left = 120
Showform9Frame
Form9.Frame1.Visible = True
Form9.Show
Case "mnuSpace2"
Form9.Caption = "WGS84转换西安坐标"
Form9.Frame3.Top = 200
Form9.Frame3.Left = 120
Showform9Frame
Form9.Frame3.Visible = True
Form9.Show
Case "mnuSpace3"
Form9.Caption = "宁波坐标转换WGS84坐标"
Form9.Frame2.Top = 200
Form9.Frame2.Left = 120
Showform9Frame
Form9.Frame2.Visible = True
Form9.Show
End Select
End Sub
Private Function GetFileToOpen()
Dim filefilter As String
'Set the text in the dialog title bar
CommonDialog1.DialogTitle = "Select File"
filefilter = "Text (*.txt)|*.txt|All (*.*)|*.*"
CommonDialog1.Filter = filefilter
CommonDialog1.FilterIndex = 0
'Show the Open common dialog box
CommonDialog1.ShowOpen
'Return the path and file name selected or
'Return an empty string if the user cancels the dialog
MsgBox CommonDialog1.FileName
GetFileToOpen = CommonDialog1.FileName
End Function
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -