-
本版专家分：1104结帖率 93.33% -
请bcrun大哥帮忙看看
DDD.html
<html>
<head>
<script language="javascript">
function aa()
{
alert('An onMouseOver event');return false
//<div onmousemove="javascript:aa()">asdfasdfasdfasdf</div>
}
</script>
</head>
<body>
<div id='abc1'>asdfasdfasdfwerasdfqwer</div>
<a href="javascript:aa()">This is a link</a>
</body>
</html>
WebControl.ctl
Option Explicit
Private WithEvents oWebKit As cWebKit
Public Property Get Browser() As cWebKit
Set Browser = oWebKit
End Property
Private Sub oWebKit_JSEventCallBack(EventName As String, JSONEventObj As vbRichClient5.cCollection, JSONResult As vbRichClient5.cCollection)
MsgBox EventName & vbTab & ",JSEventCallBack"
End Sub
Private Sub oWebKit_NewWindowRequest(NewWebKitInstance As vbRichClient5.cWebKit, ByVal OpenAsTab As Boolean)
Set oWebKit = NewWebKitInstance
OpenAsTab = True
End Sub
Private Sub UserControl_Initialize()
Set oWebKit = New_c.WebKit(True, "D:\Work\vbRC5BaseDlls")
oWebKit.InitWebKitDll "WebKit.dll"
oWebKit.InitializeView UserControl.hWnd
End Sub
Private Sub UserControl_Resize()
On Error Resume Next
UserControl.ScaleMode = vbPixels
oWebKit.Move 0, 0, UserControl.ScaleWidth, UserControl.ScaleHeight
End Sub
Private Sub UserControl_Terminate()
Set oWebKit = Nothing
End Sub
frmMain.frm
Option Explicit
Private Sub Command_Click()
wcMain.Browser.Navigate2 App.Path & "\DDD.html"
Dim a As IDOMDocument
'在執行這一句的時候老報錯是怎麼回事呀?
Set a = wcMain.Browser.GetElementByID("abc1")
End Sub
Private Sub Form_Resize()
On Error Resume Next
wcMain.Move wcMain.Left, wcMain.Top, Me.Width - 500, Me.Height - wcMain.Top - 600
End Sub
Private Sub Form_Unload(Cancel As Integer)
New_c.CleanupRichClientDll
End Sub
-
本版专家分：12727
-
- 签到新秀 累计签到获取，不积跬步，无以至千里，继续坚持！
-
-
黄花
2018年7月 硬件/嵌入开发大版内专家分月排行榜第二
2017年6月 VB大版内专家分月排行榜第二
-
-
关注，帮顶。
-
本版专家分：29382
-
- 技术圈认证 用户完成年度认证，即可获得
-
- 签到达人 累计签到获取，不积跬步，无以至千里，继续坚持！
-
- GitHub 绑定GitHub第三方账户获取
-
-
黄花
2011年10月 VB大版内专家分月排行榜第二
2011年3月 VB大版内专家分月排行榜第二
2011年2月 VB大版内专家分月排行榜第二
-
-
Set a = wcMain.Browser.GetElementByID("abc1") 改成
Set a = wcMain.Browser.Document.GetElementByID("abc1")
试试看
-
本版专家分：1104
-
wcMain.Browser.Navigate2 App.Path & "\DDD.html"
Dim a As IDOMDocument
Dim b As IDOMElement
Dim c As IDOMElement
'这样可以
Set a = wcMain.Browser.Document
Set b = a.documentElement()
‘这一句就不行
Set c = a.GetElementByID("abc1")
-
本版专家分：1104
-
Dim d As cCollection
Set d = wcMain.Browser.GetElementsByTagName("div")
’这样可以哦
-
本版专家分：1104
-
但是如果我直接这样写又行，不知道为什么会这样：
wcMain.Browser.AddScript "function aa(){alert('An onMouseOver event');return false}"
DoEvents
wcMain.Browser.LoadHTMLString "<body><div id='abc1'>你好,我愛死你了</div><div id='abc2' onClick=""javascript:aa()"">我不好</div></body>"
Dim b As IDOMNode
Set b = wcMain.Browser.GetElementByID("abc1")
'取出id文本
MsgBox b.textContent
wcMain.Browser.NodeReplaceInnerHTML b, "他也好,我愛死你了"
'給abc1增加一個click事件
wcMain.Browser.RegisterEventCallbackOn b, "onclick", "DEF"
-
本版专家分：23703
-
-
微软MVP
2011年10月 荣获微软MVP称号
2010年10月 荣获微软MVP称号
-
- 红花 2010年3月 VB大版内专家分月排行榜第一
-
-
蓝花
2014年5月 VB大版内专家分月排行榜第三
2010年4月 VB大版内专家分月排行榜第三
-
-
没时间建工程实际测试，不过看楼主给的代码不太对劲。浏览器控件的Navigate2方法不一般是异步执行的吗，如IE的那个则一般是在DocumentComplete这样的事件过程里，才访问他的DOM元素的吧。
至于你后面说的用这些代码调用正常：
AddScript，LoadHTMLString
这也好理解，本来这样直接添加的，就是同步的，也即按顺序执行的嘛。
-
本版专家分：1104
-
谢谢你，果然是异步执行的问题，这个问题是可以了，但是还有一点不明白的，请大哥指点一下，请看如下代码：
Dim a As IDOMElement
Set a = wcMain.Browser.GetElementByID("btnAdd")
'用 AddScript 加入jQuery庫以后
'這一句可以
a.setAttribute "onclick", "javascript: window.location=""http://192.168.91.24/htdocs/a.gif"";"
'這一句不行,也就是不能讀本地的圖片資源,不知道為什麼?
a.setAttribute "onclick", "javascript: window.location=""file:///c:/a.gif"";"
-
本版专家分：23703
-
-
微软MVP
2011年10月 荣获微软MVP称号
2010年10月 荣获微软MVP称号
-
- 红花 2010年3月 VB大版内专家分月排行榜第一
-
-
蓝花
2014年5月 VB大版内专家分月排行榜第三
2010年4月 VB大版内专家分月排行榜第三
-
-
这个大概是跨域安全问题，你引用的资源最好是在页面的子目录下。也许Webkit核心的控件有某个方法可以取消掉这些跨域安全检查，不过那就要问熟悉这控件的人了。
-
本版专家分：0 -
chrl您好，本人是个业余的VB爱好者，在CSDN论坛上看到您最近正在研究vbrichclient5,webkit,本人目前也准备研究这个东西，但本人的技术实在是太业余了,一点头绪都没有，想请您看能不能发一些关于这方面的源码供我参考，谢谢了。联系邮箱：xgpgood@qq.com
