VB6实现界面与功能代码分离

最新推荐文章于 2021-06-16 02:30:42 发布

vansoft

最新推荐文章于 2021-06-16 02:30:42 发布

阅读量5.1k

点赞数

文章标签： vb webbrowser function javascript object html

本文链接：https://blog.csdn.net/vansoft/article/details/3547261

版权

本文介绍了如何在VB6中利用WebBrowser控件并结合olelib.tlb文件，实现界面与功能代码的分离，通过设置IDocHostUIHandler接口和自定义类cTest，使得HTML页面中的JavaScript能够调用VB6的函数，例如点击网页链接触发VB6的HelloWorld函数，弹出对话框。

摘要由CSDN通过智能技术生成

在网页看到过纯理论的文章，在摸索了N久之后，终于用VB6实现。

1、找一个olelib.tlb的文件，网上有下。

2、新建VB工程，加入webbrowser控件，引用上面的文件。

3、FORM1上加上WebBrowser1。切换至代码。

4、窗体代码（PS：代码我一律不解释。）

Option Explicit

Implements IDocHostUIHandler
Dim mshow As Boolean
Dim mICustomDoc As ICustomDoc

Private oTest As cTest

Private Sub Form_Load()

WebBrowser1.Navigate2 App.Path & "/test.html"
End Sub

Private Sub IDocHostUIHandler_EnableModeless(ByVal fEnable As olelib.BOOL)
'IDocHostUIHandler.EnableModeless fEnable
End Sub

Private Function IDocHostUIHandler_FilterDataObject(ByVal pDO As olelib.IDataObject) As olelib.IDataObject
'Set IDocHostUIHandler_FilterDataObject = IDocHostUIHandler.FilterDataObject(pDO)
End Function

Private Function IDocHostUIHandler_GetDropTarget(ByVal pDropTarget As olelib.IDropTa