在MSFlexGrid上拖动鼠标，即使SelectionMode=flexSelectionByRow，也会高亮显示多行，前面还傻傻的重绘MSFlexGrid,写了一大堆去设置背景色，前景色。后来想到，在响应鼠标左键点击(MouseDown)的时候，借用API函数SendMessage马上模拟鼠标左键弹起，问题就解决了。
按照这个思路，鼠标点击右键使选中MsFlexgrid的问题也可以简单实现了。
1
Private
Declare
Function SendMessage()
Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
2
Const WM_LBUTTONDOWN = &H201
3Const WM_LBUTTONUP = &H202
4
5
Private Sub MSFlexGrid1_MouseDown()Sub MSFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
6 If Button = vbLeftButton Then
7 Call SendMessage(MSFlexGrid1.hwnd, WM_LBUTTONUP, 0, 0)
8 End If
9
End Sub
Private
Declare
Function SendMessage()
Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long2
Const WM_LBUTTONDOWN = &H2013
Const WM_LBUTTONUP = &H2024
5
Private Sub MSFlexGrid1_MouseDown()Sub MSFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)6
If Button = vbLeftButton Then7
Call SendMessage(MSFlexGrid1.hwnd, WM_LBUTTONUP, 0, 0)8
End If9
End Sub
扫一扫
143
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
