DataWindow箭頭移動

標籤：des   tar   ext   c   int   get   

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 1end choose