收到编译错误:VB6中的子或函数未定义错误

问题描述

我正在使用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