'msflexgrid1从第0列开始,向右数到第3列,鼠标单击任意单元,然后按F9测试
Private Sub MSFlexGrid1_KeyDown(KeyCode As Integer, Shift As Integer)
If MSFlexGrid1.Col = 3 And KeyCode = 120 Then
MsgBox "xxx"
End If
End Sub
当然你也可以用:
Private Sub MSFlexGrid1_KeyUp(KeyCode As Integer, Shift As Integer)