回复 11楼 sam_jiang
这个点子也不错,按这个思路做了测试,好用。
*Thisform.MouseWhell
LPARAMETERS nDirection, nShift, nXCoord, nYCoord
IF nDirection>0
&&向上滚动
FOR nCount = 1 TO
This.ControlCount
cControlName = This.Controls[nCount].name
This.&cControlName..top=This.&cControlName..top+10
ENDFOR
ELSE
&&向下滚动
FOR nCount = 1 TO
This.ControlCount
cControlName = This.Controls[nCount].name
This.&cControlName..top=This.&cControlName..top-10
ENDFOR
ENDIF
[此贴子已经被作者于2023-7-1 15:43编辑过]