Question

我有一个带有webbrowser控件和Button（查找按钮）的表单下面是查找按钮的代码。 Web浏览器控件包含一些文本，单击“查找”按钮时，“查找”对话框将打开。我们使用SendKeys“^ f”打开查找对话框。

但是当我使用“查找”按钮（Alt + N）的快捷键时，查找对话框无法打开。

有人可以帮忙吗？

Private Sub cmdFind_Click()
  On Error GoTo ErrorHandler

  WebBrowser1.SetFocus
  WebBrowser1.Refresh2
  SendKeys "^f"

  Exit Sub
ErrorHandler:

End Sub

Answer 1

我不知道发生了什么，但我怀疑按键是在干扰SendKeys。而不是担心如何使用ExecWB方法。

Private Sub cmdFind_Click()
    On Error GoTo ErrorHandler

    WebBrowser1.SetFocus
    WebBrowser1.ExecWB OLECMDID_FIND, OLECMDEXECOPT_DODEFAULT

    Exit Sub
ErrorHandler:

End Sub

SendKeys“^ f”不适用于另一个快捷键

1 个答案: