📄 frmcorrida.frm
字号:
VERSION 5.00
Object = "{3EF16C9D-EC6F-11D2-B926-00AA00597EDB}#2.2#0"; "VARBETTERBUTTON.OCX"
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmCorrida
BackColor = &H00C0C0C0&
Caption = "Gerenciador de Corridas"
ClientHeight = 4800
ClientLeft = 60
ClientTop = 345
ClientWidth = 9150
LinkTopic = "Form1"
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
Picture = "frmCorrida.frx":0000
ScaleHeight = 4800
ScaleWidth = 9150
Begin VB.ComboBox cboPista
Height = 315
Left = 1740
Style = 2 'Dropdown List
TabIndex = 0
Top = 60
Width = 2655
End
Begin TabDlg.SSTab tabCorridas
Height = 4215
Left = 70
TabIndex = 3
Top = 480
Width = 9005
_ExtentX = 15875
_ExtentY = 7435
_Version = 393216
Style = 1
Tabs = 5
Tab = 1
TabsPerRow = 5
TabHeight = 520
BackColor = 16777088
ForeColor = 8388608
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
TabCaption(0) = " &Valida玢o "
TabPicture(0) = "frmCorrida.frx":15F60
Tab(0).ControlEnabled= 0 'False
Tab(0).Control(0)= "Frame1"
Tab(0).Control(1)= "fraStatus"
Tab(0).Control(2)= "ProgressBar1"
Tab(0).ControlCount= 3
TabCaption(1) = " &Resultados "
TabPicture(1) = "frmCorrida.frx":15F7C
Tab(1).ControlEnabled= -1 'True
Tab(1).Control(0)= "grdResultados"
Tab(1).Control(0).Enabled= 0 'False
Tab(1).ControlCount= 1
TabCaption(2) = " An醠ise de &Desempenho "
TabPicture(2) = "frmCorrida.frx":15F98
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "SSTab1"
Tab(2).ControlCount= 1
TabCaption(3) = " &Penaliza珲es! "
TabPicture(3) = "frmCorrida.frx":15FB4
Tab(3).ControlEnabled= 0 'False
Tab(3).Control(0)= "Frame2"
Tab(3).ControlCount= 1
TabCaption(4) = "Informa珲es da &Pista"
TabPicture(4) = "frmCorrida.frx":15FD0
Tab(4).ControlEnabled= 0 'False
Tab(4).Control(0)= "Frame3"
Tab(4).ControlCount= 1
Begin VB.Frame Frame1
Caption = "Selecione um arquivo ou diret髍io"
Height = 3615
Left = -74880
TabIndex = 83
Top = 480
Width = 2655
Begin VB.DriveListBox drv1
Height = 315
Left = 120
TabIndex = 87
ToolTipText = "Selecione o Drive"
Top = 300
Width = 2415
End
Begin VB.DirListBox dir1
Height = 1215
Left = 120
TabIndex = 86
ToolTipText = "Selecione o diret髍io"
Top = 630
Width = 2415
End
Begin VB.FileListBox File1
Height = 1065
Left = 120
Pattern = "*.txt"
TabIndex = 85
ToolTipText = "Selecione o arquivo"
Top = 1905
Width = 2415
End
Begin varBetterButton.BetterButton cmdValidar
Height = 435
Left = 120
TabIndex = 84
ToolTipText = "Validar corrida"
Top = 3060
Width = 1395
_ExtentX = 2461
_ExtentY = 767
Caption = "&Validar"
Alignment = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BackColor = 12632256
ForeColor = 8388608
HighlightColor = 14671839
ShadowColor = 8355711
BorderColor = 0
DisabledColor = 8355711
PictureOver = "frmCorrida.frx":15FEC
ShowFocus = 0 'False
ShowDefault = 0 'False
Style = 1
MousePointer = 0
End
Begin varBetterButton.BetterButton cmdVerArquivo
Height = 435
Left = 1560
TabIndex = 88
ToolTipText = "Ver o caminho e o nome completo do arquivo"
Top = 3060
Width = 975
_ExtentX = 1720
_ExtentY = 767
Caption = "V&er"
Alignment = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BackColor = 12632256
ForeColor = 8388608
HighlightColor = 14671839
ShadowColor = 8355711
BorderColor = 0
DisabledColor = 8355711
PictureOver = "frmCorrida.frx":163F8
ShowFocus = 0 'False
ShowDefault = 0 'False
Style = 1
MousePointer = 0
End
End
Begin VB.Frame fraStatus
Caption = "Status"
Enabled = 0 'False
Height = 3615
Left = -72120
TabIndex = 72
Top = 480
Width = 6015
Begin MSFlexGridLib.MSFlexGrid grdStatus
Height = 1530
Left = 120
TabIndex = 73
Top = 225
Width = 5775
_ExtentX = 10186
_ExtentY = 2699
_Version = 393216
Rows = 6
Cols = 4
FixedRows = 0
FixedCols = 0
ScrollBars = 0
End
Begin MSComctlLib.ProgressBar prgValidar
Height = 255
Left = 120
TabIndex = 74
Top = 3240
Width = 5775
_ExtentX = 10186
_ExtentY = 450
_Version = 393216
Appearance = 1
Max = 23
End
Begin MSFlexGridLib.MSFlexGrid grdAids
Height = 585
Left = 120
TabIndex = 75
Top = 1980
Width = 5760
_ExtentX = 10160
_ExtentY = 1032
_Version = 393216
Cols = 8
FixedRows = 0
FixedCols = 0
ScrollBars = 0
End
Begin VB.Line Line1
BorderColor = &H00FFFFFF&
X1 = 15
X2 = 6005
Y1 = 3120
Y2 = 3120
End
Begin VB.Line Line2
BorderColor = &H00808080&
X1 = 15
X2 = 6005
Y1 = 3105
Y2 = 3110
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "Total: "
Height = 195
Left = 3120
TabIndex = 82
Top = 2820
Width = 450
End
Begin VB.Label lblTempoTotal
AutoSize = -1 'True
Caption = "(...)"
Height = 195
Left = 3585
TabIndex = 81
Top = 2820
Width = 225
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "Final:"
Height = 195
Left = 4560
TabIndex = 80
Top = 2820
Width = 375
End
Begin VB.Label lblTempoFinal
AutoSize = -1 'True
Caption = "(...)"
ForeColor = &H00000080&
Height = 195
Left = 4995
TabIndex = 79
Top = 2820
Width = 225
End
Begin VB.Line Line3
BorderColor = &H00808080&
X1 = 0
X2 = 5990
Y1 = 2685
Y2 = 2685
End
Begin VB.Line Line4
BorderColor = &H00FFFFFF&
X1 = 15
X2 = 5995
Y1 = 2700
Y2 = 2700
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "Piloto:"
Height = 195
Left = 120
TabIndex = 78
Top = 2820
Width = 435
End
Begin VB.Label lblPiloto
Caption = "-"
Height = 195
Left = 615
TabIndex = 77
Top = 2820
Width = 1785
End
Begin VB.Label Label8
AutoSize = -1 'True
Caption = "Ajudas (Driving Aids)"
Height = 195
Left = 130
TabIndex = 76
Top = 1790
Width = 1455
End
End
Begin VB.Frame Frame2
Height = 3675
Left = -74880
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -