本文介绍了一个在MSFlexGrid中实现单击鼠标左键选中整行而非多行的技巧，通过调用API函数SendMessage模拟鼠标左键弹起来避免多行被选中。同时提及了此方法也可用于解决鼠标右键选中问题。
在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
扫一扫
5793
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
