📄 options.ebf
字号:
VERSION 5.00
Begin VB.Form frmOptions
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 3 'Fixed Dialog
Caption = "Options"
ClientHeight = 2430
ClientLeft = 45
ClientTop = 330
ClientWidth = 3375
ForeColor = &H80000008&
ScaleHeight = 2430
ScaleWidth = 3375
Begin VBCE.CommandButton btnApply
Height = 375
Left = 2280
TabIndex = 9
Top = 1920
Width = 975
_cx = 1720
_cy = 661
BackColor = 12632256
Caption = "Apply"
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Style = 0
End
Begin VBCE.CommandButton btnCancel
Height = 375
Left = 1200
TabIndex = 8
Top = 1920
Width = 975
_cx = 1720
_cy = 661
BackColor = 12632256
Caption = "Cancel"
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Style = 0
End
Begin VBCE.CommandButton btnOK
Height = 375
Left = 120
TabIndex = 7
Top = 1920
Width = 975
_cx = 1720
_cy = 661
BackColor = 12632256
Caption = "OK"
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Style = 0
End
Begin VBCE.CheckBox chkInitDate
Height = 255
Left = 120
TabIndex = 6
Top = 1560
Width = 2415
_cx = 4260
_cy = 450
BackColor = -2147483643
Caption = "Initialize with system date"
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = -2147483640
Alignment = 0
Value = 0
End
Begin VBCE.CheckBox chkEmulate
Height = 255
Left = 120
TabIndex = 5
Top = 1320
Width = 2175
_cx = 3836
_cy = 450
BackColor = -2147483643
Caption = "Emulate with data file"
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = -2147483640
Alignment = 0
Value = 0
End
Begin VBCE.TextBox txtLong
Height = 255
Left = 1080
TabIndex = 4
Top = 840
Width = 1815
_cx = 3201
_cy = 450
BackColor = -2147483643
BorderStyle = 1
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = -2147483640
Text = "71.50000"
Alignment = 0
HideSelection = -1 'True
Locked = 0 'False
MaxLength = 0
MultiLine = 0 'False
PasswordChar = ""
ScrollBars = 0
End
Begin VBCE.TextBox txtLat
Height = 255
Left = 1080
TabIndex = 3
Top = 480
Width = 1815
_cx = 3201
_cy = 450
BackColor = -2147483643
BorderStyle = 1
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = -2147483640
Text = "41.00000"
Alignment = 0
HideSelection = -1 'True
Locked = 0 'False
MaxLength = 0
MultiLine = 0 'False
PasswordChar = ""
ScrollBars = 0
End
Begin VBCE.Label lblLong
Height = 255
Left = 120
TabIndex = 2
Top = 840
Width = 855
_cx = 1508
_cy = 450
AutoSize = 0 'False
BackColor = -2147483643
BackStyle = 1
BorderStyle = 0
Caption = "Long"
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = -2147483640
Alignment = 1
UseMnemonic = -1 'True
WordWrap = 0 'False
End
Begin VBCE.Label lblLat
Height = 255
Left = 120
TabIndex = 1
Top = 480
Width = 855
_cx = 1508
_cy = 450
AutoSize = 0 'False
BackColor = -2147483643
BackStyle = 1
BorderStyle = 0
Caption = "Lat"
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = -2147483640
Alignment = 1
UseMnemonic = -1 'True
WordWrap = 0 'False
End
Begin VBCE.CheckBox chkInitPos
Height = 255
Left = 120
TabIndex = 0
Top = 120
Width = 1815
_cx = 3201
_cy = 450
BackColor = -2147483643
Caption = "Initialize Position"
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = -2147483640
Alignment = 0
Value = 1
End
End
Attribute VB_Name = "frmOptions"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub btnApply_Click()
ApplyChanges
End Sub
Private Sub btnCancel_Click()
frmOptions.Hide
ApplyCurrentSettings
End Sub
Private Sub btnOK_Click()
ApplyChanges
frmOptions.Hide
End Sub
Private Sub chkInitPos_Click()
lblLong.Enabled = chkInitPos.Value
lblLat.Enabled = chkInitPos.Value
txtLong.Enabled = chkInitPos.Value
txtLat.Enabled = chkInitPos.Value
End Sub
Private Sub Form_Load()
ApplyCurrentSettings
End Sub
Sub ApplyCurrentSettings()
txtLat.Text = curlat
txtLong.Text = curlng
If Emulate Then chkEmulate.Value = 1 Else chkEmulate.Value = 0
chkInitPos.Value = InitPos
If InitPos = False Then
lblLong.Enabled = False
lblLat.Enabled = False
txtLong.Enabled = False
txtLat.Enabled = False
End If
End Sub
Sub ApplyChanges()
If chkEmulate.Value = 1 Then Emulate = True Else Emulate = False
InitPos = chkInitPos.Value
If InitPos Then
curlat = CDbl(txtLat.Text)
curlng = CDbl(txtLong.Text)
End If
InitDate = chkInitDate.Value
If Emulate Then
frmGPSBoyCE.Caption = "GPSBoy/CE [EMULATION]"
Else
frmGPSBoyCE.Caption = "GPSBoy/CE"
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -