Escape Key Press Problem !

[ninjaX]

Private Sub Form_KeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer)

If KeyCode = 27 Then

MessageBox.Show("You Click The Escape Key")
Me.currentage_TextBox.Undo()

End If

End Sub

why i click the escape key and it wont work ????

some one please help me thanx

[CyberHawke]

Do you have KeyPreview turned on for the form?

[ninjaX]

yes i turn it on already

when i press the escape key it didnt show any action

at the keyPreview there i set to true already

[CyberHawke]

you aren't referencing the appropriate objects.

Try replacing your code with this

Private Sub frmAbout_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
        If e.KeyValue = Keys.Escape Then
            Me.TextBox1.Undo()
        End If
    End Sub

[ninjaX]

thanx ~
it works

i got another problem can you help me to solve ???

how can i detect which textbox i am using ???

example i have change the textbox value and i need to undo it how can i know which textbox is change ???

[CyberHawke]

this will do the trick

Private Sub frmAbout_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
        If e.KeyValue = Keys.Escape Then
            Dim txtWork As New TextBox
            If Me.ActiveControl.GetType.Equals(txtWork.GetType) Then
                txtWork = DirectCast(Me.ActiveControl, TextBox)
                txtWork.Undo()
            End If
        End If
    End Sub

[SeanGrebey]

Keep a form level reference object that you set to the sender value of the onChange event for the text box.

[ninjaX]

thank you so much !!