I had trouble getting window.event.shiftkey and window.event.altkey to work. I had to go key code by key on my key board.
All of the following code must be Inside the CLIENT SCRIPT AREA
The following dim's must be global inside the client script
dim strHoldAllKeyStrokes
dim strHoldSingleKeyStroke
dim x
The following function needs to appear just once in the client area
Function fncBufferKeyStrokes
rem shift key or control key
If window.event.keycode = 16 Or _
window.event.keycode = 17 Then
fncBufferKeyStrokes = "<SPECIAL>"
Exit Function
End If
rem Get the key that was just pressed
strHoldSingleKeyStroke = Chr(window.event.keycode)
rem The dash key on my keyboard has an ascii code of 189 which is "1/2" sysmbol ???
If Asc(strHoldSingleKeyStroke) = 189 Then
strHoldSingleKeyStroke = "-"
End If
rem If a key pressed is not one I can handle make it empty
If (strHoldSingleKeyStroke => "0" And _
strHoldSingleKeyStroke =< "9") Or _
(strHoldSingleKeyStroke => "a" And _
strHoldSingleKeyStroke =< "z") Or _
(strHoldSingleKeyStroke => "A" And _
strHoldSingleKeyStroke =< "Z") Or _
strHoldSingleKeyStroke = " " Or _
strHoldSingleKeyStroke = "." Or _
strHoldSingleKeyStroke = "," Or _
strHoldSingleKeyStroke = "-" Or _
Asc(strHoldSingleKeyStroke) = 46 Then
rem Key Stroke is acceptable
Else
strHoldSingleKeyStroke = ""
End If
rem If delete key remove previous key stroke
If strHoldSingleKeyStroke = "" Then
rem If the key stroke was not acceptable the ASC function will error
Else
If Asc(strHoldSingleKeyStroke) = 46 Then
If Len(strHoldAllKeyStrokes) > 0 Then
strHoldAllKeyStrokes = Mid(strHoldAllKeyStrokes, 1, Len(strHoldAllKeyStrokes) - 1)
End If
End If
End If
rem Build up the saved keystrokes
If Asc(strHoldSingleKeyStroke) = 46 Then
rem do not add on the delete key
Else
strHoldAllKeyStrokes = strHoldAllKeyStrokes & strHoldSingleKeyStroke
End If
fncBufferKeyStrokes = strHoldAllKeyStrokes
end Function
Each List box needs two routines. Change <Name> to the name of your list box
sub <name>_onClick
rem clear out the stored keystrokes when the user first clickes into the combo box
strHoldAllKeyStrokes = ""
end sub
sub <name>_onkeyUp
On Error Resume Next
strHoldAllKeyStrokes = fncBufferKeyStrokes
If Instr(strHoldAllKeyStrokes, "<SPECIAL>") > 0 Then
Exit Sub
End If
rem Search thru list and set the index in the list. Combo boxes in IE do not have a total count
rem of total entries. When we get an error - gone past end of list box set the index to the last entry
For x = 0 to 4000
If strHoldAllKeyStrokes =< Mid(frm.<name>.item(x).text, 1, len(strHoldAllKeyStrokes)) Then
If err.number = 424 Then
frm.<name>.selectedIndex = x - 1
Else
frm.<name>.selectedIndex = x
End If
exit for
End If
next
end sub
Not all that pretty but it works.
bill
|
