用api (getasynckeystate)实现,在win 2k,xp 下有效:
【相关文章:Oracle专家调优秘密(二)】private declare function getasynckeystate lib "user32" (byval vkey as long) as integer 【扩展阅读:Oracle专家调优秘密(一)】
【扩展信息:Oracle专家调优秘密(三)】private const vk_lshift = &ha0private const vk_rshift = &ha1 private const vk_lctrl = &ha2 private const vk_rctrl = &ha3 private const vk_lmenu = &ha4 private const vk_rmenu = &ha5private sub form_keydown(keycode as integer, shift as integer)
if keycode = vbkeyshift and shift = vbshiftmask and (getasynckeystate(vk_lshift) and &h8000) then msgbox "you click the left shift" if keycode = vbkeyshift and shift = vbshiftmask and (getasynckeystate(vk_rshift) and &h8000) then msgbox "you click the right shift"... 下一页