Hi all !

I want to unload the form by pressing "ESC" Key but I hvae 48 Textfield in my Form so i will have to write use this function which is given below for each TextField. Pls anyone can give me any small method to do that

I mean can I get the exact object name(Like TextBox1) having Focus....

And I don't want to take array of TextBox.

Private Sub txtname_KeyPress(KeyAscii As Integer)
    If KeyAscii = 27 Then
        Unload Me
    End If
End sub


Thanks....

DPK..

__________________
DPK..

Hi.
Set Form.KeyPreview = True.
This indicating whether the form will receive key events before the event is passed to the control that has focus.

Peko

Hi Peko !
I used this so.. but it returning Compile Error: Invalid use of property and this word is being Highlighted..

Private Sub Form_Load()
    Set Form1.KeyPreview = True
End Sub

what can be problem..

thanks....


DPK..

Set it when you are in Design mode, not in run time.
Not type Set Form.KeyPreview = true in code, but set this property to true on form property panel.

Peko

Hi peko !

  I don't know what was the problem before but it is working properly in Run Time also.
  So I did it.
  thanks for your consecutively replies...

  Thanks alot....

DPK..