如何在PB中实现热键

[fangsystem]

如何在PB中实现热键

[jmsofts]

gz

[ddtid]

Key事件里面写

[海洋‘s]

在数据窗口中用Enter键和SHIFT键代替TAB和SHIFT+TAB
在local external functions声明：
SUBROUTINE keybd_event(INT bvk,INT bscan,INT dwFlags,INT dwextrainfo) LIBRARY "user32.dll"
定义instance variables(实例变量):
int shift_i=0
在窗口中自定义两个用户消息：
Press_enter
Event id:pbm_dwprocessenter
press_shift
Event id:pbm_dwkey
Press_enter事件处理如下：
string lm
lm=GetColumnName() //得到当前列名
if lm="last_name" then //如果是最后一列 设成第一列
this.SetColumn("firs_name")
return 1
end if
send(Handle(this),256,9,long(0,0))
return 1
Press_shift事件处理如下:
string lm
if KeyDown(KEYSHIFT!) and shift_i=0 then
lm=this.GetColumnName()
if lm="first_name" then 是第一列返回，不响应该事件
shift_i=1
return 1
end if
keybd_event(16,0,0,0)
keybd_event(9,0,0,0)
keybd_event(16,0,2,0)
keybd_event(9,0,2,0)
shift_i=1
return 1
end if

[531MT]

pbm_keydown 键盘上的一个键被按下。
pbm_keyup 键盘上的一个键被释放。

[xiaoxianhe]

Key事件，KeyDown（）判断，以前的帖子里面有很这样的帖子找找看。

[sydeng]

用keydown()函数。