Merge pull request #7 from CCXXXI/fail-limit

Fail limit

frmMain.vb

@@ -88,6 +88,8 @@ Friend Class frmMain
  Friend WithEvents SysLabel As System.Windows.Forms.Label
  Friend WithEvents FixLabel As System.Windows.Forms.Label
  Friend WithEvents FixBox As System.Windows.Forms.PictureBox
+ Friend WithEvents DebugCheckBox As System.Windows.Forms.CheckBox
+ Friend WithEvents DebugNumericUpDown As System.Windows.Forms.NumericUpDown
  Friend WithEvents sbpCurrentTestName As System.Windows.Forms.StatusBarPanel
  <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
  Me.components = New System.ComponentModel.Container()
@@ -141,6 +143,8 @@ Friend Class frmMain
  Me.SysLabel = New System.Windows.Forms.Label()
  Me.FixLabel = New System.Windows.Forms.Label()
  Me.FixBox = New System.Windows.Forms.PictureBox()
+ Me.DebugCheckBox = New System.Windows.Forms.CheckBox()
+ Me.DebugNumericUpDown = New System.Windows.Forms.NumericUpDown()
  CType(Me.imglogo, System.ComponentModel.ISupportInitialize).BeginInit()
  Me.fraTestplanConfiguration.SuspendLayout()
  Me.fraTxSLConfiguration.SuspendLayout()
@@ -162,6 +166,7 @@ Friend Class frmMain
  CType(Me.TestExecSL1, System.ComponentModel.ISupportInitialize).BeginInit()
  CType(Me.SysBox, System.ComponentModel.ISupportInitialize).BeginInit()
  CType(Me.FixBox, System.ComponentModel.ISupportInitialize).BeginInit()
+ CType(Me.DebugNumericUpDown, System.ComponentModel.ISupportInitialize).BeginInit()
  Me.SuspendLayout()
  '
  'chkReportPassedTests
@@ -704,14 +709,14 @@ Friend Class frmMain
  Me.TestExecSL1.Location = New System.Drawing.Point(379, 6)
  Me.TestExecSL1.Name = "TestExecSL1"
  Me.TestExecSL1.OcxState = CType(resources.GetObject("TestExecSL1.OcxState"), System.Windows.Forms.AxHost.State)
- Me.TestExecSL1.Size = New System.Drawing.Size(40, 40)
+ Me.TestExecSL1.Size = New System.Drawing.Size(64, 58)
  Me.TestExecSL1.TabIndex = 24
  Me.TestExecSL1.Visible = False
  '
  'SysBox
  '
  Me.SysBox.BackColor = System.Drawing.Color.Red
- Me.SysBox.Location = New System.Drawing.Point(512, 15)
+ Me.SysBox.Location = New System.Drawing.Point(477, 15)
  Me.SysBox.Name = "SysBox"
  Me.SysBox.Size = New System.Drawing.Size(31, 29)
  Me.SysBox.TabIndex = 34
@@ -720,7 +725,7 @@ Friend Class frmMain
  'SysLabel
  '
  Me.SysLabel.AutoSize = True
- Me.SysLabel.Location = New System.Drawing.Point(481, 21)
+ Me.SysLabel.Location = New System.Drawing.Point(446, 21)
  Me.SysLabel.Name = "SysLabel"
  Me.SysLabel.Size = New System.Drawing.Size(25, 14)
  Me.SysLabel.TabIndex = 35
@@ -729,7 +734,7 @@ Friend Class frmMain
  'FixLabel
  '
  Me.FixLabel.AutoSize = True
- Me.FixLabel.Location = New System.Drawing.Point(591, 23)
+ Me.FixLabel.Location = New System.Drawing.Point(525, 21)
  Me.FixLabel.Name = "FixLabel"
  Me.FixLabel.Size = New System.Drawing.Size(19, 14)
  Me.FixLabel.TabIndex = 37
@@ -738,17 +743,39 @@ Friend Class frmMain
  'FixBox
  '
  Me.FixBox.BackColor = System.Drawing.Color.Red
- Me.FixBox.Location = New System.Drawing.Point(622, 17)
+ Me.FixBox.Location = New System.Drawing.Point(556, 15)
  Me.FixBox.Name = "FixBox"
  Me.FixBox.Size = New System.Drawing.Size(31, 29)
  Me.FixBox.TabIndex = 36
  Me.FixBox.TabStop = False
  '
+ 'DebugCheckBox
+ '
+ Me.DebugCheckBox.AutoSize = True
+ Me.DebugCheckBox.Location = New System.Drawing.Point(611, 21)
+ Me.DebugCheckBox.Name = "DebugCheckBox"
+ Me.DebugCheckBox.Size = New System.Drawing.Size(56, 18)
+ Me.DebugCheckBox.TabIndex = 38
+ Me.DebugCheckBox.Text = "debug"
+ Me.DebugCheckBox.UseVisualStyleBackColor = True
+ '
+ 'DebugNumericUpDown
+ '
+ Me.DebugNumericUpDown.Enabled = False
+ Me.DebugNumericUpDown.Location = New System.Drawing.Point(664, 19)
+ Me.DebugNumericUpDown.Minimum = New Decimal(New Integer() {1, 0, 0, 0})
+ Me.DebugNumericUpDown.Name = "DebugNumericUpDown"
+ Me.DebugNumericUpDown.Size = New System.Drawing.Size(50, 20)
+ Me.DebugNumericUpDown.TabIndex = 39
+ Me.DebugNumericUpDown.Value = New Decimal(New Integer() {1, 0, 0, 0})
+ '
  'frmMain
  '
  Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
  Me.BackColor = System.Drawing.SystemColors.Control
  Me.ClientSize = New System.Drawing.Size(758, 552)
+ Me.Controls.Add(Me.DebugNumericUpDown)
+ Me.Controls.Add(Me.DebugCheckBox)
  Me.Controls.Add(Me.FixLabel)
  Me.Controls.Add(Me.FixBox)
  Me.Controls.Add(Me.SysLabel)
@@ -796,6 +823,7 @@ Friend Class frmMain
  CType(Me.TestExecSL1, System.ComponentModel.ISupportInitialize).EndInit()
  CType(Me.SysBox, System.ComponentModel.ISupportInitialize).EndInit()
  CType(Me.FixBox, System.ComponentModel.ISupportInitialize).EndInit()
+ CType(Me.DebugNumericUpDown, System.ComponentModel.ISupportInitialize).EndInit()
  Me.ResumeLayout(False)
  Me.PerformLayout()
 
@@ -1715,6 +1743,7 @@ LocalErrorHandler:
  chkReportPassedTests.CheckState = System.Windows.Forms.CheckState.Unchecked
  End If
  chkReportPassedTests.Enabled = True
+ .FailCountLimit = DebugNumericUpDown.Value
  End With
 
  'update the statistics status bar
@@ -2594,4 +2623,16 @@ LocalErrorHandler:
  Private Sub prbTestplan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles prbTestplan.Click
 
  End Sub
+
+ Private Sub DebugCheckBox_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DebugCheckBox.CheckedChanged
+ DebugNumericUpDown.Enabled = DebugCheckBox.Checked
+ End Sub
+
+ Private Sub DebugNumericUpDown_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DebugNumericUpDown.ValueChanged
+ Try
+ TestExecSL1.Testplan.Preference.FailCountLimit = DebugNumericUpDown.Value
+ Catch ex As AxHost.InvalidActiveXStateException
+ ' Not activated yet. Just pass.
+ End Try
+ End Sub
 End Class