易语言鼠标滚轮滚动距离 易语言如何捕获鼠标滑轮动作

一、易语言如何捕获鼠标滑轮动作

准备：标签一个(检测用的，往上滚数值+1往下滚数值-1)

然后启动窗口事件里面有个滚轮被滚动单击进入子程序输入

.版本2

.子程序__启动窗口_滚轮被滚动,逻辑型

.参数滚动距离,整数型

.参数功能键状态,整数型

.判断开始(滚动距离＝1)

标签1.标题＝到文本(到数值(标签1.标题)＋1)

.判断(滚动距离＝-1)

标签1.标题＝到文本(到数值(标签1.标题)－1)

.默认

.判断结束

采纳吧楼主

二、易语言滚轮被滚动事件

试试吧,帮你写一下,其实关键的是要让图片框先要获取到焦点,才能滚动,或者在启动窗口下失现

如果滚动距离小于零,向下滚动的距离就是顶边向下增加

否则,向上滚动,在启动窗口创建完毕的时候,你要先将它图片框获取到焦点,另外,可以加一个分组框把图片框放到分组框上,这是一个小技巧,在超级文本框时也可以用的到,只显示网页的某一块地方,,可以让图片保持到一个范围内,不会到底,

三、易语言模拟鼠标滚动源码。

语法：逻辑型_窗口组件_滚轮被滚动（滚动距离，功能键状态）

参数名描述

滚动距离整数型；表明鼠标滚轮所滚动的距离，大于零表示向前滚动，小于零表示向后滚动。

功能键状态整数型；用于查看各功能键是否被同时按下。可以为以下常量值或其和：1、#Ctrl键状态；2、#Shift键状态；4、#Alt键状态。要判断是否同时按下了某个功能键，在此参数的值与想要得知的功能键的状态常量值之间使用“位与”命令进行比较。如果所得的结果不为零，则表示同时按下了此功能键。

四、易语言鼠标滚轮被滚动就模拟按下某键

您好，有几万种东西叫“API”

SendMessage(取鼠标所在窗口句柄(),#WM_VSCROLL,#SB_LINEDOWN, 0)'向下滚动一行

SendMessage(取鼠标所在窗口句柄(),#WM_VSCROLL,#SB_PAGEDOWN, 0)'向下滚动一页

SendMessage(取鼠标所在窗口句柄(),#WM_VSCROLL,#SB_BOTTOM, 0)'滚动到底部

SendMessage(取鼠标所在窗口句柄(),#WM_VSCROLL,#SB_TOP, 0)'滚动到顶端

' SB_PAGEDOWN向下滚动一页

' SB_LINEDOWN向下滚动一行

' SB_PAGEUP向上滚动一页

' SB_LINEUP向上滚动一行

' SB_TOP滚动到顶端

' SB_BOTTOM滚动到底部

' SB_THUMBPOSITION用户有拖动滚动框（滑块），并释放鼠标按钮。HIWORD指示在拖动操作结束时滚动框的位置。

' SB_THUMBTRACK用户正在拖动滚动框。直到用户释放鼠标按钮，反复发送此邮件。HIWORD指示滚动框已被拖动到的位置。