ENVI^  ForceLocal=1
SET$ &NL=0D 0A
SET ::SB_VERT=1
SET ::SIF_POS=0x0004
SET ::WM_VSCROLL=0x0115
SET ::SB_BOTTOM=7
CALL @WIN1
_SUB WIN1,W287H246,滚动条滚动演示,
    TABL TABL1,L22T34W235H103,No.,1%&NL%2%&NL%3%&NL%4%&NL%5%&NL%6%&NL%7%&NL%8%&NL%9%&NL%10%&NL%11%&NL%12%&NL%13%&NL%14%&NL%,0x10040
    ENVI @TABL1.ID=?&&hTABL1
    ITEM ITEM1,L106T156W60H30,滚到底,OnEnd 
_END


_SUB OnEnd
    ENVI @TABL1.SENDMSG=%WM_VSCROLL%;%SB_BOTTOM% //数据 滚
    SET#%  &si=(4*7) 0 0 0  *(4*6) 0  //SCROLLINFO  4*7 个字节
    SET-long &si=%SIF_POS%:4  // fMask
    SET-long &si=0x7FFFFFFF:(4*5) // nPos
    CALL $--qd User32.dll,SetScrollInfo,#%hTABL1%,#%SB_VERT%,*si,#1  //滚动条(本身) 滚
_END

//typedef struct tagSCROLLINFO {
//  UINT cbSize;
//  UINT fMask;
//  int  nMin;
//  int  nMax;
//  UINT nPage;
//  int  nPos;
//  int  nTrackPos;
//} SCROLLINFO, *LPCSCROLLINFO;


