1

我是 vb 6.0 的新手。

我必须在 vb 的 Web 浏览器控件中打开 Internet Explorer 以外的任何浏览器（默认打开 IE）

我尝试了很多代码，现在我可以像打开新窗口一样打开浏览器（通过使用 process.start 等）

有没有办法在现有的vb控件中打开它？

4

3 回答 3

2

Web 浏览器控件是 Internet Explorer。因此，除非 chrome 等人发布他们没有的浏览器的 ActiveX 控件，否则这是不可能的。

有一种解决方法是您启动 chrome，然后将其挂钩 CreateWindowsEx 并将您的应用程序窗口作为所有者。然后将其调整到您可以使用SetWindowPos. 这提供了以下功能

  • 在 Z 顺序中，拥有的窗口始终位于其所有者之上。

  • 当所有者被销毁时，系统会自动销毁拥有的窗口。

  • 拥有的窗口在其所有者最小化时被隐藏。

于 2017-01-01T21:30:32.180 回答
0 
Private Sub Command1_Click()

  sAppName = "Google Chorme"
  sAppPath = "C:\Users\082043\AppData\Local\Google\Chrome\Application\chrome.exe"


    Shell sAppPath, vbMinimizedFocus

End Sub
于 2013-03-04T12:31:52.423 回答
0

您可以尝试以下代码来调用默认浏览器（适用于 VB 6）。

将它放在最顶部，但在“选项”声明的下方。

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

将其放置在放置“子”的位置这将调用默认浏览器以访问 google.com。

Private Sub cmdBUTTON_Click()

ShellExecute 0&, vbNullString, "http://www.google.com", vbNullString, vbNullString, 10

End Sub

您可以在此处找到有关变量的信息。

于 2017-01-21T06:25:02.550 回答