现在的位置: 首页 > 综合 > 正文

keydown

2013年09月05日 ⁄ 综合 ⁄ 共 1932字 ⁄ 字号 评论关闭

在一个sle的keydown事件中,有以下代码

string ls_py

if bl = false then
bl = true
choose case keydown(key)
case keydown(key0!)
ls_py = ls_py + "0"
case keydown(key1!)
ls_py = ls_py + "1"
case keydown(key2!)
ls_py = ls_py + "2"
case keydown(key3!)
ls_py = ls_py + "3"
case keydown(key4!)
ls_py = ls_py + "4"
case keydown(key5!)
ls_py = ls_py + "5"
case keydown(key6!)
ls_py = ls_py + "6"
case keydown(key7!)
ls_py = ls_py + "7"
case keydown(key8!)
ls_py = ls_py + "8"
case keydown(key9!)
ls_py = ls_py + "9"

case keydown(keya!)
ls_py = ls_py + "a"
case keydown(keyb!)
ls_py = ls_py + "b"
case keydown(keyc!)
ls_py = ls_py + "c"
case keydown(keyd!)
ls_py = ls_py + "d"
case keydown(keye!)
ls_py = ls_py + "e"
case keydown(keyf!)
ls_py = ls_py + "f"
case keydown(keyg!)
ls_py = ls_py + "g"
case keydown(keyh!)
ls_py = ls_py + "h"
case keydown(keyi!)
ls_py = ls_py + "i"
case keydown(keyj!)
ls_py = ls_py + "j"
case keydown(keyk!)
ls_py = ls_py + "k"
case keydown(keyl!)
ls_py = ls_py + "l"
case keydown(keym!)
ls_py = ls_py + "m"
case keydown(keyN!)
ls_py = ls_py + "n"
case keydown(keyO!)
ls_py = ls_py + "o"
case keydown(keyP!)
ls_py = ls_py + "p"
case keydown(keyQ!)
ls_py = ls_py + "q"
case keydown(keyR!)
ls_py = ls_py + "r"
case keydown(keyS!)
ls_py = ls_py + "s"
case keydown(keyT!)
ls_py = ls_py + "t"
case keydown(keyU!)
ls_py = ls_py + "u"
case keydown(keyV!)
ls_py = ls_py + "v"
case keydown(keyW!)
ls_py = ls_py + "w"
case keydown(keyX!)
ls_py = ls_py + "x"
case keydown(keyY!)
ls_py = ls_py + "y"
case keydown(keyZ!)
ls_py = ls_py + "z"

case keydown(KeyNumPad0!)
ls_py = ls_py + "0"
case keydown(KeyNumPad1!)
ls_py = ls_py + "1"
case keydown(KeyNumPad2!)
ls_py = ls_py + "2"
case keydown(KeyNumPad3!)
ls_py = ls_py + "3"
case keydown(KeyNumPad4!)
ls_py = ls_py + "4"
case keydown(KeyNumPad5!)
ls_py = ls_py + "5"
case keydown(KeyNumPad6!)
ls_py = ls_py + "6"
case keydown(KeyNumPad7!)
ls_py = ls_py + "7"
case keydown(KeyNumPad8!)
ls_py = ls_py + "8"
case keydown(KeyNumPad9!)
ls_py = ls_py + "9"
case keydown(KeyBack!)
if len(ls_py) <= 1 then
ls_py = ''
else
ls_py = left(ls_py,len(ls_py)-1)
end if
case else
ls_py = '*'
end choose

parent.title = ls_py

bl = false
end if

当快速按小键盘的0,1的时候,应该显示的是最后一个按的键,但实际不对。
为什么最终在窗口的title显示出来的ls_py不对呢

 

不需要写keydown
SLE新建一个事件,event id:pbm_enchange
Parent.Title =  This.Text
一条语句OK

抱歉!评论已关闭.