DataWindow箭头移动
时间：2014-05-10 19:17:45
收藏：0
阅读：356
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
评论（0）