'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)End Sub
'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)End Sub