1、VBRichClient 的引用 是的，你完全可以不对它进行引用！就可以使用它的功能！参考【使用 DirectCOM 库】 当然你也可以按熟悉的常规方法，通过注册引用该库 2、VBRichClient 的分发 如果采用引用方式使用，则需要将 vbRichClient5.dll 和 vb_cairo_sqlite.dll 一起复制到程序目录，并 对 vbRichClient5.dll 进行注册。 如果采用免注册方法使用，则还需要将 DirectCOM.dll 一并复制到程序目录或System目录。 3、VBRichClient 的使用 VBRichClient 是个相当庞大的库，需要花一些时间熟悉里面的类，最简单的办法就是使用其中的 cConstructor 类直接“生产”其它的对象。使用 DirectCOM 免注册使用，则必须使用 cConstructor 访问其他类。 dim rcConstructor as object dim rcMemDB as object set rcConstructor = DirectCom_Create("vbRichClient5.dll", "cConstructor") set rcMemDB = rcConstructor.MemDB() rcMemDB.xxx
4、cConstructor 成员列表
● ArrayList 简介：创建数组列表对象，支持动态添加、移除，也可以当队列或者栈来用，支持排序 原型：Function ArrayList(vType As VbVarType, ParamArray P() As Variant) As cArrayList ● AudioCaptureClient 简介：创建捕捉音频对象 原型：Function AudioCaptureClient() As cAudioCaptureClient
● AudioRenderClient 简介：创建播放音频对象 原型：Function AudioRenderClient() As cAudioRenderClient ● Cairo 简介：创建 Cairo 2D 绘图对象，支持许多高级绘图函数，比如反锯齿，透明，文字，变形…… 原型：Function Cairo() As cCairo ● cdeclCall 简介：以CDECLCALL约定调用函数指针 原型：Function cdeclCall(retType As enmRetType, pFunc As Long, ParamArray P() As Variant)
● cdeclCallDirect 简介：以CDECLCALL约定调用函数指针，与cdeclCall区别不明 原型：Function cdeclCallDirect(retType As enmRetType, pFunc As Long, pArgs As Long, ArgsByteCount As Long) ● CleanupRichClientDll 简介：清空VBRichClient的临时文件？未验证 原型：Sub CleanupRichClientDll()
● ClipBoard 简介：创建剪切板对象，比VB自带的对象好用 原型：Function ClipBoard() As cUniClipBoard
● CodePageMapping 简介：创建编码和代码页映射对象 原型：Function CodePageMapping() As cCodePageMapping
● Collection 简介：创建集合对象，该对象比VB自带的Collection和Scripting.Dictionary有更多的功能 原型：Function Collection([CompatibleToVBCollection As Boolean = True], [StringCompareMode As StringCompareModeEnum = 1], [UniqueKeys As Boolean = True], [Content]) As cCollection ● ControlPoints 简介：创建控制点对象，用来在2D绘图中控制形状或曲线的参数 原型：Function ControlPoints() As cControlPoints ● Converter 简介：创建转换数据库对象 原型：Function Converter([CaseInSensitiveTextColumns_ConformToJet As Boolean]) As cConverter ● CreateInstanceUnk 简介：通过注册表中的 ClsID 和 IID 直接创建COM对象 原型：Function CreateInstanceUnk(ClsID As String, IID As String) As IUnknown ● Crypt 简介：创建加密对象，该对象支持各种常见加密解密算法和压缩算法 原型：Function Crypt() As cCrypt ● DataObjectFiles 简介：创建数据对象文件 原型：Function DataObjectFiles() As cDataObjectFiles ● DataSource 简介：创建数据源对象 原型：Function DataSource() As cDataSource
● DC 简介：创建设备上下文对象，GDI绘图用 原型：Function DC([DIB As cDIB], [DDB As cDDB]) As cDC
● DDB 简介：创建设备相关位图对象，GDI绘图用 原型：Function DDB([dx As Long], [dy As Long], [Picture As StdPicture], [PictureBytes]) As cDDB
● DIB 简介：创建设备无关位图对象，GDI绘图用 原型：Function DIB([dx As Long], [dy As Long], [Picture As StdPicture], [PictureBytes], [IconBytes], [UseIconDefaultSize As Boolean], [DesiredIconSize As Long]) As cDIB
● Displays 简介：创建显示器对象，支持多显示器，获取显示器硬件参数 原型：Function Displays() As cDisplays
● Downloads 简介：创建简单下载对象，支持进度报告 原型：Function Downloads() As cDownloads
● EventCollection 简介：创建事件集合对象，作用暂未知 原型：Function EventCollection() As cEventCollection
● Formula 简介：创建公式对象，对包含计算公式的字符串求值 原型：Function Formula() As cFormula
● FSO 简介：创建文件系统对象，与Scripting.FileSystemObject类似，但有更多新功能，比如打开保存文件对话框、获取临时文件、获取各种特殊文件夹…… 原型：Function FSO([CreateFreshInstance As Boolean]) As cFSO
● GestureConfigList 简介：作用暂未知 原型：Function GestureConfigList() As cGestureConfigList
● GetCPUCoresCount 简介：获取CPU核心数 原型：Function GetCPUCoresCount() As Long
● GetFuncPtr 简介：获取直接从DLL文件获取函数指针 原型：Function GetFuncPtr(LibNameOrFullPathOrHandle, FunctionName As String, [RaiseErrorIfNotFound As Boolean]) As Long
● GetStringFromPointerW 简介：从指针所指内存获取字符串 原型：Function GetStringFromPointerW(WStrPtr As Long, [ExpectedMaxLen As Long = 4096]) As String
● HPTimer 简介：获取时间 原型：Function HPTimer() As Double
● IsVistaPlus 简介：是否为 Windows Vista 系统 原型：Function IsVistaPlus() As Boolean
● IsWin7Plus 简介：是否为 Windows 7 系统 原型：Function IsWin7Plus() As Boolean
● IsWin8Plus 简介：是否为 Windows 8 系统 原型：Function IsWin8Plus() As Boolean
● IsXPPlus 简介：是否为 Windows XP 系统 原型：Function IsXPPlus() As Boolean
● JPG 简介：创建JPEG解压缩对象 原型：Function JPG() As cJPG
● JSONArray 简介：创建 JSON 数组对象 原型：Function JSONArray() As cCollection
● JSONDecodeToCollection 简介：将 JSON 转换为 集合 对象 原型：Function JSONDecodeToCollection(strJSON As String, [ParserErrors As String], [StrictParsing As Boolean = True]) As cCollection
● JSONDecodeToCollectionUTF8 简介：将 JSON 转换为 集合对象，JSON字符串为UTF-8编码 原型：Function JSONDecodeToCollectionUTF8(UTF8Bytes() As Byte, [ParserErrors As String], [StrictParsing As Boolean = True]) As cCollection ● JSONObject 简介：创建 JSON 对象 对象 原型：Function JSONObject() As cCollection ● KeyWatcher 简介：创建键盘监听器对象 原型：Function KeyWatcher(VKeysCommaSeparated As String, [WatchAllAppWindows As Boolean], [WatchSystemWide As Boolean]) As cKeyWatcher ● MemCopy 简介：拷贝内存 原型：Sub MemCopy(pDst As Long, pSrc As Long, Bytes As Long) ● MemDB 简介：创建内存数据库对象 原型：Function MemDB() As cMemDB ● MMDeviceEnumerator 简介：创建多媒体硬件枚举器对象 原型：Function () As cMMDeviceEnumerator ● MP3Resource 简介：创建MP3资源对象，使用方法未知 原型：Function MP3Resource() As cMP3Resource ● OneShotTimer 简介：创建触发器型定时器 原型：Function OneShotTimer() As cOneShotTimer ● OOEmbed 简介：创建Open Office对象，未验证 原型：Function OOEmbed([HostingContainerhWnd As Long], [DocFileName As String], [NewDocumentType As DocType = sWriter]) As cOOEmbed ● PhysicsEngine 简介：创建物理引擎对象，常用于游戏开发 原型：Function PhysicsEngine() As cPhysicsEngine ● Properties 简介：创建属性对象 原型：Function Properties() As cProperties ● Recordset 简介：创建数据库记录对象 原型：Function Recordset([ActiveConnection As cConnection], [Content]) As cRecordset ● RegFree 简介：创建COM免注册对象，支持多线程 原型：Function RegFree() As cRegFree ● ReportDocument 简介：创建打印文档对象 原型：Function ReportDocument([MMScaleFactor As Double = 1], [PageWidthInUserUnits As Double = 210], [PageHeightInUserUnits As Double = 297]) As cReportDocument ● ReportPage 简介：创建打印页对象 原型：Function ReportPage([InitDrawMode As Boolean], [Landscape As Boolean]) As cReportPage ● RPCConnection 简介：创建RPC调用连接对象 原型：Function RPCConnection([Host As String], [Port As Long = 22222], [KeepAlive As Boolean = True], [ServerAuthentication As Boolean], [UserName As String], [PassWord As String]) As cRPCConnection ● RPCListener 简介：创建RPC调用监听器对象 原型：Function RPCListener([Host As String], [Port As Long = 22222], [ThreadPoolSize As Long = 8], [ForceAuthentication As Boolean], [AdminPassWord As String], [AllowedGroup As String], [RPCDllsFolder As String], [ReadIniValues As Boolean], [StartServer As Boolean], [DefaultBinaryPathForWebRequests As String], [ToCallBeforeAnyRPC As String]) As cRPCListener ● ShellLink 简介：创建快捷方式对象 原型：Function ShellLink() As cShellLink ● SimpleDOM 简介：创建 XML DOM 对象 原型：Function SimpleDOM([XMLSource As String], [FirstParamIsFileName As Boolean]) As cSimpleDOM ● SimpleSax 简介：创建 XML SAX 对象 原型：Function SimpleSax() As cSimpleSax ● SMBScan 简介：创建 SMB 服务器扫描器对象 原型：Function SMBScan() As cSMBScan ● SortedDictionary 简介：创建有序字典对象 原型：Function SortedDictionary([StringCompareMode As StringCompareModeEnum], [UniqueKeys As Boolean = True]) As cSortedDictionary ● stdCall 简介：以STDCALL约定调用函数指针 原型：Function stdCall(retType As enmRetType, pFunc As Long, ParamArray P() As Variant) ● stdCall 简介：以STDCALL约定调用函数指针，与stdCall区别不明 原型：Function stdCallDirect(retType As enmRetType, pFunc As Long, pArgs As Long, ArgsByteCount As Long) ● Stream 简介：创建数据流对象，类似于ADO中的Stream对象 原型：Function Stream() As cStream ● StringBuilder 简介：创建字符串构造器对象，快速组合字符串 原型：Function StringBuilder() As cStringBuilder ● StringCompare 简介：创建字符串比较器对象，支持多种方式比较 原型：Function StringCompare() As cStringCompare ● SubClass 简介：创建就子类化对象，VB中用处太大了 原型：Function SubClass() As cSubClass ● SVG 简介：创建 SVG 格式分析器对象 原型：Function SVG() As cSVG ● TCPClient 简介：创建 TCP 客户端对象 原型：Function TCPClient() As cTCPClient ● TCPServer 简介：创建 TCP 服务端对象 原型：Function TCPServer([StartListening As Boolean], [Host As String], [Port As Long], [BufferSize As Long = 65536], [MaxConnections As Long = 1024]) As cTCPServer ● TDD 简介：创建类自动化测试对象 原型：Function TDD([TestClass As Object], [TestMethod As String]) As cTDD ● Timer 简介：创建定时器对象，不需要窗体 原型：Function Timer([Interval As Long], [Enabled As Boolean], [Tag]) As cTimer ● Timing 简介：作用未知 原型：Function Timing([Start As Boolean]) As String ● UDP 简介：创建 UDP 网络对象 原型：Function UDP() As cUDP ● vtblCall 简介：以虚拟函数表调用函数 原型：Function vtblCall(retType As VbVarType, punk As Long, vtblIdx As Long, ParamArray P() As Variant) ● WebArchive 简介：创建WEB文档对象，配合WebServer对象使用 原型：Function WebArchive([FileNameOrByteArrayToRead]) As cWebArchive ● WebKit 简介：创建 WebKit 浏览器对象，需要在官网下载 WebKit 插件包，只有一个5M文件 原型：Function WebKit([InititializeWithPath As Boolean], [WebKitDllPath As String]) As cWebKit ● WebServer 简介：创建Web服务器对象，可以实现简单的Web服务 原型：Function WebServer() As cWebServer
更多类的用法，基本都可以见名知意，虽然没有文档，还是拜 Olaf Schmidt 大牛的福，才有了这么多 好用的工具。其中有不少类都可以改变以往VB的开发模型，提高开发和运行效率。
