Code development platform for open source projects from the European Union institutions :large_blue_circle: EU Login authentication by SMS has been phased out. To see alternatives please check here

Skip to content
Snippets Groups Projects
Commit 7e21a1ac authored by VKMTHD\franzjosefkober's avatar VKMTHD\franzjosefkober
Browse files

adjusted number input fields filter method

parent 181605f7
Branches
Tags
No related merge requests found
......@@ -203,27 +203,27 @@ Partial Class Form1
Me.BtStart = New System.Windows.Forms.Button()
Me.BgWorker = New System.ComponentModel.BackgroundWorker()
Me.BtPrecalc = New System.Windows.Forms.Button()
Me.GrInput.SuspendLayout()
Me.GroupBox5.SuspendLayout()
Me.GroupBox2.SuspendLayout()
Me.TabControl1.SuspendLayout()
Me.Fuel1.SuspendLayout()
Me.GroupBox1.SuspendLayout()
Me.GrRpm.SuspendLayout()
Me.Fuel2.SuspendLayout()
Me.GroupBox6.SuspendLayout()
Me.GroupBox7.SuspendLayout()
Me.tbWHRMech.SuspendLayout()
Me.GroupBox3.SuspendLayout()
Me.GroupBox4.SuspendLayout()
Me.tbWhrEl.SuspendLayout()
Me.GroupBox8.SuspendLayout()
Me.GroupBox9.SuspendLayout()
Me.ComponentData.SuspendLayout()
Me.GroupBox10.SuspendLayout()
CType(Me.VECTOLogo, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GrOutput.SuspendLayout()
Me.SuspendLayout()
Me.GrInput.SuspendLayout
Me.GroupBox5.SuspendLayout
Me.GroupBox2.SuspendLayout
Me.TabControl1.SuspendLayout
Me.Fuel1.SuspendLayout
Me.GroupBox1.SuspendLayout
Me.GrRpm.SuspendLayout
Me.Fuel2.SuspendLayout
Me.GroupBox6.SuspendLayout
Me.GroupBox7.SuspendLayout
Me.tbWHRMech.SuspendLayout
Me.GroupBox3.SuspendLayout
Me.GroupBox4.SuspendLayout
Me.tbWhrEl.SuspendLayout
Me.GroupBox8.SuspendLayout
Me.GroupBox9.SuspendLayout
Me.ComponentData.SuspendLayout
Me.GroupBox10.SuspendLayout
CType(Me.VECTOLogo,System.ComponentModel.ISupportInitialize).BeginInit
Me.GrOutput.SuspendLayout
Me.SuspendLayout
'
'GrInput
'
......@@ -239,7 +239,7 @@ Partial Class Form1
Me.GrInput.Name = "GrInput"
Me.GrInput.Size = New System.Drawing.Size(941, 632)
Me.GrInput.TabIndex = 0
Me.GrInput.TabStop = False
Me.GrInput.TabStop = false
Me.GrInput.Text = "Input"
'
'Save
......@@ -249,7 +249,7 @@ Partial Class Form1
Me.Save.Size = New System.Drawing.Size(206, 23)
Me.Save.TabIndex = 5
Me.Save.Text = "Save Job"
Me.Save.UseVisualStyleBackColor = True
Me.Save.UseVisualStyleBackColor = true
'
'JobFileButton
'
......@@ -258,12 +258,12 @@ Partial Class Form1
Me.JobFileButton.Name = "JobFileButton"
Me.JobFileButton.Size = New System.Drawing.Size(28, 23)
Me.JobFileButton.TabIndex = 20
Me.JobFileButton.TabStop = False
Me.JobFileButton.UseVisualStyleBackColor = True
Me.JobFileButton.TabStop = false
Me.JobFileButton.UseVisualStyleBackColor = true
'
'JobFileLabel
'
Me.JobFileLabel.AutoSize = True
Me.JobFileLabel.AutoSize = true
Me.JobFileLabel.Location = New System.Drawing.Point(6, 22)
Me.JobFileLabel.Name = "JobFileLabel"
Me.JobFileLabel.Size = New System.Drawing.Size(43, 13)
......@@ -291,7 +291,7 @@ Partial Class Form1
Me.GroupBox5.Name = "GroupBox5"
Me.GroupBox5.Size = New System.Drawing.Size(921, 414)
Me.GroupBox5.TabIndex = 2
Me.GroupBox5.TabStop = False
Me.GroupBox5.TabStop = false
Me.GroupBox5.Text = "Engine test data"
'
'GroupBox2
......@@ -312,12 +312,12 @@ Partial Class Form1
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.Size = New System.Drawing.Size(906, 127)
Me.GroupBox2.TabIndex = 2
Me.GroupBox2.TabStop = False
Me.GroupBox2.TabStop = false
Me.GroupBox2.Text = "Data files"
'
'Label11
'
Me.Label11.AutoSize = True
Me.Label11.AutoSize = true
Me.Label11.Location = New System.Drawing.Point(153, 76)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(76, 13)
......@@ -326,7 +326,7 @@ Partial Class Form1
'
'Label12
'
Me.Label12.AutoSize = True
Me.Label12.AutoSize = true
Me.Label12.Location = New System.Drawing.Point(47, 102)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(182, 13)
......@@ -335,7 +335,7 @@ Partial Class Form1
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.AutoSize = true
Me.Label2.Location = New System.Drawing.Point(49, 50)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(180, 13)
......@@ -344,7 +344,7 @@ Partial Class Form1
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.AutoSize = true
Me.Label1.Location = New System.Drawing.Point(12, 24)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(217, 13)
......@@ -365,8 +365,8 @@ Partial Class Form1
Me.BtFLC.Name = "BtFLC"
Me.BtFLC.Size = New System.Drawing.Size(28, 23)
Me.BtFLC.TabIndex = 19
Me.BtFLC.TabStop = False
Me.BtFLC.UseVisualStyleBackColor = True
Me.BtFLC.TabStop = false
Me.BtFLC.UseVisualStyleBackColor = true
'
'TbMotoring
'
......@@ -382,8 +382,8 @@ Partial Class Form1
Me.BtMW.Name = "BtMW"
Me.BtMW.Size = New System.Drawing.Size(28, 23)
Me.BtMW.TabIndex = 21
Me.BtMW.TabStop = False
Me.BtMW.UseVisualStyleBackColor = True
Me.BtMW.TabStop = false
Me.BtMW.UseVisualStyleBackColor = true
'
'TbFLC_Parent
'
......@@ -399,8 +399,8 @@ Partial Class Form1
Me.BtFLCParent.Name = "BtFLCParent"
Me.BtFLCParent.Size = New System.Drawing.Size(28, 23)
Me.BtFLCParent.TabIndex = 17
Me.BtFLCParent.TabStop = False
Me.BtFLCParent.UseVisualStyleBackColor = True
Me.BtFLCParent.TabStop = false
Me.BtFLCParent.UseVisualStyleBackColor = true
'
'TbFuelMap
'
......@@ -416,8 +416,8 @@ Partial Class Form1
Me.BtOpenMap.Name = "BtOpenMap"
Me.BtOpenMap.Size = New System.Drawing.Size(28, 23)
Me.BtOpenMap.TabIndex = 15
Me.BtOpenMap.TabStop = False
Me.BtOpenMap.UseVisualStyleBackColor = True
Me.BtOpenMap.TabStop = false
Me.BtOpenMap.UseVisualStyleBackColor = true
'
'TabControl1
'
......@@ -446,7 +446,7 @@ Partial Class Form1
Me.Fuel1.Size = New System.Drawing.Size(901, 189)
Me.Fuel1.TabIndex = 0
Me.Fuel1.Text = "Fuel 1"
Me.Fuel1.UseVisualStyleBackColor = True
Me.Fuel1.UseVisualStyleBackColor = true
'
'GroupBox1
'
......@@ -456,12 +456,12 @@ Partial Class Form1
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(214, 101)
Me.GroupBox1.TabIndex = 3
Me.GroupBox1.TabStop = False
Me.GroupBox1.TabStop = false
Me.GroupBox1.Text = "Correction factors"
'
'Label17
'
Me.Label17.AutoSize = True
Me.Label17.AutoSize = true
Me.Label17.Location = New System.Drawing.Point(6, 50)
Me.Label17.Name = "Label17"
Me.Label17.Size = New System.Drawing.Size(59, 13)
......@@ -496,7 +496,7 @@ Partial Class Form1
Me.GrRpm.Name = "GrRpm"
Me.GrRpm.Size = New System.Drawing.Size(636, 101)
Me.GrRpm.TabIndex = 2
Me.GrRpm.TabStop = False
Me.GrRpm.TabStop = false
Me.GrRpm.Text = "Specific fuel consumption measured"
'
'TbFCspecHot1
......@@ -515,7 +515,7 @@ Partial Class Form1
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.AutoSize = true
Me.Label7.Location = New System.Drawing.Point(395, 50)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(68, 13)
......@@ -524,7 +524,7 @@ Partial Class Form1
'
'Label10
'
Me.Label10.AutoSize = True
Me.Label10.AutoSize = true
Me.Label10.Location = New System.Drawing.Point(566, 22)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(47, 13)
......@@ -547,7 +547,7 @@ Partial Class Form1
'
'Label20
'
Me.Label20.AutoSize = True
Me.Label20.AutoSize = true
Me.Label20.Location = New System.Drawing.Point(13, 78)
Me.Label20.Name = "Label20"
Me.Label20.Size = New System.Drawing.Size(101, 13)
......@@ -556,7 +556,7 @@ Partial Class Form1
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.AutoSize = true
Me.Label8.Location = New System.Drawing.Point(566, 50)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(47, 13)
......@@ -565,7 +565,7 @@ Partial Class Form1
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.AutoSize = true
Me.Label3.Location = New System.Drawing.Point(8, 37)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(106, 13)
......@@ -574,7 +574,7 @@ Partial Class Form1
'
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.AutoSize = true
Me.Label9.Location = New System.Drawing.Point(391, 23)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(72, 13)
......@@ -583,7 +583,7 @@ Partial Class Form1
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.AutoSize = true
Me.Label6.Location = New System.Drawing.Point(566, 78)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(47, 13)
......@@ -592,7 +592,7 @@ Partial Class Form1
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.AutoSize = true
Me.Label5.Location = New System.Drawing.Point(374, 78)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(89, 13)
......@@ -601,7 +601,7 @@ Partial Class Form1
'
'Label19
'
Me.Label19.AutoSize = True
Me.Label19.AutoSize = true
Me.Label19.Location = New System.Drawing.Point(217, 78)
Me.Label19.Name = "Label19"
Me.Label19.Size = New System.Drawing.Size(47, 13)
......@@ -617,7 +617,7 @@ Partial Class Form1
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.AutoSize = true
Me.Label4.Location = New System.Drawing.Point(217, 37)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(47, 13)
......@@ -628,7 +628,7 @@ Partial Class Form1
'
Me.SfFuelType1.Anchor = System.Windows.Forms.AnchorStyles.None
Me.SfFuelType1.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.SfFuelType1.FormattingEnabled = True
Me.SfFuelType1.FormattingEnabled = true
Me.SfFuelType1.Items.AddRange(New Object() {"Diesel / CI", "Ethanol / CI", "Petrol / PI", "Ethanol / PI", "LPG / PI", "Natural Gas / PI", "Natural Gas / CI"})
Me.SfFuelType1.Location = New System.Drawing.Point(108, 6)
Me.SfFuelType1.Name = "SfFuelType1"
......@@ -638,7 +638,7 @@ Partial Class Form1
'CbFuelType
'
Me.CbFuelType.Anchor = System.Windows.Forms.AnchorStyles.None
Me.CbFuelType.AutoSize = True
Me.CbFuelType.AutoSize = true
Me.CbFuelType.Location = New System.Drawing.Point(16, 11)
Me.CbFuelType.Name = "CbFuelType"
Me.CbFuelType.Size = New System.Drawing.Size(83, 13)
......@@ -656,7 +656,7 @@ Partial Class Form1
'TbNCVfuel
'
Me.TbNCVfuel.Anchor = System.Windows.Forms.AnchorStyles.None
Me.TbNCVfuel.AutoSize = True
Me.TbNCVfuel.AutoSize = true
Me.TbNCVfuel.Location = New System.Drawing.Point(18, 37)
Me.TbNCVfuel.Name = "TbNCVfuel"
Me.TbNCVfuel.Size = New System.Drawing.Size(81, 13)
......@@ -666,7 +666,7 @@ Partial Class Form1
'Label30
'
Me.Label30.Anchor = System.Windows.Forms.AnchorStyles.None
Me.Label30.AutoSize = True
Me.Label30.AutoSize = true
Me.Label30.Location = New System.Drawing.Point(228, 37)
Me.Label30.Name = "Label30"
Me.Label30.Size = New System.Drawing.Size(44, 13)
......@@ -688,7 +688,7 @@ Partial Class Form1
Me.Fuel2.Size = New System.Drawing.Size(901, 189)
Me.Fuel2.TabIndex = 1
Me.Fuel2.Text = "Fuel 2"
Me.Fuel2.UseVisualStyleBackColor = True
Me.Fuel2.UseVisualStyleBackColor = true
'
'GroupBox6
'
......@@ -698,12 +698,12 @@ Partial Class Form1
Me.GroupBox6.Name = "GroupBox6"
Me.GroupBox6.Size = New System.Drawing.Size(214, 101)
Me.GroupBox6.TabIndex = 3
Me.GroupBox6.TabStop = False
Me.GroupBox6.TabStop = false
Me.GroupBox6.Text = "Correction factors"
'
'Label28
'
Me.Label28.AutoSize = True
Me.Label28.AutoSize = true
Me.Label28.Location = New System.Drawing.Point(6, 50)
Me.Label28.Name = "Label28"
Me.Label28.Size = New System.Drawing.Size(59, 13)
......@@ -738,7 +738,7 @@ Partial Class Form1
Me.GroupBox7.Name = "GroupBox7"
Me.GroupBox7.Size = New System.Drawing.Size(636, 101)
Me.GroupBox7.TabIndex = 2
Me.GroupBox7.TabStop = False
Me.GroupBox7.TabStop = false
Me.GroupBox7.Text = "Specific fuel consumption measured"
'
'TbFCspecHot2
......@@ -757,7 +757,7 @@ Partial Class Form1
'
'Label29
'
Me.Label29.AutoSize = True
Me.Label29.AutoSize = true
Me.Label29.Location = New System.Drawing.Point(395, 50)
Me.Label29.Name = "Label29"
Me.Label29.Size = New System.Drawing.Size(68, 13)
......@@ -766,7 +766,7 @@ Partial Class Form1
'
'Label34
'
Me.Label34.AutoSize = True
Me.Label34.AutoSize = true
Me.Label34.Location = New System.Drawing.Point(566, 22)
Me.Label34.Name = "Label34"
Me.Label34.Size = New System.Drawing.Size(47, 13)
......@@ -789,7 +789,7 @@ Partial Class Form1
'
'Label35
'
Me.Label35.AutoSize = True
Me.Label35.AutoSize = true
Me.Label35.Location = New System.Drawing.Point(13, 78)
Me.Label35.Name = "Label35"
Me.Label35.Size = New System.Drawing.Size(101, 13)
......@@ -798,7 +798,7 @@ Partial Class Form1
'
'Label36
'
Me.Label36.AutoSize = True
Me.Label36.AutoSize = true
Me.Label36.Location = New System.Drawing.Point(566, 50)
Me.Label36.Name = "Label36"
Me.Label36.Size = New System.Drawing.Size(47, 13)
......@@ -807,7 +807,7 @@ Partial Class Form1
'
'Label37
'
Me.Label37.AutoSize = True
Me.Label37.AutoSize = true
Me.Label37.Location = New System.Drawing.Point(8, 37)
Me.Label37.Name = "Label37"
Me.Label37.Size = New System.Drawing.Size(106, 13)
......@@ -816,7 +816,7 @@ Partial Class Form1
'
'Label38
'
Me.Label38.AutoSize = True
Me.Label38.AutoSize = true
Me.Label38.Location = New System.Drawing.Point(391, 23)
Me.Label38.Name = "Label38"
Me.Label38.Size = New System.Drawing.Size(72, 13)
......@@ -825,7 +825,7 @@ Partial Class Form1
'
'Label39
'
Me.Label39.AutoSize = True
Me.Label39.AutoSize = true
Me.Label39.Location = New System.Drawing.Point(566, 78)
Me.Label39.Name = "Label39"
Me.Label39.Size = New System.Drawing.Size(47, 13)
......@@ -834,7 +834,7 @@ Partial Class Form1
'
'Label40
'
Me.Label40.AutoSize = True
Me.Label40.AutoSize = true
Me.Label40.Location = New System.Drawing.Point(374, 78)
Me.Label40.Name = "Label40"
Me.Label40.Size = New System.Drawing.Size(89, 13)
......@@ -843,7 +843,7 @@ Partial Class Form1
'
'Label41
'
Me.Label41.AutoSize = True
Me.Label41.AutoSize = true
Me.Label41.Location = New System.Drawing.Point(217, 78)
Me.Label41.Name = "Label41"
Me.Label41.Size = New System.Drawing.Size(47, 13)
......@@ -859,7 +859,7 @@ Partial Class Form1
'
'Label42
'
Me.Label42.AutoSize = True
Me.Label42.AutoSize = true
Me.Label42.Location = New System.Drawing.Point(217, 37)
Me.Label42.Name = "Label42"
Me.Label42.Size = New System.Drawing.Size(47, 13)
......@@ -870,7 +870,7 @@ Partial Class Form1
'
Me.SfFuelType2.Anchor = System.Windows.Forms.AnchorStyles.None
Me.SfFuelType2.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.SfFuelType2.FormattingEnabled = True
Me.SfFuelType2.FormattingEnabled = true
Me.SfFuelType2.Items.AddRange(New Object() {"Diesel / CI", "Ethanol / CI", "Petrol / PI", "Ethanol / PI", "LPG / PI", "Natural Gas / PI", "Natural Gas / CI"})
Me.SfFuelType2.Location = New System.Drawing.Point(108, 6)
Me.SfFuelType2.Name = "SfFuelType2"
......@@ -880,7 +880,7 @@ Partial Class Form1
'Label43
'
Me.Label43.Anchor = System.Windows.Forms.AnchorStyles.None
Me.Label43.AutoSize = True
Me.Label43.AutoSize = true
Me.Label43.Location = New System.Drawing.Point(16, 11)
Me.Label43.Name = "Label43"
Me.Label43.Size = New System.Drawing.Size(83, 13)
......@@ -898,7 +898,7 @@ Partial Class Form1
'Label44
'
Me.Label44.Anchor = System.Windows.Forms.AnchorStyles.None
Me.Label44.AutoSize = True
Me.Label44.AutoSize = true
Me.Label44.Location = New System.Drawing.Point(18, 37)
Me.Label44.Name = "Label44"
Me.Label44.Size = New System.Drawing.Size(81, 13)
......@@ -908,7 +908,7 @@ Partial Class Form1
'Label45
'
Me.Label45.Anchor = System.Windows.Forms.AnchorStyles.None
Me.Label45.AutoSize = True
Me.Label45.AutoSize = true
Me.Label45.Location = New System.Drawing.Point(228, 37)
Me.Label45.Name = "Label45"
Me.Label45.Size = New System.Drawing.Size(44, 13)
......@@ -925,7 +925,7 @@ Partial Class Form1
Me.tbWHRMech.Size = New System.Drawing.Size(901, 189)
Me.tbWHRMech.TabIndex = 2
Me.tbWHRMech.Text = "WHR Mechanical"
Me.tbWHRMech.UseVisualStyleBackColor = True
Me.tbWHRMech.UseVisualStyleBackColor = true
'
'GroupBox3
'
......@@ -935,12 +935,12 @@ Partial Class Form1
Me.GroupBox3.Name = "GroupBox3"
Me.GroupBox3.Size = New System.Drawing.Size(214, 101)
Me.GroupBox3.TabIndex = 1
Me.GroupBox3.TabStop = False
Me.GroupBox3.TabStop = false
Me.GroupBox3.Text = "Correction factors"
'
'Label15
'
Me.Label15.AutoSize = True
Me.Label15.AutoSize = true
Me.Label15.Location = New System.Drawing.Point(6, 50)
Me.Label15.Name = "Label15"
Me.Label15.Size = New System.Drawing.Size(59, 13)
......@@ -975,7 +975,7 @@ Partial Class Form1
Me.GroupBox4.Name = "GroupBox4"
Me.GroupBox4.Size = New System.Drawing.Size(636, 101)
Me.GroupBox4.TabIndex = 0
Me.GroupBox4.TabStop = False
Me.GroupBox4.TabStop = false
Me.GroupBox4.Text = "Specific WHR work measured"
'
'TbFCspecHotWHRMech
......@@ -994,7 +994,7 @@ Partial Class Form1
'
'Label21
'
Me.Label21.AutoSize = True
Me.Label21.AutoSize = true
Me.Label21.Location = New System.Drawing.Point(395, 50)
Me.Label21.Name = "Label21"
Me.Label21.Size = New System.Drawing.Size(68, 13)
......@@ -1003,7 +1003,7 @@ Partial Class Form1
'
'Label22
'
Me.Label22.AutoSize = True
Me.Label22.AutoSize = true
Me.Label22.Location = New System.Drawing.Point(566, 22)
Me.Label22.Name = "Label22"
Me.Label22.Size = New System.Drawing.Size(52, 13)
......@@ -1026,7 +1026,7 @@ Partial Class Form1
'
'Label26
'
Me.Label26.AutoSize = True
Me.Label26.AutoSize = true
Me.Label26.Location = New System.Drawing.Point(13, 78)
Me.Label26.Name = "Label26"
Me.Label26.Size = New System.Drawing.Size(101, 13)
......@@ -1035,7 +1035,7 @@ Partial Class Form1
'
'Label27
'
Me.Label27.AutoSize = True
Me.Label27.AutoSize = true
Me.Label27.Location = New System.Drawing.Point(566, 50)
Me.Label27.Name = "Label27"
Me.Label27.Size = New System.Drawing.Size(52, 13)
......@@ -1044,7 +1044,7 @@ Partial Class Form1
'
'Label32
'
Me.Label32.AutoSize = True
Me.Label32.AutoSize = true
Me.Label32.Location = New System.Drawing.Point(8, 37)
Me.Label32.Name = "Label32"
Me.Label32.Size = New System.Drawing.Size(106, 13)
......@@ -1053,7 +1053,7 @@ Partial Class Form1
'
'Label33
'
Me.Label33.AutoSize = True
Me.Label33.AutoSize = true
Me.Label33.Location = New System.Drawing.Point(391, 23)
Me.Label33.Name = "Label33"
Me.Label33.Size = New System.Drawing.Size(72, 13)
......@@ -1062,7 +1062,7 @@ Partial Class Form1
'
'Label46
'
Me.Label46.AutoSize = True
Me.Label46.AutoSize = true
Me.Label46.Location = New System.Drawing.Point(566, 78)
Me.Label46.Name = "Label46"
Me.Label46.Size = New System.Drawing.Size(52, 13)
......@@ -1071,7 +1071,7 @@ Partial Class Form1
'
'Label47
'
Me.Label47.AutoSize = True
Me.Label47.AutoSize = true
Me.Label47.Location = New System.Drawing.Point(374, 78)
Me.Label47.Name = "Label47"
Me.Label47.Size = New System.Drawing.Size(89, 13)
......@@ -1080,7 +1080,7 @@ Partial Class Form1
'
'Label48
'
Me.Label48.AutoSize = True
Me.Label48.AutoSize = true
Me.Label48.Location = New System.Drawing.Point(217, 78)
Me.Label48.Name = "Label48"
Me.Label48.Size = New System.Drawing.Size(52, 13)
......@@ -1096,7 +1096,7 @@ Partial Class Form1
'
'Label49
'
Me.Label49.AutoSize = True
Me.Label49.AutoSize = true
Me.Label49.Location = New System.Drawing.Point(217, 37)
Me.Label49.Name = "Label49"
Me.Label49.Size = New System.Drawing.Size(52, 13)
......@@ -1112,7 +1112,7 @@ Partial Class Form1
Me.tbWhrEl.Size = New System.Drawing.Size(901, 189)
Me.tbWhrEl.TabIndex = 3
Me.tbWhrEl.Text = "WHR Electrical"
Me.tbWhrEl.UseVisualStyleBackColor = True
Me.tbWhrEl.UseVisualStyleBackColor = true
'
'GroupBox8
'
......@@ -1122,12 +1122,12 @@ Partial Class Form1
Me.GroupBox8.Name = "GroupBox8"
Me.GroupBox8.Size = New System.Drawing.Size(214, 101)
Me.GroupBox8.TabIndex = 1
Me.GroupBox8.TabStop = False
Me.GroupBox8.TabStop = false
Me.GroupBox8.Text = "Correction factors"
'
'Label50
'
Me.Label50.AutoSize = True
Me.Label50.AutoSize = true
Me.Label50.Location = New System.Drawing.Point(6, 50)
Me.Label50.Name = "Label50"
Me.Label50.Size = New System.Drawing.Size(59, 13)
......@@ -1162,7 +1162,7 @@ Partial Class Form1
Me.GroupBox9.Name = "GroupBox9"
Me.GroupBox9.Size = New System.Drawing.Size(636, 101)
Me.GroupBox9.TabIndex = 0
Me.GroupBox9.TabStop = False
Me.GroupBox9.TabStop = false
Me.GroupBox9.Text = "Specific WHR work measured"
'
'TbFCspecHotWHREl
......@@ -1181,7 +1181,7 @@ Partial Class Form1
'
'Label51
'
Me.Label51.AutoSize = True
Me.Label51.AutoSize = true
Me.Label51.Location = New System.Drawing.Point(395, 50)
Me.Label51.Name = "Label51"
Me.Label51.Size = New System.Drawing.Size(68, 13)
......@@ -1190,7 +1190,7 @@ Partial Class Form1
'
'Label52
'
Me.Label52.AutoSize = True
Me.Label52.AutoSize = true
Me.Label52.Location = New System.Drawing.Point(566, 22)
Me.Label52.Name = "Label52"
Me.Label52.Size = New System.Drawing.Size(52, 13)
......@@ -1213,7 +1213,7 @@ Partial Class Form1
'
'Label53
'
Me.Label53.AutoSize = True
Me.Label53.AutoSize = true
Me.Label53.Location = New System.Drawing.Point(13, 78)
Me.Label53.Name = "Label53"
Me.Label53.Size = New System.Drawing.Size(101, 13)
......@@ -1222,7 +1222,7 @@ Partial Class Form1
'
'Label54
'
Me.Label54.AutoSize = True
Me.Label54.AutoSize = true
Me.Label54.Location = New System.Drawing.Point(566, 50)
Me.Label54.Name = "Label54"
Me.Label54.Size = New System.Drawing.Size(52, 13)
......@@ -1231,7 +1231,7 @@ Partial Class Form1
'
'Label55
'
Me.Label55.AutoSize = True
Me.Label55.AutoSize = true
Me.Label55.Location = New System.Drawing.Point(8, 37)
Me.Label55.Name = "Label55"
Me.Label55.Size = New System.Drawing.Size(106, 13)
......@@ -1240,7 +1240,7 @@ Partial Class Form1
'
'Label56
'
Me.Label56.AutoSize = True
Me.Label56.AutoSize = true
Me.Label56.Location = New System.Drawing.Point(391, 23)
Me.Label56.Name = "Label56"
Me.Label56.Size = New System.Drawing.Size(72, 13)
......@@ -1249,7 +1249,7 @@ Partial Class Form1
'
'Label57
'
Me.Label57.AutoSize = True
Me.Label57.AutoSize = true
Me.Label57.Location = New System.Drawing.Point(566, 78)
Me.Label57.Name = "Label57"
Me.Label57.Size = New System.Drawing.Size(52, 13)
......@@ -1258,7 +1258,7 @@ Partial Class Form1
'
'Label58
'
Me.Label58.AutoSize = True
Me.Label58.AutoSize = true
Me.Label58.Location = New System.Drawing.Point(374, 78)
Me.Label58.Name = "Label58"
Me.Label58.Size = New System.Drawing.Size(89, 13)
......@@ -1267,7 +1267,7 @@ Partial Class Form1
'
'Label59
'
Me.Label59.AutoSize = True
Me.Label59.AutoSize = true
Me.Label59.Location = New System.Drawing.Point(217, 78)
Me.Label59.Name = "Label59"
Me.Label59.Size = New System.Drawing.Size(52, 13)
......@@ -1283,7 +1283,7 @@ Partial Class Form1
'
'Label60
'
Me.Label60.AutoSize = True
Me.Label60.AutoSize = true
Me.Label60.Location = New System.Drawing.Point(217, 37)
Me.Label60.Name = "Label60"
Me.Label60.Size = New System.Drawing.Size(52, 13)
......@@ -1292,7 +1292,7 @@ Partial Class Form1
'
'Label16
'
Me.Label16.AutoSize = True
Me.Label16.AutoSize = true
Me.Label16.Location = New System.Drawing.Point(6, 26)
Me.Label16.Name = "Label16"
Me.Label16.Size = New System.Drawing.Size(160, 13)
......@@ -1301,7 +1301,7 @@ Partial Class Form1
'
'Label18
'
Me.Label18.AutoSize = True
Me.Label18.AutoSize = true
Me.Label18.Location = New System.Drawing.Point(268, 53)
Me.Label18.Name = "Label18"
Me.Label18.Size = New System.Drawing.Size(40, 13)
......@@ -1317,7 +1317,7 @@ Partial Class Form1
'
'Label24
'
Me.Label24.AutoSize = True
Me.Label24.AutoSize = true
Me.Label24.Location = New System.Drawing.Point(71, 53)
Me.Label24.Name = "Label24"
Me.Label24.Size = New System.Drawing.Size(91, 13)
......@@ -1326,7 +1326,7 @@ Partial Class Form1
'
'Label13
'
Me.Label13.AutoSize = True
Me.Label13.AutoSize = true
Me.Label13.Location = New System.Drawing.Point(268, 26)
Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(40, 13)
......@@ -1363,7 +1363,7 @@ Partial Class Form1
Me.ComponentData.Name = "ComponentData"
Me.ComponentData.Size = New System.Drawing.Size(694, 154)
Me.ComponentData.TabIndex = 1
Me.ComponentData.TabStop = False
Me.ComponentData.TabStop = false
Me.ComponentData.Text = "Engine component data"
'
'GroupBox10
......@@ -1375,42 +1375,42 @@ Partial Class Form1
Me.GroupBox10.Name = "GroupBox10"
Me.GroupBox10.Size = New System.Drawing.Size(488, 44)
Me.GroupBox10.TabIndex = 8
Me.GroupBox10.TabStop = False
Me.GroupBox10.TabStop = false
Me.GroupBox10.Text = "WHR data"
'
'cbWHREl
'
Me.cbWHREl.AutoSize = True
Me.cbWHREl.AutoSize = true
Me.cbWHREl.Location = New System.Drawing.Point(356, 19)
Me.cbWHREl.Name = "cbWHREl"
Me.cbWHREl.Size = New System.Drawing.Size(104, 17)
Me.cbWHREl.TabIndex = 2
Me.cbWHREl.Text = "Electrical Output"
Me.cbWHREl.UseVisualStyleBackColor = True
Me.cbWHREl.UseVisualStyleBackColor = true
'
'cbWhrICE
'
Me.cbWhrICE.AutoSize = True
Me.cbWhrICE.AutoSize = true
Me.cbWhrICE.Location = New System.Drawing.Point(10, 19)
Me.cbWhrICE.Name = "cbWhrICE"
Me.cbWhrICE.Size = New System.Drawing.Size(130, 17)
Me.cbWhrICE.TabIndex = 0
Me.cbWhrICE.Text = "MechanicalOutputICE"
Me.cbWhrICE.UseVisualStyleBackColor = True
Me.cbWhrICE.UseVisualStyleBackColor = true
'
'cbWHRMech
'
Me.cbWHRMech.AutoSize = True
Me.cbWHRMech.AutoSize = true
Me.cbWHRMech.Location = New System.Drawing.Point(164, 19)
Me.cbWHRMech.Name = "cbWHRMech"
Me.cbWHRMech.Size = New System.Drawing.Size(162, 17)
Me.cbWHRMech.TabIndex = 1
Me.cbWHRMech.Text = "MechanicalOutputDriveTrain"
Me.cbWHRMech.UseVisualStyleBackColor = True
Me.cbWHRMech.UseVisualStyleBackColor = true
'
'Label31
'
Me.Label31.AutoSize = True
Me.Label31.AutoSize = true
Me.Label31.Location = New System.Drawing.Point(606, 74)
Me.Label31.Name = "Label31"
Me.Label31.Size = New System.Drawing.Size(40, 13)
......@@ -1419,7 +1419,7 @@ Partial Class Form1
'
'EngineRatedSpeedLabel
'
Me.EngineRatedSpeedLabel.AutoSize = True
Me.EngineRatedSpeedLabel.AutoSize = true
Me.EngineRatedSpeedLabel.Location = New System.Drawing.Point(401, 74)
Me.EngineRatedSpeedLabel.Name = "EngineRatedSpeedLabel"
Me.EngineRatedSpeedLabel.Size = New System.Drawing.Size(99, 13)
......@@ -1435,7 +1435,7 @@ Partial Class Form1
'
'Label23
'
Me.Label23.AutoSize = True
Me.Label23.AutoSize = true
Me.Label23.Location = New System.Drawing.Point(606, 48)
Me.Label23.Name = "Label23"
Me.Label23.Size = New System.Drawing.Size(30, 13)
......@@ -1444,7 +1444,7 @@ Partial Class Form1
'
'EngineRatedPowerLabel
'
Me.EngineRatedPowerLabel.AutoSize = True
Me.EngineRatedPowerLabel.AutoSize = true
Me.EngineRatedPowerLabel.Location = New System.Drawing.Point(401, 48)
Me.EngineRatedPowerLabel.Name = "EngineRatedPowerLabel"
Me.EngineRatedPowerLabel.Size = New System.Drawing.Size(99, 13)
......@@ -1453,13 +1453,13 @@ Partial Class Form1
'
'cbDualFuel
'
Me.cbDualFuel.AutoSize = True
Me.cbDualFuel.AutoSize = true
Me.cbDualFuel.Location = New System.Drawing.Point(15, 124)
Me.cbDualFuel.Name = "cbDualFuel"
Me.cbDualFuel.Size = New System.Drawing.Size(71, 17)
Me.cbDualFuel.TabIndex = 7
Me.cbDualFuel.Text = "Dual Fuel"
Me.cbDualFuel.UseVisualStyleBackColor = True
Me.cbDualFuel.UseVisualStyleBackColor = true
'
'TbRatedPower
'
......@@ -1470,7 +1470,7 @@ Partial Class Form1
'
'CertificationNumberLabel
'
Me.CertificationNumberLabel.AutoSize = True
Me.CertificationNumberLabel.AutoSize = true
Me.CertificationNumberLabel.Location = New System.Drawing.Point(12, 77)
Me.CertificationNumberLabel.Name = "CertificationNumberLabel"
Me.CertificationNumberLabel.Size = New System.Drawing.Size(102, 13)
......@@ -1486,7 +1486,7 @@ Partial Class Form1
'
'ModelLabel
'
Me.ModelLabel.AutoSize = True
Me.ModelLabel.AutoSize = true
Me.ModelLabel.Location = New System.Drawing.Point(78, 51)
Me.ModelLabel.Name = "ModelLabel"
Me.ModelLabel.Size = New System.Drawing.Size(36, 13)
......@@ -1502,7 +1502,7 @@ Partial Class Form1
'
'ManufacturerLabel
'
Me.ManufacturerLabel.AutoSize = True
Me.ManufacturerLabel.AutoSize = true
Me.ManufacturerLabel.Location = New System.Drawing.Point(44, 25)
Me.ManufacturerLabel.Name = "ManufacturerLabel"
Me.ManufacturerLabel.Size = New System.Drawing.Size(70, 13)
......@@ -1518,7 +1518,7 @@ Partial Class Form1
'
'Label25
'
Me.Label25.AutoSize = True
Me.Label25.AutoSize = true
Me.Label25.Location = New System.Drawing.Point(606, 22)
Me.Label25.Name = "Label25"
Me.Label25.Size = New System.Drawing.Size(33, 13)
......@@ -1527,7 +1527,7 @@ Partial Class Form1
'
'EngineDisplacementLabel
'
Me.EngineDisplacementLabel.AutoSize = True
Me.EngineDisplacementLabel.AutoSize = true
Me.EngineDisplacementLabel.Location = New System.Drawing.Point(395, 22)
Me.EngineDisplacementLabel.Name = "EngineDisplacementLabel"
Me.EngineDisplacementLabel.Size = New System.Drawing.Size(105, 13)
......@@ -1550,7 +1550,7 @@ Partial Class Form1
Me.VECTOLogo.Size = New System.Drawing.Size(206, 132)
Me.VECTOLogo.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
Me.VECTOLogo.TabIndex = 11
Me.VECTOLogo.TabStop = False
Me.VECTOLogo.TabStop = false
'
'GrOutput
'
......@@ -1563,31 +1563,32 @@ Partial Class Form1
Me.GrOutput.Name = "GrOutput"
Me.GrOutput.Size = New System.Drawing.Size(941, 210)
Me.GrOutput.TabIndex = 1
Me.GrOutput.TabStop = False
Me.GrOutput.TabStop = false
Me.GrOutput.Text = "Output"
'
'BtCopyToClipboard
'
Me.BtCopyToClipboard.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.BtCopyToClipboard.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
Me.BtCopyToClipboard.Location = New System.Drawing.Point(6, 174)
Me.BtCopyToClipboard.Name = "BtCopyToClipboard"
Me.BtCopyToClipboard.Size = New System.Drawing.Size(211, 27)
Me.BtCopyToClipboard.TabIndex = 4
Me.BtCopyToClipboard.TabStop = False
Me.BtCopyToClipboard.TabStop = false
Me.BtCopyToClipboard.Text = "Copy all messages to clipboard"
Me.BtCopyToClipboard.UseVisualStyleBackColor = True
Me.BtCopyToClipboard.UseVisualStyleBackColor = true
'
'LvMsg
'
Me.LvMsg.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader1})
Me.LvMsg.FullRowSelect = True
Me.LvMsg.GridLines = True
Me.LvMsg.LabelWrap = False
Me.LvMsg.FullRowSelect = true
Me.LvMsg.GridLines = true
Me.LvMsg.HideSelection = false
Me.LvMsg.LabelWrap = false
Me.LvMsg.Location = New System.Drawing.Point(5, 47)
Me.LvMsg.Name = "LvMsg"
Me.LvMsg.Size = New System.Drawing.Size(925, 121)
Me.LvMsg.TabIndex = 2
Me.LvMsg.UseCompatibleStateImageBehavior = False
Me.LvMsg.UseCompatibleStateImageBehavior = false
Me.LvMsg.View = System.Windows.Forms.View.Details
'
'ColumnHeader1
......@@ -1609,12 +1610,12 @@ Partial Class Form1
Me.BtOutputDirectory.Name = "BtOutputDirectory"
Me.BtOutputDirectory.Size = New System.Drawing.Size(28, 23)
Me.BtOutputDirectory.TabIndex = 1
Me.BtOutputDirectory.TabStop = False
Me.BtOutputDirectory.UseVisualStyleBackColor = True
Me.BtOutputDirectory.TabStop = false
Me.BtOutputDirectory.UseVisualStyleBackColor = true
'
'Label14
'
Me.Label14.AutoSize = True
Me.Label14.AutoSize = true
Me.Label14.Location = New System.Drawing.Point(56, 20)
Me.Label14.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(84, 13)
......@@ -1631,79 +1632,79 @@ Partial Class Form1
Me.BtStart.Name = "BtStart"
Me.BtStart.Size = New System.Drawing.Size(639, 39)
Me.BtStart.TabIndex = 3
Me.BtStart.TabStop = False
Me.BtStart.TabStop = false
Me.BtStart.Text = "START FULL DATA EVALUATION"
Me.BtStart.UseVisualStyleBackColor = False
Me.BtStart.UseVisualStyleBackColor = false
'
'BgWorker
'
Me.BgWorker.WorkerReportsProgress = True
Me.BgWorker.WorkerSupportsCancellation = True
Me.BgWorker.WorkerReportsProgress = true
Me.BgWorker.WorkerSupportsCancellation = true
'
'BtPrecalc
'
Me.BtPrecalc.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.BtPrecalc.Font = New System.Drawing.Font("Microsoft Sans Serif", 8!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
Me.BtPrecalc.Location = New System.Drawing.Point(668, 644)
Me.BtPrecalc.Name = "BtPrecalc"
Me.BtPrecalc.Size = New System.Drawing.Size(285, 39)
Me.BtPrecalc.TabIndex = 2
Me.BtPrecalc.TabStop = False
Me.BtPrecalc.TabStop = false
Me.BtPrecalc.Text = "Precalculate characteristic engine speeds"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"and grid for fuel map"
Me.BtPrecalc.UseVisualStyleBackColor = True
Me.BtPrecalc.UseVisualStyleBackColor = true
'
'Form1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleDimensions = New System.Drawing.SizeF(6!, 13!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.AutoScroll = True
Me.AutoScroll = true
Me.ClientSize = New System.Drawing.Size(974, 911)
Me.Controls.Add(Me.BtPrecalc)
Me.Controls.Add(Me.GrOutput)
Me.Controls.Add(Me.BtStart)
Me.Controls.Add(Me.GrInput)
Me.Icon = CType(resources.GetObject("$this.Icon"),System.Drawing.Icon)
Me.MaximizeBox = False
Me.MaximizeBox = false
Me.MaximumSize = New System.Drawing.Size(990, 950)
Me.MinimumSize = New System.Drawing.Size(990, 500)
Me.Name = "Form1"
Me.Text = "Form1"
Me.GrInput.ResumeLayout(False)
Me.GrInput.PerformLayout()
Me.GroupBox5.ResumeLayout(False)
Me.GroupBox5.PerformLayout()
Me.GroupBox2.ResumeLayout(False)
Me.GroupBox2.PerformLayout()
Me.TabControl1.ResumeLayout(False)
Me.Fuel1.ResumeLayout(False)
Me.Fuel1.PerformLayout()
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
Me.GrRpm.ResumeLayout(False)
Me.GrRpm.PerformLayout()
Me.Fuel2.ResumeLayout(False)
Me.Fuel2.PerformLayout()
Me.GroupBox6.ResumeLayout(False)
Me.GroupBox6.PerformLayout()
Me.GroupBox7.ResumeLayout(False)
Me.GroupBox7.PerformLayout()
Me.tbWHRMech.ResumeLayout(False)
Me.GroupBox3.ResumeLayout(False)
Me.GroupBox3.PerformLayout()
Me.GroupBox4.ResumeLayout(False)
Me.GroupBox4.PerformLayout()
Me.tbWhrEl.ResumeLayout(False)
Me.GroupBox8.ResumeLayout(False)
Me.GroupBox8.PerformLayout()
Me.GroupBox9.ResumeLayout(False)
Me.GroupBox9.PerformLayout()
Me.ComponentData.ResumeLayout(False)
Me.ComponentData.PerformLayout()
Me.GroupBox10.ResumeLayout(False)
Me.GroupBox10.PerformLayout()
CType(Me.VECTOLogo, System.ComponentModel.ISupportInitialize).EndInit()
Me.GrOutput.ResumeLayout(False)
Me.GrOutput.PerformLayout()
Me.ResumeLayout(False)
Me.GrInput.ResumeLayout(false)
Me.GrInput.PerformLayout
Me.GroupBox5.ResumeLayout(false)
Me.GroupBox5.PerformLayout
Me.GroupBox2.ResumeLayout(false)
Me.GroupBox2.PerformLayout
Me.TabControl1.ResumeLayout(false)
Me.Fuel1.ResumeLayout(false)
Me.Fuel1.PerformLayout
Me.GroupBox1.ResumeLayout(false)
Me.GroupBox1.PerformLayout
Me.GrRpm.ResumeLayout(false)
Me.GrRpm.PerformLayout
Me.Fuel2.ResumeLayout(false)
Me.Fuel2.PerformLayout
Me.GroupBox6.ResumeLayout(false)
Me.GroupBox6.PerformLayout
Me.GroupBox7.ResumeLayout(false)
Me.GroupBox7.PerformLayout
Me.tbWHRMech.ResumeLayout(false)
Me.GroupBox3.ResumeLayout(false)
Me.GroupBox3.PerformLayout
Me.GroupBox4.ResumeLayout(false)
Me.GroupBox4.PerformLayout
Me.tbWhrEl.ResumeLayout(false)
Me.GroupBox8.ResumeLayout(false)
Me.GroupBox8.PerformLayout
Me.GroupBox9.ResumeLayout(false)
Me.GroupBox9.PerformLayout
Me.ComponentData.ResumeLayout(false)
Me.ComponentData.PerformLayout
Me.GroupBox10.ResumeLayout(false)
Me.GroupBox10.PerformLayout
CType(Me.VECTOLogo,System.ComponentModel.ISupportInitialize).EndInit
Me.GrOutput.ResumeLayout(false)
Me.GrOutput.PerformLayout
Me.ResumeLayout(false)
End Sub
Friend WithEvents GrInput As GroupBox
......
......@@ -1268,15 +1268,17 @@ Public Class Form1
#Region "Allow numbers only at KeyPress"
Private Sub AllowNumbersOnly( sender As Object, e As KeyPressEventArgs, Optional allowIntegerOnly As Boolean = false)
Private Sub AllowNumberOnlyTest( sender As Object, e As KeyPressEventArgs, Optional allowIntegerOnly As Boolean = false)
Dim textBox = CType(sender, TextBox)
Dim senderText = textBox.Text
Dim splitByDecimal = senderText.Split(".")
Dim cursorPosition = textBox.SelectionStart
If ([Char].IsControl(e.KeyChar) AndAlso e.KeyChar = Chr(3)) 'Str+C
Return
End If
If ([Char].IsControl(e.KeyChar) AndAlso e.KeyChar = Chr(22)) 'Str+V
Dim copiedText = Clipboard.GetText
Dim result As double
If (double.TryParse(copiedText, result) AndAlso result >= 0.0)
......@@ -1287,289 +1289,260 @@ Public Class Form1
e.Handled = true
End If
If allowIntegerOnly
If allowIntegerOnly = true Then
If e.KeyChar <> ControlChars.Back Then
e.Handled = ("0123456789".IndexOf(e.KeyChar) = -1)
End If
Else
If e.KeyChar = "."c Then
e.Handled = textBox.Text.IndexOf("."c) <> -1
ElseIf e.KeyChar <> ControlChars.Back Then
e.Handled = ("0123456789".IndexOf(e.KeyChar) = -1)
End If
If Not [Char].IsControl(e.KeyChar) And ("0123456789".IndexOf(e.KeyChar) = -1) And Not e.KeyChar = "."c Then
e.Handled = true
End If
if e.KeyChar = "."c And senderText.IndexOf(".") > -1 Then
e.Handled = true
End If
if (Not [Char].IsControl(e.KeyChar) And
senderText.IndexOf(".") < cursorPosition And
splitByDecimal.Length > 1)
If splitByDecimal(1).Length = 2
e.Handled = true
End If
End If
End Sub
Private Sub TbDisplacement_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TbDisplacement.KeyPress
AllowNumbersOnly(sender, e)
AllowNumberOnlyTest(sender, e, true)
End Sub
Private Sub TbRatedPower_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TbRatedPower.KeyPress
AllowNumbersOnly(sender, e, true)
AllowNumberOnlyTest(sender, e, true)
End Sub
Private Sub TbRatedSpeed_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TbRatedSpeed.KeyPress
AllowNumbersOnly(sender, e, true)
AllowNumberOnlyTest(sender, e, true)
End Sub
Private Sub TbIdle_Parent_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TbIdle_Parent.KeyPress
AllowNumbersOnly(sender, e)
AllowNumberOnlyTest(sender, e, true)
End Sub
Private Sub TbIdle_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TbIdle.KeyPress
AllowNumbersOnly(sender, e)
AllowNumberOnlyTest(sender, e, true)
End Sub
Private Sub TbNCVfuel1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TbNCVfuel1.KeyPress
AllowNumbersOnly(sender, e)
AllowNumberOnlyTest(sender, e)
End Sub
Private Sub TbFCspecCold1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TbFCspecCold1.KeyPress
AllowNumbersOnly(sender, e)
AllowNumberOnlyTest(sender, e)
End Sub
Private Sub TbFCspecHot1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TbFCspecHot1.KeyPress
AllowNumbersOnly(sender, e)
AllowNumberOnlyTest(sender, e)
End Sub
Private Sub TbFCspecUrb1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TbFCspecUrb1.KeyPress
AllowNumbersOnly(sender, e)
AllowNumberOnlyTest(sender, e)
End Sub
Private Sub TbFCspecRur1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TbFCspecRur1.KeyPress
AllowNumbersOnly(sender, e)
AllowNumberOnlyTest(sender, e)
End Sub
Private Sub TbFCspecMW1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TbFCspecMW1.KeyPress
AllowNumbersOnly(sender, e)
AllowNumberOnlyTest(sender, e)
End Sub
Private Sub TbCF_RegPer1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TbCF_RegPer1.KeyPress
AllowNumbersOnly(sender, e)
AllowNumberOnlyTest(sender, e)
End Sub
Private Sub TbNCVfuel2_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TbNCVfuel2.KeyPress
AllowNumbersOnly(sender, e)
AllowNumberOnlyTest(sender, e)
End Sub
Private Sub TbFCspecCold2_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TbFCspecCold2.KeyPress
AllowNumbersOnly(sender, e)
AllowNumberOnlyTest(sender, e)
End Sub
Private Sub TbFCspecHot2_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TbFCspecHot2.KeyPress
AllowNumbersOnly(sender, e)
Private Sub TbFCspecRur2_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TbFCspecRur2.KeyPress, TbFCspecHot2.KeyPress
AllowNumberOnlyTest(sender, e)
End Sub
Private Sub TbFCspecUrb2_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TbFCspecUrb2.KeyPress
AllowNumbersOnly(sender, e)
End Sub
Private Sub TbFCspecRur2_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TbFCspecRur2.KeyPress
AllowNumbersOnly(sender, e)
AllowNumberOnlyTest(sender, e)
End Sub
Private Sub TbFCspecMW2_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TbFCspecMW2.KeyPress
AllowNumbersOnly(sender, e)
AllowNumberOnlyTest(sender, e)
End Sub
Private Sub TbCF_RegPer2_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TbCF_RegPer2.KeyPress
AllowNumbersOnly(sender, e)
AllowNumberOnlyTest(sender, e)
End Sub
Private Sub TbFCspecColdWHRMech_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TbFCspecColdWHRMech.KeyPress
AllowNumbersOnly(sender, e)
AllowNumberOnlyTest(sender, e)
End Sub
Private Sub TbFCspecHotWHRMech_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TbFCspecHotWHRMech.KeyPress
AllowNumbersOnly(sender, e)
AllowNumberOnlyTest(sender, e)
End Sub
Private Sub TbFCspecUrbWHRMech_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TbFCspecUrbWHRMech.KeyPress
AllowNumbersOnly(sender, e)
AllowNumberOnlyTest(sender, e)
End Sub
Private Sub TbFCspecRurWHRMech_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TbFCspecRurWHRMech.KeyPress
AllowNumbersOnly(sender, e)
AllowNumberOnlyTest(sender, e)
End Sub
Private Sub TbFCspecMWWHRMech_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TbFCspecMWWHRMech.KeyPress
AllowNumbersOnly(sender, e)
AllowNumberOnlyTest(sender, e)
End Sub
Private Sub TbCF_RegPerWHRMech_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TbCF_RegPerWHRMech.KeyPress
AllowNumberOnlyTest(sender, e)
End Sub
Private Sub TbFCspecColdWHREl_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TbFCspecColdWHREl.KeyPress
AllowNumbersOnly(sender, e)
AllowNumberOnlyTest(sender, e)
End Sub
Private Sub TbFCspecHotWHREl_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TbFCspecHotWHREl.KeyPress
AllowNumbersOnly(sender, e)
AllowNumberOnlyTest(sender, e)
End Sub
Private Sub TbFCspecUrbWHREl_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TbFCspecUrbWHREl.KeyPress
AllowNumbersOnly(sender, e)
AllowNumberOnlyTest(sender, e)
End Sub
Private Sub TbFCspecRurWHREl_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TbFCspecRurWHREl.KeyPress
AllowNumbersOnly(sender, e)
AllowNumberOnlyTest(sender, e)
End Sub
Private Sub TbFCspecMWWHREl_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TbFCspecMWWHREl.KeyPress
AllowNumbersOnly(sender, e)
AllowNumberOnlyTest(sender, e)
End Sub
Private Sub TbCF_RegPerWHREl_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TbCF_RegPerWHREl.KeyPress
AllowNumbersOnly(sender, e)
End Sub
Private Sub TbCF_RegPerWHRMech_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TbCF_RegPerWHRMech.KeyPress
AllowNumbersOnly(sender, e)
AllowNumberOnlyTest(sender, e)
End Sub
#End Region
#Region "Number Validation"
Private Sub DecimalNumberOnlyValidation(sender As Object, e As CancelEventArgs, Optional allowIntegerOnly As Boolean = false)
Dim control = CType(sender, TextBox)
If control.Text = string.Empty
Return
End If
If allowIntegerOnly
Dim result As Integer
Integer.TryParse(control.Text, result)
control.Text = result.ToString()
Else
Dim result As Double
Double.TryParse(control.Text, result)
control.Text = result.ToString()
End If
End Sub
Private Sub TbDisplacement_Validating(sender As Object, e As CancelEventArgs) Handles TbDisplacement.Validating
DecimalNumberOnlyValidation(sender, e)
Private Sub TbNCVfuel1_Leave(sender As Object, e As EventArgs) Handles TbNCVfuel1.Leave
AddTrailingZeros(sender)
End Sub
Private Sub TbRatedPower_Validating(sender As Object, e As CancelEventArgs) Handles TbRatedPower.Validating
DecimalNumberOnlyValidation(sender, e, true)
Private Sub TbFCspecCold1_Leave(sender As Object, e As EventArgs) Handles TbFCspecCold1.Leave
AddTrailingZeros(sender)
End Sub
Private Sub TbRatedSpeed_Validating(sender As Object, e As CancelEventArgs) Handles TbRatedSpeed.Validating
DecimalNumberOnlyValidation(sender, e, true)
Private Sub TbFCspecHot1_Leave(sender As Object, e As EventArgs) Handles TbFCspecHot1.Leave
AddTrailingZeros(sender)
End Sub
Private Sub TbIdle_Parent_Validating(sender As Object, e As CancelEventArgs) Handles TbIdle_Parent.Validating
DecimalNumberOnlyValidation(sender, e)
Private Sub TbFCspecUrb1_Leave(sender As Object, e As EventArgs) Handles TbFCspecUrb1.Leave
AddTrailingZeros(sender)
End Sub
Private Sub TbIdle_Validating(sender As Object, e As CancelEventArgs) Handles TbIdle.Validating
DecimalNumberOnlyValidation(sender, e)
Private Sub TbFCspecRur1_Leave(sender As Object, e As EventArgs) Handles TbFCspecRur1.Leave
AddTrailingZeros(sender)
End Sub
Private Sub TbNCVfuel1_Validating(sender As Object, e As CancelEventArgs) Handles TbNCVfuel1.Validating
DecimalNumberOnlyValidation(sender, e)
Private Sub TbFCspecMW1_Leave(sender As Object, e As EventArgs) Handles TbFCspecMW1.Leave
AddTrailingZeros(sender)
End Sub
Private Sub TbFCspecCold1_Validating(sender As Object, e As CancelEventArgs) Handles TbFCspecCold1.Validating
DecimalNumberOnlyValidation(sender, e)
Private Sub TbCF_RegPer1_Leave(sender As Object, e As EventArgs) Handles TbCF_RegPer1.Leave
AddTrailingZeros(sender)
End Sub
Private Sub TbFCspecHot1_Validating(sender As Object, e As CancelEventArgs) Handles TbFCspecHot1.Validating
DecimalNumberOnlyValidation(sender, e)
Private Sub TbNCVfuel2_Leave(sender As Object, e As EventArgs) Handles TbNCVfuel2.Leave
AddTrailingZeros(sender)
End Sub
Private Sub TbFCspecUrb1_Validating(sender As Object, e As CancelEventArgs) Handles TbFCspecUrb1.Validating
DecimalNumberOnlyValidation(sender, e)
Private Sub TbFCspecCold2_Leave(sender As Object, e As EventArgs) Handles TbFCspecCold2.Leave
AddTrailingZeros(sender)
End Sub
Private Sub TbFCspecRur1_Validating(sender As Object, e As CancelEventArgs) Handles TbFCspecRur1.Validating
DecimalNumberOnlyValidation(sender, e)
Private Sub TbFCspecHot2_Leave(sender As Object, e As EventArgs) Handles TbFCspecHot2.Leave
AddTrailingZeros(sender)
End Sub
Private Sub TbFCspecMW1_Validating(sender As Object, e As CancelEventArgs) Handles TbFCspecMW1.Validating
DecimalNumberOnlyValidation(sender, e)
Private Sub TbFCspecRur2_Leave(sender As Object, e As EventArgs) Handles TbFCspecRur2.Leave
AddTrailingZeros(sender)
End Sub
Private Sub TbCF_RegPer1_Validating(sender As Object, e As CancelEventArgs) Handles TbCF_RegPer1.Validating
DecimalNumberOnlyValidation(sender, e)
Private Sub TbFCspecMW2_Leave(sender As Object, e As EventArgs) Handles TbFCspecMW2.Leave
AddTrailingZeros(sender)
End Sub
Private Sub TbNCVfuel2_Validating(sender As Object, e As CancelEventArgs) Handles TbNCVfuel2.Validating
DecimalNumberOnlyValidation(sender, e)
Private Sub TbCF_RegPer2_Leave(sender As Object, e As EventArgs) Handles TbCF_RegPer2.Leave
AddTrailingZeros(sender)
End Sub
Private Sub TbFCspecCold2_Validating(sender As Object, e As CancelEventArgs) Handles TbFCspecCold2.Validating
DecimalNumberOnlyValidation(sender, e)
Private Sub TbFCspecColdWHRMech_Leave(sender As Object, e As EventArgs) Handles TbFCspecColdWHRMech.Leave
AddTrailingZeros(sender)
End Sub
Private Sub TbFCspecHot2_Validating(sender As Object, e As CancelEventArgs) Handles TbFCspecHot2.Validating
DecimalNumberOnlyValidation(sender, e)
Private Sub TbFCspecHotWHRMech_Leave(sender As Object, e As EventArgs) Handles TbFCspecHotWHRMech.Leave
AddTrailingZeros(sender)
End Sub
Private Sub TbFCspecUrb2_Validating(sender As Object, e As CancelEventArgs) Handles TbFCspecUrb2.Validating
DecimalNumberOnlyValidation(sender, e)
Private Sub TbFCspecUrbWHRMech_Leave(sender As Object, e As EventArgs) Handles TbFCspecUrbWHRMech.Leave
AddTrailingZeros(sender)
End Sub
Private Sub TbFCspecRur2_Validating(sender As Object, e As CancelEventArgs) Handles TbFCspecRur2.Validating
DecimalNumberOnlyValidation(sender, e)
Private Sub TbFCspecRurWHRMech_Leave(sender As Object, e As EventArgs) Handles TbFCspecRurWHRMech.Leave
AddTrailingZeros(sender)
End Sub
Private Sub TbFCspecMW2_Validating(sender As Object, e As CancelEventArgs) Handles TbFCspecMW2.Validating
DecimalNumberOnlyValidation(sender, e)
Private Sub TbFCspecMWWHRMech_Leave(sender As Object, e As EventArgs) Handles TbFCspecMWWHRMech.Leave
AddTrailingZeros(sender)
End Sub
Private Sub TbCF_RegPer2_Validating(sender As Object, e As CancelEventArgs) Handles TbCF_RegPer2.Validating
DecimalNumberOnlyValidation(sender, e)
Private Sub TbCF_RegPerWHRMech_Leave(sender As Object, e As EventArgs) Handles TbCF_RegPerWHRMech.Leave
AddTrailingZeros(sender)
End Sub
Private Sub TbFCspecColdWHRMech_Validating(sender As Object, e As CancelEventArgs) Handles TbFCspecColdWHRMech.Validating
DecimalNumberOnlyValidation(sender, e)
Private Sub TbFCspecColdWHREl_Leave(sender As Object, e As EventArgs) Handles TbFCspecColdWHREl.Leave
AddTrailingZeros(sender)
End Sub
Private Sub TbFCspecHotWHRMech_Validating(sender As Object, e As CancelEventArgs) Handles TbFCspecHotWHRMech.Validating
DecimalNumberOnlyValidation(sender, e)
Private Sub TbFCspecHotWHREl_Leave(sender As Object, e As EventArgs) Handles TbFCspecHotWHREl.Leave
AddTrailingZeros(sender)
End Sub
Private Sub TbFCspecUrbWHRMech_Validating(sender As Object, e As CancelEventArgs) Handles TbFCspecUrbWHRMech.Validating
DecimalNumberOnlyValidation(sender, e)
Private Sub TbFCspecUrbWHREl_Leave(sender As Object, e As EventArgs) Handles TbFCspecUrbWHREl.Leave
AddTrailingZeros(sender)
End Sub
Private Sub TbFCspecRurWHRMech_Validating(sender As Object, e As CancelEventArgs) Handles TbFCspecRurWHRMech.Validating
DecimalNumberOnlyValidation(sender, e)
Private Sub TbFCspecRurWHREl_Leave(sender As Object, e As EventArgs) Handles TbFCspecRurWHREl.Leave
AddTrailingZeros(sender)
End Sub
Private Sub TbFCspecMWWHRMech_Validating(sender As Object, e As CancelEventArgs) Handles TbFCspecMWWHRMech.Validating
DecimalNumberOnlyValidation(sender, e)
Private Sub TbFCspecMWWHREl_Leave(sender As Object, e As EventArgs) Handles TbFCspecMWWHREl.Leave
AddTrailingZeros(sender)
End Sub
Private Sub TbFCspecColdWHREl_Validating(sender As Object, e As CancelEventArgs) Handles TbFCspecColdWHREl.Validating
DecimalNumberOnlyValidation(sender, e)
Private Sub TbCF_RegPerWHREl_Leave(sender As Object, e As EventArgs) Handles TbCF_RegPerWHREl.Leave
AddTrailingZeros(sender)
End Sub
Private Sub TbFCspecHotWHREl_Validating(sender As Object, e As CancelEventArgs) Handles TbFCspecHotWHREl.Validating
DecimalNumberOnlyValidation(sender, e)
Private Sub TbFCspecUrb2_Leave(sender As Object, e As EventArgs) Handles TbFCspecUrb2.Leave
AddTrailingZeros(sender)
End Sub
Private Sub TbFCspecUrbWHREl_Validating(sender As Object, e As CancelEventArgs) Handles TbFCspecUrbWHREl.Validating
DecimalNumberOnlyValidation(sender, e)
End Sub
Private Sub TbFCspecRurWHREl_Validating(sender As Object, e As CancelEventArgs) Handles TbFCspecRurWHREl.Validating
DecimalNumberOnlyValidation(sender, e)
End Sub
Private Sub TbFCspecMWWHREl_Validating(sender As Object, e As CancelEventArgs) Handles TbFCspecMWWHREl.Validating
DecimalNumberOnlyValidation(sender, e)
End Sub
Private Sub TbCF_RegPerWHREl_Validating(sender As Object, e As CancelEventArgs) Handles TbCF_RegPerWHREl.Validating
DecimalNumberOnlyValidation(sender, e)
End Sub
Private Sub TbCF_RegPerWHRMech_Validating(sender As Object, e As CancelEventArgs) Handles TbCF_RegPerWHRMech.Validating
DecimalNumberOnlyValidation(sender, e)
Private Sub AddTrailingZeros(sender As Object)
Dim textBox = CType(sender, TextBox)
Dim result As Double
if Double.TryParse(textBox.Text, result) Then
textBox.Text = result.ToString("F2")
End If
End Sub
#End Region
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment