Getting Keystroke Value

[Wayne Wengert]

I want to get the decimal (integer) value of user keystrokes. I am using the
following code. chrInput is the character entered (e.g. "M") and "keystroke
is DIMed as Short

keystroke = Microsoft.VisualBasic.Val(chrInput)

but it always yields a value of 0

How should I be doing this?

--
------------------------------------
Wayne Wengert
wa***@wengert.org

[Parker Zhang [MSFT]]

Hello,

Please have a look at
http://msdn.microsoft.com/library/en...l/vafctVal.asp.

Public Overloads Function Val(ByVal Expression As String) As Double
-or-

Public Overloads Function Val(ByVal Expression As Object) As Double
-or-

Public Overloads Function Val(ByVal Expression As Char) As Integer

If the Expression doesn't contains decimal or cannot be converted to
decimal, the return value is 0.

The following code works fine.

Dim keystroke As Short
Dim chrInput As Char
chrInput = "2"
keystroke = Microsoft.VisualBasic.Val(chrInput)
MsgBox(keystroke)

HTH,
--
Parker Zhang
Microsoft Developer Support

This posting is provided "AS IS" with no warranties, and confers no rights.

[Wayne Wengert]

I finally found what I needed

Dim keycode As Integer
Dim chrInput As Char

chrInput = "A"
keycode = AscW(chrInput)

keycode = 65

Wayne

"Wayne Wengert" <wa***@wengert.org> wrote in message
news:uI**************@tk2msftngp13.phx.gbl...

I want to get the decimal (integer) value of user keystrokes. I am using the following code. chrInput is the character entered (e.g. "M") and "keystroke is DIMed as Short

keystroke = Microsoft.VisualBasic.Val(chrInput)

but it always yields a value of 0

How should I be doing this?

--
------------------------------------
Wayne Wengert
wa***@wengert.org