如何在mshflexgrid中获得滚轮支持？

521violet 2003-10-20 04:39:33

显示大量数据有滚动条时，如何获得鼠标滚轮支持啊？
（要求给出详细的代码和说明）

...全文

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

写回复

1 条回复

切换为时间正序

请发表友善的回复…

发表回复

abc10 2003-10-20

打赏
举报

回复

http://tips.9hao.com/ilike/vb/vb213.html

如果程序里面有多个窗体，每个窗体包含多个MSFlexGrid控件，使用这种办法比单独为每个网格控件编写代码方便一些用文本替换把“MSFlexGrid”替换为“MSHFlexGrid”就可以支持MSHFlexGrid控件了

摘要:VB源码,控件组件,MSHFlexGrid,鼠标滚轮设置MSHFlexGrid控件支持鼠标滚轮，VB为MSHFlexGrid控件增加鼠标滚轮功能，与添加Datagrid控件鼠标滚动的方法是相似的，主要是基于代码中所定义的鼠标滚动API文件，你可参照本例的源码引入这个API定义，那么实现MSHFlexGrid的鼠标滚动滚动数据是轻易而举的。运行环境：Windows/VB6

使用VB。net实现滚轮事件。传统事件存在 Address......之类的错误。逼着经过改良。实现了无缝隙升级。

支持鼠标滚轮的控件（非常实用） VB代码，完全源代码，也是下载的，所以免积分了，大家支持吧

Private Sub Command1_Click() On Error Resume Next Dim wApp As New Application Dim wDoc As Document Dim wNewTable As Table Set wDoc = wApp.Documents.Add Selection.Range Set wNewTable = wDoc.Tables.Add(wDoc.Range, MSHFlexGrid1.Rows, MSHFlexGrid1.Cols) For i = 0 To MSHFlexGrid1.Rows - 1 For j = 0 To MSHFlexGrid1.Cols - 1 wNewTable.Cell(i + 1, j + 1).Range.Text = MSHFlexGrid1.TextMatrix(i, j) Next Next wApp.Visible = True End Sub

1,451

社区成员

41,355

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章