首先建立一个新工程，在Form1中加入一个Webbrowser控件，然后在Form1中加入以下代码：
Option Explicit
Public Sub Some_Procedure()
MsgBox "你点击了按钮."
End Sub
Private Sub Form_Load()
'下载空页面
WebBrowser1.Navigate2 "about:blank"
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
'建立事件响应类
Dim cfForward As clsForward
'定义在浏览器中显示的HTML代码，其中包含一个按钮btnMyButton
Dim sHTML As String
sHTML = "<P>This is some text."
sHTML = sHTML & "<P>And here is a button."
sHTML = sHTML & "<BUTTON ID=btnMyButton>"
sHTML = sHTML & "Click this button.</BUTTON>"
'将HTML代码写入浏览器
WebBrowser1.Document.body.innerHTML = sHTML
'将事件响应类连接到页面的按钮btnMyButton上
Set cfForward = New clsForward
cfForward.Set_Destination Me, "Some_Procedure"
WebBrowser1.Document.All("btnMyButton").onclick = cfForward
End Sub
向工程中添加一个Class Module，Class Module的Name属性设定为clsForward，在clsForward中添加以下代码：
Option Explicit
Dim oObject As Object
Dim sMethod As String
Dim bInstantiated As Boolean
Private Sub Class_Initialize()
bInstantiated = False
End Sub
Public Sub Set_Destination(oInObject As Object, sInMethod As String)
Set oObject = oInObject
sMethod = sInMethod
bInstantiated = True
End Sub
Public Sub My_Default_Method()
If bInstantiated Then
CallByName oObject, sMethod, VbMethod
End If
End Sub
运行程序，点击Webbrowser中的“Click this button”按钮。程序就会弹出消息框提示“你点击了按钮.”
'URL就是你要的地址了
End Sub本回答被网友采纳
vb6.0中WebBrowser1控件的问题
首先建立一个新工程，在Form1中加入一个Webbrowser控件，然后在Form1中加入以下代码：Option Explicit Public Sub Some_Procedure()MsgBox "你点击了按钮."End Sub Private Sub Form_Load()'下载空页面 WebBrowser1.Navigate2 "about:blank"End Sub Private Sub WebBr...
VB6.0关于WebBrowser的问题,问题解决追加100分
Private Sub Form_Resize()If Me.WindowState = 1 Then Form2.Show End If End Sub Form2关键代码：Private Sub Form_Load()WebBrowser1.Name "www.xxx.com"End Sub
VB6.0中使用webbrowser,如何隐藏滚动条?
不能在form_load中使用。在窗口完全引导之后，在WebBrowser1.Navigate 完成以后。然后用WebBrowser1.Document.body.Scroll = "no" 就可以了。从WebBrowser1.Document.body.Scroll = "no" 的结构你就能看出来，是对WebBrowser1的Document对象设置的scroll属性，在form_load中使用时，webbrowser1还没加载...
VB6.0中使用webbrowser,如何隐藏滚动条?
不能在form_load中使用。在窗口完全引导之后，在WebBrowser1.Navigate 完成以后。然后用WebBrowser1.Document.body.Scroll = "no"就可以了。从WebBrowser1.Document.body.Scroll = "no"的结构你就能看出来，是对WebBrowser1的Document对象设置的scroll属性，在form_load中使用时，webbrowser1还没加载，在...
vb6.0中,如何依次点击webbrowser里网页的多个链接?
加一个定时器，时间自己调，30分钟的话要累加 Private Sub Timer1_Timer()‘WebBrowser1.Navigate "你的网址"aa = 0 While aa = 0 DoEvents Wend Static ii Set vdoc = WebBrowser1.Document.frames(3).Document For i = ii To vdoc.All.length - 1 If vdoc.All(i).tagName = "A" ...
vb6.0的webbrowse的所有属性方法与事件
WebBrowser控件 shdocvw.dll 基本操作：Webbrowser用法：goforward 前进 goback 后退 gohome 回主页 navigate 浏览 stop 停止 gosearch 搜索 属性：LocationURL网页地址 LocationName网页标题 Path所在容器地址 点击新窗口链接时不打开IE Private Sub WebBrowser1_NewWindow2( ppDisp As Object, Cancel As ...
VB6.0获取webbrowser控件网页的表格内容导入数据表中。
'需要添加一个webbrowser控件 和一个按钮 '引用两个库，在菜单的工程-引用里，找到Microsoft HTML object library和 Microsoft activex data object 2.5\/2.6两个库，然后粘贴如下代码 '不明白的百度HI我 Private Sub Command1_Click()WebBrowser1.Navigate "http:\/\/www.szse.cn\/main\/disclosure\/news...
VB6.0网页点击
VB6.0方法：WebBrowser1.Document.getelementsbyname("0MKKey")(1).Click 这里的1自己慢慢试，不能确定是什么 VB.net2017方法：WebBrowser1.Document.Body.All.GetElementsByName("0MKKey")(1).InvokeMember("Click")这里的1自己慢慢试，不能确定是什么 1如何尝试，列：第一次改成0然后执行程序，...
vb6.0如何实现关闭WebBrowser1打开的IE浏览器
Private Declare Function GetTickCount Lib "kernel32" () As Long 'API函数调用 Private Sub Command1_Click() '延时前面加入你自己的代码 delay (5000) '延时5秒 Killprocess ("IEXPLORE.exe") '实现关闭IE，不管有多少窗口都能关闭 End Sub Public Sub delay(t As Long) '延时程序 Dim temp ...
VB 6.0 WebBrowser控件的 ExecWB方法是怎么用的,各个参数的意义是什么...
WebBrowser.ExecWB(1,1) 打开 WebBrowser.ExecWB(2,1) 关闭现在所有的IE窗口，并打开一个新窗口 WebBrowser.ExecWB(4,1) 保存网页 WebBrowser.ExecWB(6,1) 打印 WebBrowser.ExecWB(7,1) 打印预览 WebBrowser.ExecWB(8,1) 打印页面设置 WebBrowser.ExecWB(10,1) 查看页面属性 WebBrowser....
