📄 frmdocument.frm
字号:
VERSION 5.00
Object = "{9BD6A640-CE75-11D1-AF04-204C4F4F5020}#2.0#0"; "mo20.ocx"
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "Comdlg32.ocx"
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Begin VB.Form frmMain
BackColor = &H00000000&
Caption = "Mapobjects GPS DEMO"
ClientHeight = 8355
ClientLeft = 885
ClientTop = 2190
ClientWidth = 14655
FillColor = &H00000080&
Icon = "frmDocument.frx":0000
LinkTopic = "Form1"
ScaleHeight = 555.842
ScaleMode = 0 'User
ScaleWidth = 973.956
Begin ComctlLib.Toolbar tlbMain
Align = 1 'Align Top
Height = 660
Left = 0
TabIndex = 29
Top = 0
Width = 14655
_ExtentX = 25850
_ExtentY = 1164
ButtonWidth = 1032
ButtonHeight = 1005
Appearance = 1
ImageList = "ImageList2"
_Version = 327682
BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7}
NumButtons = 14
BeginProperty Button1 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "fileopen"
Object.ToolTipText = "Open an existing NMEA file..."
Object.Tag = ""
ImageIndex = 3
EndProperty
BeginProperty Button2 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "fileplay"
Object.ToolTipText = "Play NMEA file"
Object.Tag = ""
ImageIndex = 1
EndProperty
BeginProperty Button3 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = ""
Object.Tag = ""
Style = 3
MixedState = -1 'True
EndProperty
BeginProperty Button4 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "gpsconnect"
Object.ToolTipText = "Open COM port..."
Object.Tag = ""
ImageIndex = 2
EndProperty
BeginProperty Button5 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "gpsdisconnect"
Object.ToolTipText = "Close COM port"
Object.Tag = ""
ImageIndex = 4
EndProperty
BeginProperty Button6 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = ""
Object.Tag = ""
Style = 3
MixedState = -1 'True
EndProperty
BeginProperty Button7 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "zoomin"
Object.ToolTipText = "Zoom In"
Object.Tag = ""
ImageIndex = 10
Style = 2
EndProperty
BeginProperty Button8 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "zoomout"
Object.ToolTipText = "Zoom Out"
Object.Tag = ""
ImageIndex = 11
Style = 2
EndProperty
BeginProperty Button9 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "pan"
Object.ToolTipText = "Pan the map control"
Object.Tag = ""
ImageIndex = 6
Style = 2
EndProperty
BeginProperty Button10 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "target"
Object.ToolTipText = "Locate target on map display"
Object.Tag = ""
ImageIndex = 7
Style = 2
EndProperty
BeginProperty Button11 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = ""
Object.Tag = ""
Style = 3
MixedState = -1 'True
EndProperty
BeginProperty Button12 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "extent"
Object.ToolTipText = "Zoom to full map extent"
Object.Tag = ""
ImageIndex = 8
EndProperty
BeginProperty Button13 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = ""
Object.Tag = ""
Style = 3
MixedState = -1 'True
EndProperty
BeginProperty Button14 {0713F354-850A-101B-AFC0-4210102A8DA7}
Key = "Stop"
Object.ToolTipText = "Stop Moving"
Object.Tag = ""
ImageIndex = 9
EndProperty
EndProperty
BorderStyle = 1
Begin VB.CheckBox Check1
Caption = "View OP Viewshed"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
Left = 6555
Picture = "frmDocument.frx":030A
TabIndex = 55
TabStop = 0 'False
Top = 105
Value = 1 'Checked
Width = 1695
End
Begin VB.TextBox Text1
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 312
Left = 8250
Locked = -1 'True
TabIndex = 54
Text = "Visible From Observation Point"
Top = 75
Visible = 0 'False
Width = 3972
End
End
Begin MSCommLib.MSComm MSComm1
Left = 8115
Top = 7095
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
DTREnable = -1 'True
End
Begin MSComDlg.CommonDialog dlgCommonDialog
Left = 5625
Top = 7125
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.PictureBox Picture1
Appearance = 0 'Flat
BackColor = &H00000000&
ForeColor = &H80000008&
Height = 405
Left = 105
ScaleHeight = 25
ScaleMode = 0 'User
ScaleWidth = 387.192
TabIndex = 36
Top = 7665
Width = 11820
Begin VB.Line progLine
BorderColor = &H000040C0&
BorderWidth = 4
X1 = 0
X2 = 0
Y1 = 0
Y2 = 25
End
Begin VB.Shape progFill
BackColor = &H00FF0000&
BackStyle = 1 'Opaque
BorderStyle = 6 'Inside Solid
FillStyle = 3 'Vertical Line
Height = 405
Left = 60
Top = -15
Visible = 0 'False
Width = 13380
End
End
Begin VB.PictureBox NMEABar
Appearance = 0 'Flat
BackColor = &H00000000&
ClipControls = 0 'False
ForeColor = &H80000008&
Height = 1500
Index = 7
Left = 2910
ScaleHeight = -98
ScaleMode = 0 'User
ScaleTop = 100
ScaleWidth = 18
TabIndex = 7
Top = 990
Width = 300
Begin VB.Shape Fill
BackColor = &H0000FFFF&
BackStyle = 1 'Opaque
FillStyle = 2 'Horizontal Line
Height = 1785
Index = 7
Left = -60
Top = 1410
Width = 345
End
End
Begin VB.PictureBox NMEABar
Appearance = 0 'Flat
BackColor = &H00000000&
ClipControls = 0 'False
ForeColor = &H80000008&
Height = 1500
Index = 6
Left = 2550
ScaleHeight = -98
ScaleMode = 0 'User
ScaleTop = 100
ScaleWidth = 18
TabIndex = 6
Top = 990
Width = 300
Begin VB.Shape Fill
BackColor = &H0000FFFF&
BackStyle = 1 'Opaque
FillStyle = 2 'Horizontal Line
Height = 1785
Index = 6
Left = -60
Top = 1410
Width = 345
End
End
Begin VB.PictureBox NMEABar
Appearance = 0 'Flat
BackColor = &H00000000&
ClipControls = 0 'False
ForeColor = &H80000008&
Height = 1500
Index = 5
Left = 2190
ScaleHeight = -98
ScaleMode = 0 'User
ScaleTop = 100
ScaleWidth = 18
TabIndex = 5
Top = 990
Width = 300
Begin VB.Shape Fill
BackColor = &H0000FFFF&
BackStyle = 1 'Opaque
FillStyle = 2 'Horizontal Line
Height = 1785
Index = 5
Left = -60
Top = 1410
Width = 345
End
End
Begin VB.PictureBox NMEABar
Appearance = 0 'Flat
BackColor = &H00000000&
ClipControls = 0 'False
ForeColor = &H80000008&
Height = 1500
Index = 4
Left = 1830
ScaleHeight = -98
ScaleMode = 0 'User
ScaleTop = 100
ScaleWidth = 18
TabIndex = 4
Top = 990
Width = 300
Begin VB.Shape Fill
BackColor = &H0000FFFF&
BackStyle = 1 'Opaque
FillStyle = 2 'Horizontal Line
Height = 1788
Index = 4
Left = -72
Top = 1416
Width = 348
End
End
Begin VB.PictureBox NMEABar
Appearance = 0 'Flat
BackColor = &H00000000&
ClipControls = 0 'False
ForeColor = &H80000008&
Height = 1500
Index = 3
Left = 1470
ScaleHeight = -98
ScaleMode = 0 'User
ScaleTop = 100
ScaleWidth = 18
TabIndex = 3
Top = 990
Width = 300
Begin VB.Shape Fill
BackColor = &H0000FFFF&
BackStyle = 1 'Opaque
FillStyle = 2 'Horizontal Line
Height = 1788
Index = 3
Left = -72
Top = 1428
Width = 348
End
End
Begin VB.PictureBox NMEABar
Appearance = 0 'Flat
BackColor = &H00000000&
ClipControls = 0 'False
ForeColor = &H80000008&
Height = 1500
Index = 2
Left = 1110
ScaleHeight = -98
ScaleMode = 0 'User
ScaleTop = 100
ScaleWidth = 18
TabIndex = 2
Top = 990
Width = 300
Begin VB.Shape Fill
BackColor = &H0000FFFF&
BackStyle = 1 'Opaque
FillStyle = 2 'Horizontal Line
Height = 1785
Index = 2
Left = -60
Top = 1410
Width = 345
End
End
Begin VB.PictureBox NMEABar
Appearance = 0 'Flat
BackColor = &H00000000&
ClipControls = 0 'False
ForeColor = &H80000008&
Height = 1500
Index = 1
Left = 750
ScaleHeight = -98
ScaleMode = 0 'User
ScaleTop = 100
ScaleWidth = 18
TabIndex = 1
Top = 990
Width = 300
Begin VB.Shape Fill
BackColor = &H0000FFFF&
BackStyle = 1 'Opaque
FillStyle = 2 'Horizontal Line
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -