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<