7,762
社区成员
发帖
与我相关
我的任务
分享鼠标右击时，如何用程序让模拟鼠标左击？
一个显示若干条记录的表格，用鼠标左击选中某条记录，然后鼠标右击，弹出菜单，执行关于这条记录的某些操作。
现在问题是，我想省掉鼠标左击这一步，在鼠标右击时，用程序让这条记录被选中，再弹出菜单。有什么方法么？
现在问题是，我想省掉鼠标左击这一步，在鼠标右击时，用程序让这条记录被选中，再弹出菜单。有什么方法么？
...全文
请发表友善的回复…
发表回复
x1234521 2005-09-19
- 打赏
- 举报
楼上的正解，简单实用和我的差不多
If Button = 2 And Shift = 0 Then
flex1.Select flex1.MouseRow, flex1.MouseCol
PopupMenu Me.menu1
End If
If Button = 2 And Shift = 0 Then
flex1.Select flex1.MouseRow, flex1.MouseCol
PopupMenu Me.menu1
End If
phommy 2005-09-19
- 打赏
- 举报
Private Sub MSFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
MSFlexGrid1.row=MSFlexgrid1.MouseRow '选中先
If Button = 2 Then PopupMenu yourmenu
End Sub
MSFlexGrid1.row=MSFlexgrid1.MouseRow '选中先
If Button = 2 Then PopupMenu yourmenu
End Sub
huiexch 2005-09-19
- 打赏
- 举报
能给点详细的信息么？
killl 2005-09-16
- 打赏
- 举报
sendmessage
province_ 2005-09-15
- 打赏
- 举报
是否也可以这么做，在消息处理程序里检测到右键后ＳＥＮＤＭＥＳＳＡＧＥ一个ＬＢＵＴＴＯＮＤＯＷＮ，待返回后把右键消息交到原来的消息程序里。这样对控件而言就是先处理了左键，然后是右键，你试试看？
northwolves 2005-09-15
- 打赏
- 举报
慢死了
northwolves 2005-09-15
- 打赏
- 举报
可以用"障眼法"
Private Sub MSFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 2 Then
For j = 1 To MSFlexGrid1.Rows - 1
For i = 1 To MSFlexGrid1.Cols - 1
MSFlexGrid1.Row = j
MSFlexGrid1.Col = i
MSFlexGrid1.CellBackColor = IIf(j = MSFlexGrid1.MouseRow, vbBlue, vbWhite)
Next
Next
PopupMenu yourmenu
End If
End Sub
Private Sub MSFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 2 Then
For j = 1 To MSFlexGrid1.Rows - 1
For i = 1 To MSFlexGrid1.Cols - 1
MSFlexGrid1.Row = j
MSFlexGrid1.Col = i
MSFlexGrid1.CellBackColor = IIf(j = MSFlexGrid1.MouseRow, vbBlue, vbWhite)
Next
Next
PopupMenu yourmenu
End If
End Sub
