MSHFlexGrid控件里怎么可以让鼠标滑动

[liuqide]

MSHFlexGrid控件支持鼠标滚动操作要怎么实现

[孤独剑_LPZ]

参考这一帖,http://topic.csdn.net/u/20100515/14/2de75573-3aa2-4424-a7f1-e6d2cf007e51.html?27774
将datagrid1替换为MSHFlexGrid1即可

[crackdung]

用这个控件，号称世界最快的表格控件。



网站



my blog
http://ufo-crackerx.blog.163.com/

[ahljxwy]

建议用vsflexgrid,可以绑定数据源，也可以手工将数据写到这个控件上面，功能很强大的，没有必要用MSHFlexGrid再写很多代码来补充，将精力集中到业务处理上会更好点的

[panyong]

打印方便吗？有没有打印预览和打印设置和保存打印设置

[jhjinpei]

Private Sub MSHFlexGrid1_GotFocus()
If MSHFlexGrid1.RowHeight(1) * MSHFlexGrid1.Rows < MSHFlexGrid1.Height Then Exit Sub
Oldwinproc = GetWindowLong(Me.hwnd, GWL_WNDPROC)
SetWindowLong Me.hwnd, GWL_WNDPROC, AddressOf FlexScroll '滑轮滚动显示
End Sub

Private Sub MSHFlexGrid1_LostFocus()
SetWindowLong Me.hwnd, GWL_WNDPROC, Oldwinproc '滑轮滚动显示
End Sub


Public Function FlexScroll(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
'支持滚轮的滚动
Select Case wMsg
Case WM_MOUSEWHEEL
Select Case wParam
Case -7864320 '向下滚
SendKeys "{PGDN}"
Case 7864320 '向上滚
SendKeys "{PGUP}"
End Select
End Select
FlexScroll = CallWindowProc(Oldwinproc, hwnd, wMsg, wParam, lParam)
End Function