如何控制鼠标的滚轮

[chenguowei93]

怎么判断鼠标滚轮是向前还是向后呀！
是要在MouseWheel事件下写吗？

[sunshine_anycall]

var up = $('up'), down = $('down'), log;
 
[up, down].each(function(arrow) {
	arrow.setStyle('opacity', .1);
});
 
document.addEvent('mousewheel', function(event) {
	event = new Event(event);
 
	/* Mousewheel UP */
	if (event.wheel > 0) {
		up.setStyle('opacity', 1);
		down.setStyle('opacity', .1);
		log = 'up';
	} 
	/* Mousewheel DOWN*/
	else if (event.wheel < 0) {
		up.setStyle('opacity', .1);
		down.setStyle('opacity', 1);
		log = 'down';
	}
 
	$('log').setHTML(log);
 
	var cls = function() {
		[up, down].each(function(arrow) {
			arrow.setStyle('opacity', .1);
		});
	}.delay(100);
});

[sunshine_anycall]

不知道你要的是哪种类型的代码

[devotedsky]

Private Sub Form1_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseWheel
MsgBox(e.Delta)
End Sub

根据正负判断

[chenguowei93]

不好意思，我要是VB.ne的代码

[bluesky0327]

3楼的就是吧。那VB.ne的代码还能怎么写。 学习！

[qshurufa]

Private Sub MouseGunLun_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseWheel
If e.Delta = -120 Then
MsgBox("鼠标滚轮向下运动。")
Else
MsgBox("鼠标滚轮向上运动。")
End If
End Sub

[浪子-无悔]

学习了啊 。。

[zv2002]

    '重载WndProc
    Protected Overrides Sub WndProc(ByRef m As Message)

        If &H20A = m.Msg Then
            ' 滚轮事件
            If m.WParam.ToInt32 >> 16 > 0 Then
                debug.Print("向上滚")
            Else
                debug.Print("向下滚")
            End If
            MyBase.WndProc(m)
        Else
            MyBase.WndProc(m)
        End If

    End Sub

[北京的雾霾天]

由zDelta大于0或小于0来判断。

[北京的雾霾天]

鼠标轮将轮和鼠标按钮的功能结合在了一起。鼠标轮有一些相互分开的、间距均匀的凹口。当您旋转鼠标轮时，每碰到一个凹口就会发送一个鼠标轮消息。Windows 常数 WHEEL_DELTA 定义了一个鼠标轮凹口，即一个制动器，值为 120。正值指示鼠标轮向前（远离用户的方向）转动；负值指示鼠标轮向后（朝着用户的方向）转动。

当前，120 是一个制动器的标准值。如果使用分辨率更高的鼠标，则 WHEEL_DATA 定义的值可能会更小。大多数应用程序都应检查值为正还是为负，而不是值聚合总数。