private sub text1_keydown(keycode as integer, shift as integer) if shift = 2 and keycode = 46 then '按键ctrl+delete x = msgbox( "是否确认删除 ", vbokcancel) if x = 1 then text1.text= " " end if end if end sub
发表于:2007-08-27 19:43:448楼 得分:0
...纯属蹭分
发表于:2007-09-20 10:40:339楼 得分:0
哈哈。
发表于:2007-09-21 09:48:1110楼 得分:0
第10个 还有2分 后来的不许回帖了 ^-^
发表于:2007-09-21 14:13:2211楼 得分:0
还有更高效的,请看:
private sub text1_keypress(keyascii as integer) if keyascii=36 then text1.text= " " 'keyascii=36 是按空格键清除 end sub