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