MSHFlexGrid
MSHFlexGrid中，我想用鼠标右键单击某一行时，和用鼠标左键单击一样，可以激活一行，改变那行的颜色，……谢谢 问题点数：0、回复次数：2Top
1 楼kinlin（小林）回复于 2003-10-01 08:49:32 得分 0
Private Sub Form_Load()
Me.MSHFlexGrid1.Rows = 10
Me.MSHFlexGrid1.Cols = 10
Me.MSHFlexGrid1.FocusRect = flexFocusNone
Me.MSHFlexGrid1.SelectionMode = flexSelectionByRow
End Sub
Private Sub MSHFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 2 Then
Me.MSHFlexGrid1.Row = Me.MSHFlexGrid1.MouseRow
Me.MSHFlexGrid1.ColSel = 0
Me.MSHFlexGrid1.ColSel = Me.MSHFlexGrid1.Cols - 1
End If
End Sub
Top
2 楼haal（比耳该次）回复于 2003-10-01 11:26:07 得分 0
Private Sub MSHFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 2 Then
MSHFlexGrid1.row=MSHFlexGrid1.mouserow
MSHFlexGrid1.col=MSHFlexGrid1.mousecol
MSHFlexGrid1.CellBackColor = &H8080&
endif
end subTop
