📄 frmpttrackingimport.frm
字号:
VERSION 5.00
Begin VB.Form frmEventQuantityAnimator
BorderStyle = 4 'Fixed ToolWindow
Caption = "Event Value Keyframe Import"
ClientHeight = 7605
ClientLeft = 30
ClientTop = 270
ClientWidth = 6660
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 7605
ScaleWidth = 6660
ShowInTaskbar = 0 'False
StartUpPosition = 3 'Windows Default
Begin VB.TextBox txtValueScale
Height = 285
Left = 5130
TabIndex = 43
Text = "1"
Top = 5910
Width = 870
End
Begin VB.Frame Frame6
Caption = "Animate Layer Attribute"
Height = 600
Left = 75
TabIndex = 42
Top = 6300
Width = 6480
Begin VB.CheckBox chkZScale
Caption = "Z Scale"
Height = 195
Left = 4680
TabIndex = 47
Top = 255
Value = 1 'Checked
Width = 1530
End
Begin VB.CheckBox chkYScale
Caption = "Y Scale"
Height = 195
Left = 2370
TabIndex = 46
Top = 270
Value = 1 'Checked
Width = 1530
End
Begin VB.CheckBox chkXScale
Caption = "X Scale"
Height = 195
Left = 150
TabIndex = 45
Top = 255
Value = 1 'Checked
Width = 1530
End
End
Begin VB.PictureBox Picture1
BorderStyle = 0 'None
Height = 1470
Left = 4500
Picture = "frmPTTrackingImport.frx":0000
ScaleHeight = 1470
ScaleWidth = 1875
TabIndex = 39
Top = 60
Width = 1875
End
Begin VB.Frame Frame5
Caption = "Event"
Height = 1770
Left = 120
TabIndex = 36
Top = 4035
Width = 2925
Begin VB.TextBox txtEventDuration
Height = 285
Left = 1845
TabIndex = 41
Text = ".02"
Top = 990
Width = 915
End
Begin VB.ComboBox cmbEventValue
Height = 315
Left = 135
Style = 2 'Dropdown List
TabIndex = 37
Top = 480
Width = 2565
End
Begin VB.Label Label13
Caption = "Duration (0-1):"
Height = 225
Left = 195
TabIndex = 40
Top = 1020
Width = 1125
End
Begin VB.Label Label4
Caption = "Event value to animate:"
Height = 225
Left = 150
TabIndex = 38
Top = 240
Width = 1965
End
End
Begin VB.Frame Frame4
Caption = "Location"
Height = 2400
Left = 105
TabIndex = 20
Top = 1605
Width = 6408
Begin VB.Frame Frame2
Caption = "Height"
Height = 1272
Left = 75
TabIndex = 27
Top = 1065
Width = 6228
Begin VB.Frame Frame3
Height = 924
Left = 84
TabIndex = 30
Top = 204
Width = 3255
Begin VB.OptionButton optHeight
Caption = "Field:"
Height = 288
Index = 0
Left = 60
TabIndex = 33
Top = 525
Value = -1 'True
Width = 792
End
Begin VB.OptionButton optHeight
Caption = "Use Z value of layer features "
Height = 288
Index = 1
Left = 60
TabIndex = 32
Top = 150
Width = 2460
End
Begin VB.ComboBox cmbHeightField
Height = 315
Left = 1185
Style = 2 'Dropdown List
TabIndex = 31
Top = 510
Width = 1812
End
End
Begin VB.TextBox txtZOffset
Height = 288
Left = 5208
TabIndex = 29
Top = 384
Width = 828
End
Begin VB.TextBox txtZUnitConversion
Height = 288
Left = 5220
TabIndex = 28
Top = 780
Width = 828
End
Begin VB.Label Label3
Caption = "Z Offset:"
Height = 255
Left = 3780
TabIndex = 35
Top = 435
Width = 855
End
Begin VB.Label Label9
Caption = "Z Unit Conversion:"
Height = 255
Left = 3765
TabIndex = 34
Top = 780
Width = 1455
End
End
Begin VB.ComboBox cmbLongitude
Height = 288
Left = 4272
Style = 2 'Dropdown List
TabIndex = 26
Top = 756
Width = 1800
End
Begin VB.ComboBox cmbLatitude
Height = 288
Left = 1344
Style = 2 'Dropdown List
TabIndex = 25
Top = 744
Width = 1824
End
Begin VB.OptionButton optPosition
Caption = "Use fields:"
Height = 216
Index = 1
Left = 204
TabIndex = 22
Top = 528
Width = 1224
End
Begin VB.OptionButton optPosition
Caption = "Use feature geometry"
Height = 216
Index = 0
Left = 216
TabIndex = 21
Top = 264
Value = -1 'True
Width = 2472
End
Begin VB.Label Label12
Caption = "Longitude:"
Height = 240
Left = 3348
TabIndex = 24
Top = 780
Width = 804
End
Begin VB.Label Label11
Caption = "Latitude:"
Height = 180
Left = 432
TabIndex = 23
Top = 780
Width = 684
End
End
Begin VB.CheckBox chkSelectedEvents
Caption = "Use selected records"
Height = 228
Left = 1875
TabIndex = 19
Top = 540
Width = 2112
End
Begin VB.CommandButton cmdAnimateLayerBrowse
Caption = "..."
Enabled = 0 'False
Height = 264
Left = 3405
TabIndex = 17
Top = 5895
Visible = 0 'False
Width = 324
End
Begin VB.ComboBox cmbAnimateLayer
Height = 315
Left = 1575
Style = 2 'Dropdown List
TabIndex = 16
Top = 5880
Width = 2160
End
Begin VB.Frame Frame1
Caption = "Event Time Range Filter"
Height = 1770
Left = 3135
TabIndex = 7
Top = 4035
Width = 3372
Begin VB.Frame frManualTime
Height = 816
Left = 96
TabIndex = 10
Top = 480
Width = 3132
Begin VB.TextBox txtToTime
Height = 288
Left = 600
TabIndex = 14
Top = 480
Width = 2388
End
Begin VB.TextBox txtFromTime
Height = 288
Left = 588
TabIndex = 12
Top = 144
Width = 2400
End
Begin VB.Label Label6
Caption = "To:"
Height = 240
Left = 72
TabIndex = 13
Top = 480
Width = 384
End
Begin VB.Label Label5
Caption = "From:"
Height = 216
Left = 60
TabIndex = 11
Top = 144
Width = 720
End
End
Begin VB.OptionButton optTimeRange
Caption = "Use full range of records"
Height = 300
Index = 1
Left = 120
TabIndex = 9
Top = 1356
Width = 3048
End
Begin VB.OptionButton optTimeRange
Caption = "Specify time (mm/dd/yy hh:mm:ss):"
Height = 300
Index = 0
Left = 132
TabIndex = 8
Top = 228
Value = -1 'True
Width = 3072
End
End
Begin VB.ComboBox cmbTimeField
Height = 315
Left = 1860
Style = 2 'Dropdown List
TabIndex = 6
Top = 1155
Width = 2412
End
Begin VB.CommandButton cmdInputBrowse
Caption = "..."
Enabled = 0 'False
Height = 276
Left = 3930
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -