问题描述
表面上看,连最新的VB.net2010也没有支持鼠标滚轮上下滚动行,但实际上却是支持的。主要包含两个过程即可,一个过程用到MouseMove,只有一句即可,即设置DataGridview1为焦点;另一个过程就是MouseWheel(默认过程中没有),照抄即可,不论你有多少行,都可以运行。并且不影响右边滚动条的使用。好象没什么人发布过,找到的很多竟然还是使用WindowsAPI来做的,太复杂的,于是特贴一个上来,供大家方便使用。估计其他控件略加修改也可使用。PrivateSubDataGridView1_MouseMove(ByValsenderAsSystem.Object,ByValeAsSystem.Windows.Forms.MouseEventArgs)HandlesDataGridView1.MouseMoveDataGridView1.Focus()EndSubPrivateSubDataGridView1_MouseWheel(ByValsenderAsObject,ByValeAsSystem.Windows.Forms.MouseEventArgs)HandlesDataGridView1.MouseWheelIfMy.Computer.Mouse.WheelExistsThenIfe.Delta>0Then'往上滚10行IfDataGridView1.FirstDisplayedScrollingRowIndex-10<0ThenDataGridView1.FirstDisplayedScrollingRowIndex=0ElseDataGridView1.FirstDisplayedScrollingRowIndex=DataGridView1.FirstDisplayedScrollingRowIndex-10EndIfElse'往下滚10行DataGridView1.FirstDisplayedScrollingRowIndex=DataGridView1.FirstDisplayedScrollingRowIndex+10EndIfElseMsgBox("对不起,鼠标没有滚轮"&MsgBoxStyle.Information)EndIfEndSub
解决方案
解决方案二:
我试试看
解决方案三:
支持滚轮啊,我的就能用,不用写代码