我想让我的程序的滚动条能随鼠标的3D滚动.
我该如何做?

版主,能不能不要这么小气啊?
多一点点说明啦.
一般来问的都是因为不知道所以才问的啦.
这个hook大概是什么用法的请说明一下下好吗?
谢谢,拜托了!

晕
噢
我找找吧.

谢谢版主,可是我运行这个的时候它立马就退出了,不知道为什么.
不提示错误,没有任何的提示,只是退出.
但我只要把
Public Sub Hook(ByVal hWnd As Long)
lpPrevWndProc = SetWindowLong(hWnd, GWL_WNDPROC, _
AddressOf WindowProc)
'获取"控制面板"中的滚动行数值
Call SystemParametersInfo(SPI_GETWHEELSCROLLLINES, _
0, WHEEL_SCROLL_LINES, 0)
If WHEEL_SCROLL_LINES > Form1.grdDataGrid.VisibleRows Then
WHEEL_SCROLL_LINES = Form1.grdDataGrid.VisibleRows
End If
End Sub
标出的那一句给注解掉,它就不会退出,当然,我想要的功能也没了,不知道是什么原因.

版主,这个程序我什么搞它就是不能运行,不知道为什么,我真的好笨
有没有现存的可运行的源程序啊?
这个程序还要有数据库的,搞得我晕呼呼的了.

就是看不懂啦
所以想借助运行来看懂它啦

Set grdDataGrid.DataSource = _
datPrimaryRS.Recordset("ChildCMD").UnderlyingValue
现在比如这一句,我认为它只是设定grdDataGrid的显示内容,因为我的数据库与它对应不上,所以我先把这一句给注解了.我把我的grdDataGrid.DataSource 绑定了datPrimaryRS(就是那个数据源了啦),而datPrimaryRS绑定了一张表.
然后,它就没有任何反应了.
因此我想我可能理解错误了,它不止这点功能吧?
其它我都没动了,我把我的VB6重装过了,前面说的退出现象不发生了.但现在是照我这样改后运行没结果了.

真的不好意思,还有个HOOK窗体的?!
看来我不懂的东东太多了啊

说实话,我对hook是一头的雾水啊.

晕,我试过了,那个程序根本就没获取MOUSE的信息.