滚动条如何自动滚动
数据窗口对象中：
选中某一行的某一列，鼠标左键不放拖动，光标到达窗口底部时如何让垂直滚动条自动滚动，不准用滚轮（汗：用一下滚轮要死呀，（使用系统的人要求这样））；
要求：不用鼠标中的滚轮控制滚动条滚动，用代码控制
[解决办法]
将以下内容保存为“.sru”格式的文件，再导入，然后通过它来建立数据窗口
$PBExportHeader$uo_datawindow.sruforwardglobal type uo_datawindow from datawindowend typeend forwardglobal type uo_datawindow from datawindowinteger width = 686integer height = 400string title = "none"boolean livescroll = trueborderstyle borderstyle = stylelowered!event ue_dwmousemove pbm_dwnmousemoveevent ue_lbuttonup pbm_dwnlbuttonupevent ue_lbuttondown pbm_lbuttondownevent ue_mousemove pbm_dwnmousemoveend typeglobal uo_datawindow uo_datawindowtype prototypesfunction ulong SetCapture(ulong hwnd) library "user32.dll"function boolean ReleaseCapture() library "user32.dll"end prototypesevent ue_lbuttonup;ReleaseCapture()end eventevent ue_lbuttondown;SetCapture(handle(this))end eventevent ue_mousemove;if keydown(keyleftbutton!) then if ypos >= unitstopixels(this.height, yunitstopixels!) then this.scrolltorow(long(this.Object.DataWindow.LastRowOnPage) + 1) elseif ypos <= 0 then this.scrolltorow(long(this.Object.DataWindow.FirstRowOnPage) - 1) end ifend if end eventon uo_datawindow.createend onon uo_datawindow.destroyend on
