I have 2 mdi childforms which are database input forms. Each form has the
usual add/delete/edit/save buttons and a few textboxes. I capture the
keypress events on the textboxes to allow only numbers and I also capture the
Enter key to move focus to the next control. The forms work fine if only
one form is opened. If both forms are opened and I then switch to the form
that was opened first the keypress event does not capture the enter key but
the the other characters work. The keypreview property is set to true for
all forms. Note that all fields are disabled when the form is loaded and enabled only when the add/edit buttons are clicked.
I am at a dead end here and cannot figure it out, can someone please help.
keypress code:
Private Sub editUserID_KeyPress(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles editUserID.KeyPress
Dim Numbers As String = "1234567890" + Microsoft.VisualBasic.ChrW(13) _
+ Microsoft.VisualBasic.ChrW(8)
If InStr(Numbers, e.KeyChar) = 0 Then
MessageBox.Show("Invalid character, Only numbers are allowed!",
"Input Error", _
MessageBoxButtons.OK, MessageBoxIcon.Information)
e.Handled = True
End If
If e.KeyChar = Microsoft.VisualBasic.ChrW(13) Then
SendKeys.Send("{TAB}")
e.Handled = True
End If
End Sub
usual add/delete/edit/save buttons and a few textboxes. I capture the
keypress events on the textboxes to allow only numbers and I also capture the
Enter key to move focus to the next control. The forms work fine if only
one form is opened. If both forms are opened and I then switch to the form
that was opened first the keypress event does not capture the enter key but
the the other characters work. The keypreview property is set to true for
all forms. Note that all fields are disabled when the form is loaded and enabled only when the add/edit buttons are clicked.
I am at a dead end here and cannot figure it out, can someone please help.
keypress code:
Private Sub editUserID_KeyPress(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles editUserID.KeyPress
Dim Numbers As String = "1234567890" + Microsoft.VisualBasic.ChrW(13) _
+ Microsoft.VisualBasic.ChrW(8)
If InStr(Numbers, e.KeyChar) = 0 Then
MessageBox.Show("Invalid character, Only numbers are allowed!",
"Input Error", _
MessageBoxButtons.OK, MessageBoxIcon.Information)
e.Handled = True
End If
If e.KeyChar = Microsoft.VisualBasic.ChrW(13) Then
SendKeys.Send("{TAB}")
e.Handled = True
End If
End Sub