在VB中在使用DataGrid控件浏览数据时如何能让鼠标的滑轮有效？

[ourbone]

我在浏览DataGrid中发记录时，有些窗口滚动鼠标滑轮时能自动翻页，但是有些窗口不能，即滚动时无效。怎样实现让所有的窗口均能使用鼠标的滚轮来浏览记录？

[aha99]

好像需要子类化窗体，在消息处理中加上滚轮的消息处理，然后在里面根据焦点所在做出处理。至于滚轮的消息，我也不太清楚。帮你up

[hdvcd]

关注中

[rexyudl]

首先要安装带滚轮的鼠标的驱动！
例如：罗技的鼠标驱动！
可以在VB代码窗体下使用滚轮！

[MSSQL]

必须自己编写获取滚动的消息并处理了。
以前有一个帖子。
你自己翻一下了。

[hemeijun81]

期待中

[dustwoo]

up

[高高兴兴的晶晶]

以前有过帖子的，所搜一下吧 up

[da18a]

'我自己有个GUWheel.Ocx,如果需要联系[e-mail]

Private Sub Command1_Click()
Dim CN As New ADODB.Connection '定义数据库的连接
Dim Rs As New ADODB.Recordset
CN.ConnectionString = "Provider=sqloledb;Data Source=localhost;Initial Catalog=Music;User Id=sa;Password=1;"

CN.Open
Rs.CursorLocation = adUseClient
Rs.Open "select * from Music_Music", CN, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = Rs
End Sub

Private Sub DataGrid1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
Me.PopupMenu hfhfg
End If
End Sub

Private Sub DataGrid1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
GUWheel1.WheelConnect DataGrid1.hWnd
End Sub

Private Sub GUWheel1_WheelScroll(ByVal ConnectedTo As Long, ByVal Direction As Long, ByVal Shift As GUOcx.KeyDown)
If Shift <> 4 Then
If Direction = 1 Then
DataGrid1.SetFocus
SendKeys "{Up}"
Else
DataGrid1.SetFocus
SendKeys "{Down}"
End If
Else
If Direction = 1 Then
DataGrid1.SetFocus
SendKeys "{PgUp}"
Else
DataGrid1.SetFocus
SendKeys "{PgDn}"
End If
End If
End Sub