问题背景:升级项目。旧的滚动一下是一行,新的滚动一下是三行。
用滚动轮滚动grid的数据行
简单的实现方案:修改系统的鼠标设置,设滚动轮为上下滚一行。
(但旧版里系统也是设的三行,却可以滚一行)
试了这个方法去实现:
Private intRowScroll As Integer = 0
Private blnWheel As Boolean = False
Private Sub c1_ScrolTest(ByVal sender As Object, ByVal e As CancelEventArgs) Handles c1.Scroll
If blnWheel Then
e.Cancel = True
blnWheel = False
c1.ScrollGrid(0, intRowScroll)
End If
End Sub
Private Sub c1_MouseWheel(ByVal sender As Object, ByVal e As MouseEventArgs) Handles c1.MouseWheel
intRowScroll = -e.Delta / 120
blnWheel = True
End Sub
------------------------------------------------------------------------------------------
不知道还有什么别的方式吗 |
|