aardio + VB 快速开发桌面软件

这里说的是 VB6，如果是调用 .NET 建议改用 C# ，aardio 与 C# 混合开发更方便。

VB6 的开发环境在现代操作系统上安装困难， 上有安装教程可以尝试一下（不一定行）。如果不想麻烦，可以下载一个精简版本 VB6 —— 这个至少能跑起一些基本的简单功能，或者可以安装一个 XP的虚拟机来运行 VB6 完整版。

VB6 运行库至今仍然是各版本 Windows 系统自带的系统组件，所以 VB6 可以生成体积极小的执行文件（ VC6 也有这个优势 ）。

今天我们一起来玩一下 VB6，先用 VB6 写一个控件，步骤如下：

1、打开VB6，选择新建 ActiveX 控件。
2、在工具条里拖一个 Image 控件到默认的用户控件 UserControl1 上面。
3、双击 UserControl1 切换到代码，添加代码如下：

然后在 VB 里点击 IDE 主菜单“文件->生成 *.ocx ” 就可以了。

VB 的乱码问题是一个大坑，例如把 ocx 放在简体中文目录下，或者 ocx 本身包含简体中文名，然后在繁体中文系统下打开就会崩溃。

不过没有关系，在 aardio 里我们可以轻松解决这个问题。在 aardio 里加下面的代码加载 VB 控件：

请注意第@2个参数的路径前有一个$字符，这会将 ocx 的二进制数据编译到代码里，发布后就不需要再带一个 ocx 了，VB的 ocx 并不支持内存加载，所以我们用 com.lite.appData() 函数将其自动复制到 %CommonAppData% 目录下，这个路径是全英文的，自动就解决了 VB6 控件遇到 Unicode 路径崩溃的大难题。

另外，其他需要访问文件路径的地方我们用 aardio 来实现，不用 VB6 干这事，这样就可以避免 VB6 踩到这个坑。

我们再看看我们在 aardio 中怎么创建这个控件：

非常简单，VB里怎么使用这个控件，在 aardio 里我们就怎么使用。其实我们可以在 dll.createEmbedEx() 的第@2个参数里指定 COM控件的 CLSID，但 VB 这个 CLSID 不好找，很多人是先注册控件再去注册表里查，问题是 VB6现在注册控件会 错失败 —— 不过好在 aardio 可以免注册调用 VB 控件，并且在 aardio 中可以省略 CLSID，aardio 会自己帮你找到正确的 CLSID 。这么贴心 —— 有没有被感动呢？！

上面参数指定的 winform.static 是COM控件宿主窗口（也是COM控件的父窗口），vbUserControl 并不是COM对象，而是 COM对象的容器，vbUserControl._object 才是 COM 对象。

调用 COM 对象的时候需要写
vbUserControl._object.xxxx () 是不是很吃力呢？！其实我们在 aardio 中通常不会这么写，vbUserControl 通常会添加大量的封装函数，通过这些函数再去访问 vbUserControl._object ，这样 vbUserControl 就成为了一个代理对象，这种好处是非常多的，一个最典型的例子就是标准库的 web.form 或者 com.flash。

但如果我们不想去过多的封装，只想直接使用 COM 对象呢？！一个非常简单的方法是这样写：

然后使用这个 comObject 就行了，不过能不能不写这句代码呢？！其实也是可以的，这就是我使用 dll.createEmbedEx() 而非 dll.createEmbed() 的原因了，这两个函数作用相同，但带 Ex 后缀的 dll.createEmbedEx() 多了一个功能，他返回的控件容器对象已经自动实现了一个简单的 COM 控件代理 —— 例如上面访问 vbUserControl 对象的成员就会自动转为调用 vbUserControl._object 的成员，等于将COM控件容器与 COM对象合二为一了。

控件容器对象还可以作为默认的事件监听器，记得我们前面 VB 代码中用 RaiseEvent OnImageClick(TestPropertyValue) 触发事件吗？在 aardio 代码中我们可以如下响应这个事件：

VB6 里这个事件的参数指定为 ByRef 传址，也就是说参数 value 是一个引用参数，在 aardio 中可以修改他的值，aardio 基于纯函数原则不会直接修改外部参数的值，而是通过增加返回值修改引用参数的值。这个事件函数没有返回值，也只有一个需要输出值的引用参数，所以增加一个返回值就可以了。

这个示例是用 VB 显示图像，我们就不要用 VB 来加载图像了，如果图像路径有中文或 Unicode 字符又不太好，但 aardio 是 UTF8 内核，没有这些问题，所以我们用 com.picture.loadObject( “~codes范例程序D) 图形图像.gdip.jpg” ) 加载图像再传给 VB， com.pictrue 的函数创建的都是 IPicture 对象，这是与 VB 兼容的，但我们通过 COM 接口不能传原生的 IPicture 过去，我们要用 com.picture.loadObject() 函数，右键点这个函数跳转到定义，看一下源代码你就明白了：

其实就是调用 com.pictrue.load() 加载图像，再用 com.QueryObject() 转换为 COM 对象( IDispatch 接口 ） ，然后就可以传给 VB了：

反正我在繁体系统下测试 VB控件直接加载上面的图像会出问题，但用上面的方法 —— 用 aardio 加载图像再传给 VB6 就完美解决。

至于调用 VB 函数这个很简单：

VB有一个比较有特色的参数化属性，例如看到这种写法是不是蒙了：

千万别以为是给函数的返回值赋值，我们把上面的参数化属性赋值转换为 等价的 aardio 代码如下：

在 aardio 里给属性加上 set 前缀就可以变成一个写属性的函数，当然也就支持多个参数了。同理，加上 get 前缀可以变成一个读属性函数，如下：

好吧下面我们看这个范例的完整 aardio 源码，直接复制就可以运行，直接复制就是一个独立的、完整的程序：

最后不得不佩服一下，这个 VB 控件的体积是：24KB，对比一下现在用 Electron 什么的没写几个功能就几百MB是什么概念，这几百MB里有多少是你真正需要的东西？！不是说这些东西没有用，就像豪华大房车一定是有用的，但你明明骑个自行车能解决的问题，非要每次都开豪华大房车吗？！想想这个道理，就会明白 VB6 的好处在哪里。

图还是要补上的：