events - VB6 错误事件在 F5 上触发

Question

我在用户控件上有一个网格，它在用户文档 vbd 页面上，在 ActiveX exe 应用程序中 这是我在网格上按 F5 时得到的事件

   Private Sub mnuRightClickRefresh_Click()
       'Call ...
   End Sub

当我在网格上按 F3 时，我得到了正确的事件

   Private Sub grdObjects_KeyUp(KeyCode As Integer, Shift As Integer)
       If KeyCode = 116 Then
        '...
       End If
   End Sub

有任何想法吗？

Answer 1

您似乎正在尝试在两个不同的函数中处理 _KeyUp 函数。当您按下 F5 时，请确保没有任何控件具有任何焦点（从而使表单本身成为焦点控件），然后您可以通过以下方式处理事件：

     Private Sub grdObjects_KeyUp(KeyCode As Integer, Shift As Integer)
         Select Case KeyCode
              Case 116
                'Do Whatever F3 would want to do
              Case 118
                 'Do F5 Stuff
              Case 119
                  'Any other stuff for F6
          End Select
   End Sub

让我知道这是否是你想要的。