TextBox Keypress
Hello, i am developping for a PDA from datalogic, model skorpio. The keys can send be in alpha upcase and alpha lowcase. I want to catch the key in a textbox and force it to be always in upcase. I do it by using the hardware.dll
Sub sCliche_KeyPress (key)
If Asc(key)=8 Then
Else If Asc(key)=13 Then
sClient.Focus
' here is the problem
' detect if the keyboard is in lowcase or upcase mode
Else If Asc(key) > 96 AND Asc(key) < 123 Then
' i am in lowcase, now ignore the key, send 160 for go to ucase mode, send the alpha value for ucase, send 160 for return in lowcase
sCliche.IgnoreKey
hd.keydown(160)
hd.KeyPress(Asc(key)-32)
hd.KeyUp(160)
end if
end sub
'I wish key would be send by reference, so i can change it immediatly
if asc(key) > 96 then Key=asc(key)-32
Jean-Marc
Last edited by orpailleur : 10-10-2010 at 09:39 PM.
Reason: explain better
|
Linear Mode
