Insert key press in text box

  • Thread starter Thread starter jimmy
  • Start date Start date
J

jimmy

Hi all

I am making a program whereby when the insert key is pressed in a text
box it opens up another form with the search parameters they entered in
the text box and automatically searches for the data. I have the code
below however it does not work when i press the insert key. I have
tried it with the enter key Ascii code 13 and all works fine! Is it
something to do with Insert being a system/bios key? My code is below;

Private Sub TelephoneTxt_KeyPress(ByVal sender As Object, ByVal e
As System.Windows.Forms.KeyPressEventArgs) Handles
TelephoneTxt.KeyPress
'handle telphone number search
Dim key As Char = Microsoft.VisualBasic.ChrW(45)
If e.KeyChar = key And TelephoneTxt.Text = "" And
SurnameTxt.Text = "" Then
MsgBox("Please enter at least one of the two search
parameters")
ElseIf e.KeyChar = key Then
CustomerSearch.ShowDialog()
CustomerSearch.CustomerReservationSearch(SurnameTxt.Text,
TelephoneTxt.Text)
End If
End Sub


Any help is much appreciated

Thanks

James
 
jimmy said:
Hi all

I am making a program whereby when the insert key is pressed in a text
box it opens up another form with the search parameters they entered in
the text box and automatically searches for the data. I have the code
below however it does not work when i press the insert key. I have
tried it with the enter key Ascii code 13 and all works fine! Is it
something to do with Insert being a system/bios key? My code is below;

Private Sub TelephoneTxt_KeyPress(ByVal sender As Object, ByVal e
As System.Windows.Forms.KeyPressEventArgs) Handles
TelephoneTxt.KeyPress
'handle telphone number search
Dim key As Char = Microsoft.VisualBasic.ChrW(45)
If e.KeyChar = key And TelephoneTxt.Text = "" And
SurnameTxt.Text = "" Then
MsgBox("Please enter at least one of the two search
parameters")
ElseIf e.KeyChar = key Then
CustomerSearch.ShowDialog()
CustomerSearch.CustomerReservationSearch(SurnameTxt.Text,
TelephoneTxt.Text)
End If
End Sub


Any help is much appreciated

Thanks

James
Click to expand...
James,

The KeyPress event doesn't fire for the insert key, as it doesn't produce a
character (e.KeyChar).
You can use the KeyDown or KeyUp event to trap the Insert key;

Private Sub TelephoneTxt_KeyDown(ByVal sender As Object, ByVal e As System.
_
Windows.Forms.KeyEventArgs) Handles TelephoneTxt.KeyDown
' Handle telphone number search
If e.KeyCode = Keys.Insert And TelephoneTxt.Text = "" And
SurnameTxt.Text = "" Then
MsgBox("Please enter at least one of the two search parameters")
ElseIf e.KeyCode = Keys.Insert Then
CustomerSearch.ShowDialog()
CustomerSearch.CustomerReservationSearch(SurnameTxt.Text,
TelephoneTxt.Text)
End If
End Sub

Hope that helps.
_____________________________
The Grim Reaper
 
Private Sub TelephoneTxt_KeyPress(ByVal sender As Object, ByVal e
As System.Windows.Forms.KeyPressEventArgs) Handles
TelephoneTxt.KeyPress
'handle telphone number search
Dim key As Char = Microsoft.VisualBasic.ChrW(45)
If e.KeyChar = key And TelephoneTxt.Text = "" And
SurnameTxt.Text = "" Then
MsgBox("Please enter at least one of the two search
parameters")
ElseIf e.KeyChar = key Then
CustomerSearch.ShowDialog()
CustomerSearch.CustomerReservationSearch(SurnameTxt.Text,
TelephoneTxt.Text)
End If
End Sub

Any help is much appreciated

Thanks

James
Click to expand...

Hey james,

Try the KeyDown event instead
 
Back
Top