vb.netのリッチテキストボックスのテキストを確認する

Question

私はvb.netアプリケーションでリッチテキストボックスを使用して、アドレス値を取得するための更新フォームを使用しています。私の更新クエリは、実行時にフォーム上のテキストボックスをループして、どのフィールドに値があり、対応するフィールドがデータベース内で更新されているかを確認することで生成されます。

For Each x As Control In Me.Controls 

     If x.GetType Is GetType(TextBox) Or x.GetType Is GetType(MaskedTextBox) Or x.GetType Is GetType(RichTextBox) Then 
      If Not x.Name = "party_code" Then 

       'if user has not entered a value in a textbox then incremnets the flag variable 

       If (x.Text = String.Empty) Or ((x.Name = "contact1" Or x.Name = "contact2" Or x.Name = "ptcl") And (x.Text.Trim().EndsWith("-") And x.Text.Trim().StartsWith("-"))) Then 
        flag += 1 
       End If 

       'checks if the user has entered a value in some textbox 

       If (Not x.Text = String.Empty And Not x.Name = "contact1" And Not x.Name = "contact2" And Not x.Name = "ptcl") Or ((x.Name = "contact1" Or x.Name = "contact2" Or x.Name = "ptcl") And Not x.Text.Trim.EndsWith("-")) Then 


        'generates query text for the textbox which contains some value 

        str = str & comma & x.Name & " = @" & x.Name 

        comma = " , " 
       End If 
      End If 
     End If 

    Next 

また、Enterキーを使用して、フォーム上の次のテキストボックスにフォーカスを移動します。フォーカスがアドレスリッチテキストボックスに達し、データベースのアドレスフィールドを更新する必要がなく、Enterキーを押して次のテキストボックスに移動すると、上記のコードで住所リッチテキストボックスに新しい値、つまりEnterキーが追加され、データベース内のアドレスフィールド。どうすればこの問題を取り除くことができますか？フォーカスをシフトすることの背後にある

コード：

Private Sub town_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles town.KeyDown 
    If e.KeyData = Keys.Return Then 
     address.Focus() 
    End If 
End Sub 

Private Sub address_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles address.KeyDown 
    If e.KeyData = Keys.Return Then 
     Button3.Focus() 
    End If 
End Sub 

私はKeyDownイベントを通してそれを扱ってきました..！

Answer 1

town_KeyDown Handleでフォーカスを変更しているので、このようなKeyDownEventを使用するとe.Handledを使用すると、キー入力がさらに処理されなくなります。

すなわち

Private Sub town_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles town.KeyDown 
    If e.KeyData = Keys.Return Then 
     address.Focus() 
     e.Handled = True 
     Exit Sub 
    End If 
End Sub