[RESOLVED] How to track changes on a richtextbox

[MrBlackKnight]

Hello Evryone

I have an Edit form that has two Richtextboxes:
*
I would like to keep track of who makes the changes or edits the form, and I have the following code: and is working just fine:
Dim stamp As String = "Edited by " & LoginForm1.UsernameTextBox.Text & " on " & Date.Now.ToString
Me.RichTextBox1.AppendText(Environment.NewLine & stamp)
Me.RichTextBox2.AppendText(Environment.NewLine & stamp)
*
The problem that I am having is that I would like to only add the tracking*log to the RichTextBox that I am modifying.
Right now if I edit RichTextBox1, it will add the tacking log, but is also adding the tracking log to the RichTextBox2, and I have not touched RichTextBox2,
How can I make it to work to only add the tacking log to the one that I am touching?
*
Thanks for your help

[sauronsmatrix]

How are you tracking the changes anyway? Using one of these?:

   Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged

    End Sub

If you are using these events separately for each box, it should work appropriately.

[MrBlackKnight]

Thanks Sauronsmatrix for your quick responce.

I have the following code under the save event, is it wrong?

Dim stamp As String = "Edited by " & LoginForm1.UsernameTextBox.Text & " on " & Date.Now.ToString
Me.RichTextBox1.AppendText(Environment.NewLine & stamp)
Me.RichTextBox2.AppendText(Environment.NewLine & stamp

Thanks

[sauronsmatrix]

im stamp As String = "Edited by " & LoginForm1.UsernameTextBox.Text & " on " & Date.Now.ToString
Me.RichTextBox1.AppendText(Environment.NewLine & stamp)
Me.RichTextBox2.AppendText(Environment.NewLine & stamp

Well you told it to stamp it regardless, so thats that. Maybe you want to have booleans for if the user edited the fields using the .TextChanged event, then have something like:

If blnChanged Then Me.RichTextBox2.AppendText(Environment.NewLine & stamp)

[MrBlackKnight]

Quick question: Do i need to declare the "blnChanged"?

Thanks,

[sauronsmatrix]

Dim blnChanged As Boolean

Booleans can either have a value of True or False.

[MrBlackKnight]

Thank you so much for your help.
BK