首页 > 代码库 > DataWindow箭头移动
DataWindow箭头移动
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
声明：以上内容来自用户投稿及互联网公开渠道收集整理发布，本网站不拥有所有权，未作人工编辑处理，也不承担相关法律责任，若内容有误或涉及侵权可进行投诉： 投诉/举报 工作人员会在5个工作日内联系你，一经查实，本站将立刻删除涉嫌侵权内容。