keypress question

[starbuck]

Hi All

We are converting a VB6 app to VB.NET and have come across a little problem

In VB6 the following code

Private Sub User_txt_KeyPress(KeyAscii As Integer)

KeyAscii = Key_Filter_Alpha(KeyAscii)

End Sub

Calls

Function Key_Filter_Alpha(keyc%) As Integer

Select Case keyc%

Case 32

Case 3 'Ctrl C

Case 24 'Ctrl X

Case 8 'BackSpace

Case 48 To 57 'Number 0-9

Case 65 To 90 'A-Z

Case 97 To 122 'a-z

keyc% = keyc% - 32

Case Else

keyc% = 0

End Select

Key_Filter_Alpha = keyc%

End Function

And only returns upper case letters, nothing else. We can not seem to get
this to work in VB.NET, and ideas, hints etc.

Thanks in advance.




---
Outgoing mail is certified Virus Free, so am I.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.593 / Virus Database: 376 - Release Date: 20/02/2004

[Herfried K. Wagner [MVP]]

* "starbuck" <st******@mbssoft.co.uk> scripsit:

We are converting a VB6 app to VB.NET and have come across a little problem

In VB6 the following code

Private Sub User_txt_KeyPress(KeyAscii As Integer)

KeyAscii = Key_Filter_Alpha(KeyAscii)

End Sub

Instead of preventing the user from typing into the textbox whatever
he/she wants, add validation code to the textbox's 'Validating' event
handler and set an ErrorProvider (see Toolbox).

--
Herfried K. Wagner [MVP]
<http://www.mvps.org/dotnet>

[starbuck]

That's cool, thanks

"Herfried K. Wagner [MVP]" <hi***************@gmx.at> wrote in message
news:c1*************@ID-208219.news.uni-berlin.de...

* "starbuck" <st******@mbssoft.co.uk> scripsit:

We are converting a VB6 app to VB.NET and have come across a little problem
In VB6 the following code

Private Sub User_txt_KeyPress(KeyAscii As Integer)

KeyAscii = Key_Filter_Alpha(KeyAscii)

End Sub

Instead of preventing the user from typing into the textbox whatever
he/she wants, add validation code to the textbox's 'Validating' event
handler and set an ErrorProvider (see Toolbox).

--
Herfried K. Wagner [MVP]
<http://www.mvps.org/dotnet>

---
Outgoing mail is certified Virus Free, so am I.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.593 / Virus Database: 376 - Release Date: 20/02/2004

[Ken Tucker [MVP]]

Hi,

In addition to Herfried's comments you can set the textbox's
charactercasing to charactercasing.upper if you only want upper case
letters.

Ken
------------
"starbuck" <st******@mbssoft.co.uk> wrote in message
news:eq****************@TK2MSFTNGP09.phx.gbl...

Hi All

We are converting a VB6 app to VB.NET and have come across a little problem
In VB6 the following code

Private Sub User_txt_KeyPress(KeyAscii As Integer)

KeyAscii = Key_Filter_Alpha(KeyAscii)

End Sub

Calls

Function Key_Filter_Alpha(keyc%) As Integer

Select Case keyc%

Case 32

Case 3 'Ctrl C

Case 24 'Ctrl X

Case 8 'BackSpace

Case 48 To 57 'Number 0-9

Case 65 To 90 'A-Z

Case 97 To 122 'a-z

keyc% = keyc% - 32

Case Else

keyc% = 0

End Select

Key_Filter_Alpha = keyc%

End Function

And only returns upper case letters, nothing else. We can not seem to get
this to work in VB.NET, and ideas, hints etc.

Thanks in advance.




---
Outgoing mail is certified Virus Free, so am I.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.593 / Virus Database: 376 - Release Date: 20/02/2004