DataWindow箭头移动
浏览数：37 /
时间：2015年06月11日
Subroutine keybd_event(uint bVk,uint bScan,long dwFlags,long dwExtraInfo )
library "user32.dll" //貌似不用这个也可以
自定义 pbm_dwnkey 事件 【 注意：不是pbm_keydown】
choose case key
case keyenter!
if This.getRow() = this.rowCount() then
This.insertrow(0)
This.scrolltorow(This.getrow()+1)
This.Setcolumn(1)
end if
return 1
case KeyLeftArrow!
if This.getcolumn() = 1 and This.getRow()<>1 then
This.scrolltorow(This.getrow()-1)
This.Setcolumn(Long(This.Describe("Datawindow.Column.count")))
else
This.Setcolumn(This.getcolumn()-1)
end if
return 1
case KeyRightArrow!
if This.getcolumn()=Long(This.Describe("Datawindow.Column.count"))
then
if this.getrow()=This.Rowcount() then
This.insertrow(0)
This.scrolltorow(This.getrow()+1)
This.Setcolumn(1)
return
end if
end if
send(Handle(this),256,9,long(0,0))
return 1
case keyUpArrow!
// if This.getcolumn() <> 1 then
// this.sertRow(this.getRow()-1)
// end if
// return 1
case keydownArrow!
// if This.getRow() <> this.rowCount() then
//
// end if
// return 1
end choose
郑重声明：本站内容如果来自互联网及其他传播媒体，其版权均属原媒体及文章作者所有。转载目的在于传递更多信息及用于网络分享，并不代表本站赞同其观点和对其真实性负责，也不构成任何其他建议。
