很多朋友对于vb打开谷歌浏览器控件和vbs打开谷歌浏览器不太懂，今天就由小编来为大家分享，希望可以帮助到大家，下面一起来看看吧！

本文目录

1. 在VB中~如何调用windows自带的图片浏览器打开指定的文件呀~
2. VB文件夹浏览器控件有吗
3. VB如何获得浏览器地址栏全部内容。
4. 怎么用VB打开网页
5. 怎么用VB制作一个浏览器啊

一、在VB中~如何调用windows自带的图片浏览器打开指定的文件呀~

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

strFloder="H:\accessmdb1\图片库\联合一车间\四蒸馏\"

ShellExecute Me.hwnd,"open","6377.jpg", 0, strFloder, SW_SHOW

----------------------------------------

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

查找与指定文件关联在一起的程序的文件名

Long，非零表示成功，零表示失败。会设置GetLastError

hwnd Long，指定一个窗口的句柄，有时候，windows程序有必要在创建自己的主窗口前显示一个消息框

lpOperation String，指定字串“open”来打开lpFlie文档，或指定“Print”来打印它

lpFile String，想用关联程序打印或打开一个程序名或文件名

lpParameters String，如lpszFlie是可执行文件，则这个字串包含传递给执行程序的参数

lpDirectory String，想使用的完整路径

nShowCmd Long，定义了如何显示启动程序的常数值。参考ShowWindow函数的nCmdShow参数

二、VB文件夹浏览器控件有吗

Visual Basic 6.0WebBrowser控件（也称作 Microsoft Internet控件或 Shdocvw.dll）是一种 ActiveX控件，使用它可以在应用程序内承载 Internet Explorer。

Visual Basic 2008WebBrowser控件为WebBrowserActiveX控件提供了托管包装。这样，便可以在 Windows窗体客户端应用程序中显示网页。使用WebBrowser控件，可以复制应用程序中的 Internet Explorer Web浏览功能，还可以禁用默认的 Internet Explorer功能，并将该控件用作简单的 HTML文档查看器。此外，可以使用该控件将基于 DHTML的用户界面元素添加到窗体中，还可以隐瞒这些元素在WebBrowser控件中承载的事实。通过这种方法，可以将 Web控件和 Windows窗体控件无缝地整合到一个应用程序中。

Visual Basic 6.0 Microsoft Internet控件由两个组件组成：WebBrowser控件和Internet Explorer对象，使用它们可以通过 OLE自动化来控制 Internet Explorer的实例。

Visual Basic 2008中没有Internet Explorer对象的等效项，与其相关的属性、方法和事件也不再存在。不再支持 OLE自动化；使用类似 VBScript的脚本语言可以控制 Internet Explorer的外部实例。

在 Visual Basic 6.0中，Document属性返回包含 HTML文档名称的字符串；在 Visual Basic 2008中，该属性返回 HTML文档本身。

Visual Basic 6.0Refresh2方法带有一个用于指定刷新级别的参数；Visual Basic 2008Refresh方法带有一个可用于指定刷新级别的可选参数。

WebBrowser控件的属性、方法和事件的等效项

三、VB如何获得浏览器地址栏全部内容。

窗体中添加一个List控件一个按钮

EnumWindows AddressOf enumproc, 0

Public Declare Function EnumWindows Lib"user32"(ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long

''枚举窗口列表中的所有父窗口（顶级和被所有窗口）

Public Declare Function GetWindowText Lib"user32" Alias"GetWindowTextA"(ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long'取得指定窗口的司法题

Public Declare Function GetClassName Lib"user32" Alias"GetClassNameA"(ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long'为指定的窗口取得类名

Public Declare Function GetWindow Lib"user32"(ByVal hwnd As Long, ByVal wCmd As Long) As Long'取得窗口句柄

Declare Function SendMessage Lib"user32" Alias"SendMessageA"(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long'发送消息

Public Function enumproc(ByVal app_hwnd As Long, ByVal lParam As Long) As Boolean

length= GetWindowText(app_hwnd, buf, Len(buf))

If InStr(title,"Internet Explorer") Then

Public Function getziwin(window_hwnd As Long) As String

buflen= GetClassName(window_hwnd, buf, buflen)

buf= Left$(buf, buflen)'取得子窗口的类名

If Right(buf, 4)="Edit" Then'判断是否为地址栏子窗口

getziwin= getwintext(window_hwnd)

child_hwnd= GetWindow(window_hwnd, gw_child)'取得第 1个子窗口的句柄

Do While child_hwnd<> 0'如果有子窗口

num_children= num_children+ 1

ReDim Preserve children(1 To num_children)

children(num_children)= child_hwnd

child_hwnd= GetWindow(child_hwnd, gw_hwndnext)'取得下一个兄弟窗口的句柄

Public Function getwintext(window_hwnd As Long) As String'取得子窗口的值

'通过 sendmessage发送 wm_gettext取得 ie地址栏的值

If window_hwnd= 0 Then Exit Function

txtlen= SendMessage(window_hwnd, wm_gettextlength, 0, 0)

If txtlen= 0 Then Exit Function

txtlen= SendMessage(window_hwnd, wm_gettext, txtlen, ByVal txt)

getwintext= Left$(txt, txtlen)

Form1.List1.AddItem getwintext

四、怎么用VB打开网页

方法1)可用Shell函数执行一个可执行文件explorer.exe来打开网页。

执行一个可执行文件，返回一个 Variant

(Double)，如果成功的话，代表这个程序的任务 ID，若不成功，则会返回 0。

Shell"explorer.exe "

方法2)使用WebBrowser直接建立浏览器。

在 Visual Basic里还可以向工程中增加其它类型的 Internet功能，包括：

Visual Basic应用程序的 Internet扩展。可以使用一些特殊控件，它们提供了和Internet有关的功能。这些控件包括

Internet Transfer控件、 WebBrowser控件，以及 WinSock控件。

WebBrowser1.Navigate""

五、怎么用VB制作一个浏览器啊

这里是简单的代码，你要做比较完整的浏览器自己可以添加些功能

Dim int_i As Integer'当前页面在历史中的个数

Dim intSum As Integer'总的浏览过的页面数

Me.WebBrowser1.Navigate(Me.Text1.Text)'这里连接的网站地址是文本框输入的地址,要专门访问你的网页将这一句放入你的窗体装载事件里面,并先设置me.text1.text="这里填写要专门访问的网页"

Me.WebBrowser1.Width= Me.ScaleWidth- 200

Me.WebBrowser1.Height= Me.ScaleHeight- 600

Private Sub Text1_KeyPress(KeyAscii As Integer)

Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)

Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)

END，本文到此结束，如果可以帮助到大家，还望关注本站哦！