Datatbl控件能支持鼠标滚轮吗？

feicui999 2009-08-03 01:10:05

Datatbl控件能支持鼠标滚轮吗？

谢谢！

...全文

302 29 打赏收藏转发到动态举报

写回复

用AI写文章

29 条回复

切换为时间正序

请发表友善的回复…

发表回复

feicui999 2009-08-29

打赏
举报

谢谢。找到了。是PAGE UP PAGE DOWN

嗷嗷叫的老马 2009-08-25

打赏
举报

在工程里加入如下代码即可,测试通过.

Private Const WM_MOUSEWHEEL As Long = &H20A

Dim WithEvents objSubClass As cSubclass



Private Sub Form_Load()

    Set objSubClass = New cSubclass

    

    objSubClass.AddWindowMsgs Datatbl1.hWnd     '挂上子类化

End Sub



Private Sub Form_Unload(Cancel As Integer)

    objSubClass.DeleteWindowMsg Datatbl1.hWnd       '取消子类化

    Set objSubClass = Nothing

End Sub



Private Sub objSubClass_MsgCome(ByVal bBefore As Boolean, bHandled As Boolean, lReturn As Long, lng_hWnd As Long, uMsg As Long, wParam As Long, lParam As Long)

    If bBefore Then

        Select Case uMsg

            Case WM_MOUSEWHEEL                      '拦截滚轮消息

                Select Case (wParam / 65536)        '判断是向上滚还是向下滚

                    Case 120

                        SendKeys "{UP}"         '模拟按键

                    Case -120

                        SendKeys "{DOWN}"       '模拟按键

                End Select

        End Select

    End If

End Sub

cSubclass.cls就是我上面给出的代码里的.

嗷嗷叫的老马 2009-08-25

打赏
举报

你先使用键盘操作完成你的要求

在键盘能达到的情况下,再看看你都按了哪些键,模拟之...........

feicui999 2009-08-25

打赏
举报

datatbl 那个事件是向上翻页向下翻页？
我正在找。还没找到。你找到了吗？

feicui999 2009-08-25

打赏
举报

我看明白了点，你的代码，你是模拟上下按键来模拟鼠标滚轮的。
控件中有个滚动至此向上翻页向下翻页就是我想触发的事件。我找不到可。你看的出来吗？谢谢！

feicui999 2009-08-25

打赏
举报

谢谢！谢谢！终于测试成功了。
但我发现你绑定的是数据的每条记录的滚动事件，能不能改成整个屏幕的滚动事件。就是不论当前光标在哪一行，只要一个触发滚动事件，整体屏幕就能向上或向下移动！

马老师不知道我表述的清楚吗！不过现在这样已经很不错了。希望能更实用完美。因为我不懂，所以想的比较简单。给你添麻烦了。

嗷嗷叫的老马 2009-08-25

打赏
举报

Dim WithEvents objSubClass As cSubclass

这一句就是定义这个变量啊

放在公共声明区.

Private Const WM_MOUSEWHEEL As Long = &H20A

这一句是声明常量,也是放在公共声明区.

feicui999 2009-08-25

打赏
举报

Private Sub Form_Load()
Set objSubClass = New cSubclass
objSubClass.AddWindowMsgs Datatbl1.hWnd '挂上子类化
End Sub
怎么提示我？

“变量未定义”

嗷嗷叫的老马 2009-08-25

打赏
举报

我发的所有代码都在同一窗体里

窗体里面有一个你的那个控件.

然后下载我上面链接里的工程,将里面的cSubclass.cls添加到你的工程中,就可以了

feicui999 2009-08-25

打赏
举报

Private Const WM_MOUSEWHEEL As Long = &H20A
Dim WithEvents objSubClass As cSubclass

这段放在那里？谢谢！我怎么放哪都报错啊！

子程序或函数中的属性无效。

嗷嗷叫的老马 2009-08-25

打赏
举报

cSubclass.cls就是我上面给出的代码里的.

笔误!!!抱歉抱歉!!!

是想打"链接"来着!!!汗!!

就在我上面发的那个链接里有........

加入到工程即可.

feicui99 2009-08-25

打赏
举报

具体那段程序放在那？能帮我写清楚吗？
Private Sub Form_Load()
Set objSubClass = New cSubclass
objSubClass.AddWindowMsgs Datatbl1.hWnd '挂上子类化
End Sub

Private Sub Form_Unload(Cancel As Integer)
objSubClass.DeleteWindowMsg Datatbl1.hWnd '取消子类化
Set objSubClass = Nothing
End Sub
这两段是控件窗体程序中的。

Private Const WM_MOUSEWHEEL As Long = &H20A
Dim WithEvents objSubClass As cSubclass

Private Sub objSubClass_MsgCome(ByVal bBefore As Boolean, bHandled As Boolean, lReturn As Long, lng_hWnd As Long, uMsg As Long, wParam As Long, lParam As Long)
If bBefore Then
Select Case uMsg
Case WM_MOUSEWHEEL '拦截滚轮消息
Select Case (wParam / 65536) '判断是向上滚还是向下滚
Case 120
SendKeys "{UP}" '模拟按键
Case -120
SendKeys "{DOWN}" '模拟按键
End Select
End Select
End If
End Sub

都是cSubclass.cls文件中的代码吗？

现在运行后！
编译错误：
对象不是源自动事件

我哪有问题。你外挂控件了吗？

feicui999 2009-08-25