按钮组？ - VFP论坛 - 编程论坛档案馆

编程论坛 → 数据库技术 → 『 VFP论坛』 → 按钮组？

标题：按钮组？

只看楼主

su0527

等　级：论坛游民
帖　子：452
专家分：79
注　册：2015-1-10
结帖率：96.03%

楼主

已结贴√ 问题点数：20 回复次数：4

按钮组？

要求实现，当鼠标放在按钮组，播动鼠标轮了，实现按钮组向上，向下移动

搜索更多相关主题的帖子: 按钮　鼠标　向上　向下　移动　

2018-05-23 13:54

吹水佬

等　级：版主
威　望：432
帖　子：10064
专家分：41463
注　册：2014-5-20

第 2 楼

得分:0

MouseWheel事件

2018-05-23 14:10

mywisdom88

等　级：版主
威　望：190
帖　子：3125
专家分：8340
注　册：2015-3-25

第 3 楼

得分:20

*!* 命令组 MouseWhell
LPARAMETERS nDirection, nShift, nXCoord, nYCoord
DO CASE
   CASE nDirection = 120
        IF this.Top > 0
           this.Top = this.Top - 1 && 移动速度1
        ENDIF
   CASE nDirection = -120
        IF this.Top + this.Height < this.Parent.Height
           this.Top = this.Top + 1 && 移动速度1
        ENDIF
ENDCASE

[此贴子已经被作者于2018-5-23 14:18编辑过]

2018-05-23 14:13

schtg