问题描述
我正在使用CEF创建一个示例VB6应用程序,以将浏览器嵌入到该应用程序中。我使用WebKitX控件来实现相同的目的。这是我的示例代码
Private Sub WebKitXCEF31_OnbrowserReady()
WebKitXCEF31.ExecCommandSetFocus = True
WebKitXCEF31.FormatUsingInternalSelectionAPI = True
WebKitXCEF31.DownloadScripts = True
WebKitXCEF31.Open "http://www.google.com/"
End Sub
Private Sub WebKitXCEF31_OnCreate(ByVal Settings As WebKitXCEF3Lib.ISettings,CommandLineswitches As
String)
Settings.cache_path = App.Path + "\MyCache"
Settings.application_cache = App.Path + "\MyAppCache"
Settings.persist_session_cookies = 1
Settings.persist_user_preferences = 1
AddLog "CommandLineswitches=" + CommandLineswitches
End Sub
Private Sub WebKitXCEF31_OnLoadEnd()
WebKitXCEF31.Preview
WebKitXCEF31.Events = DOM_EVENT_SELECTSTART Or _
DOM_EVENT_DOMSUBTREEMODIFIED Or _
DOM_EVENT_DOMFOCUSIN Or _
DOM_EVENT_CLICK Or _
DOM_EVENT_EDITABLE_ELEMENT_CHANGED
End Sub
Form_Load
方法为空。当我运行应用程序时,在OnCreate存根中引发错误,并显示消息“ 编译错误:未定义子函数或功能”。在实现之前,有什么地方需要定义存根/方法?我是VB6的新手,这是我编写的第一个代码。此代码在WebKitX上可用。链接:https://www.webkitx.com/webkitx.html
解决方法
将WebKitX添加到VB6项目的分步示例如下: https://www.webkitx.com/doc/light/Getting%20Started%20with%20Visual%20Basic%206.0.html