精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● VB和Basic>>〓〓..API 函数使用..〓〓>>Re: 如何使键盘和鼠标失效?

主题:Re: 如何使键盘和鼠标失效?
发信人: gpu()
整理人: gzwsh(2000-10-06 10:42:40), 站内信件
【 在 wuchunlei (black) 的大作中提到: 】
Private Declare Function EnableWindow Lib"user32" (ByVal hwnd as long,
ByVal fEnable As Long)as long
'============================================ 
Call EnableWindow(form.hwnd,0)'键盘鼠标失效

'============================================
Call EnableWindow(form.hwnd,1)'恢复键盘鼠标功能


--
※ 来源:.月光软件站 http://www.moon-soft.com.[FROM: 61.157.6.96]

[关闭][返回]