1つのテキストボックス内の数字を確認するvb.net内のすべての行を削除する

Question

合計6個のテキストボックスを持っています.4数字の範囲は1.76,5.62などです。数字が2以上であるかどうかを確認したい場合は削除してから5つの他のテキストボックスにその行を削除し、私はそのiが私のコードを変更し混乱 それはあなたの例のコードが行うために何が起こっているかはっきりしていないいくつかの数字ではなく、他

 Dim list1 As List(Of String) = TextBox1.Lines.ToList 
    Dim list2 As List(Of String) = TextBox2.Lines.ToList 
    Dim list3 As List(Of String) = TextBox3.Lines.ToList 
    Dim list4 As List(Of String) = TextBox4.Lines.ToList 
    Dim list5 As List(Of String) = TextBox5.Lines.ToList 
    Dim list6 As List(Of String) = TextBox6.Lines.ToList 
    Dim t As Int32 
    Dim lin As String 

    t = 1 
    lin = TextBox4.Lines(t).ToString() 

    Do Until t = TextBox4.Lines.Count 

     If lin > 2 Then 


      list1.RemoveAt(t) 
      TextBox1.Lines = list1.ToArray 
      list2.RemoveAt(t) 
      TextBox2.Lines = list2.ToArray 
      list3.RemoveAt(t) 
      TextBox3.Lines = list3.ToArray 
      list5.RemoveAt(t) 
      TextBox5.Lines = list5.ToArray 
      list6.RemoveAt(t) 
      TextBox6.Lines = list6.ToArray 
      list4.RemoveAt(t) 
      TextBox4.Lines = list4.ToArray 

      t += 1 

     End If 

    Loop 

Answer 1

から動作します知っています。

あなたができることは、テキストボックスの '検証'イベントをトラップし、このイベントが発生したときに実行するコード内の他のテキストボックスを更新することです。

'validating'イベントはhereと記載されています。これは、テキストボックスを含む多くのWinFormsコントロールに適用される汎用イベントです。

編集：

Public Class Form1 
    Private Sub TextBox1_Validating(sender As Object, e As CancelEventArgs) Handles TextBox1.Validating 
     Dim Input As String 

     ' get input 
     Input = Me.TextBox1.Text 

     ' assume input is space delimited 
     For Each Item As String In Input.Split(" ").ToList 
      If IsNumeric(Item) Then 
       If Convert.ToDouble(Item) > 2 Then 
        Me.TextBox2.Text = Me.TextBox2.Text.Replace(Item, String.Empty) 
        Me.TextBox3.Text = Me.TextBox3.Text.Replace(Item, String.Empty) 
        Me.TextBox4.Text = Me.TextBox4.Text.Replace(Item, String.Empty) 
       End If 
      End If 
     Next 

    End Sub 
End Class