信不信 VB6 还是可以这么利索

VB6 的开发环境在现代操作系统上难以直接安装运行,网上有一些解决方案可以尝试一下,如果不行可以下载那种精简版本 VB6 —— 这个至少能跑起基本功能,或者可以安装一个 XP的虚拟机来运行 VB6。

但 VB6 编写的程序兼容性还是能接受的,VB6 运行时至今仍然是各版本 Windows 系统自带的系统组件,所以 VB6  可以生成体积极小的执行文件。而且 VB6 可能是写 ActiveX 控件操作最简单的开发工具。

今天我们一起来玩一下 VB6,先用 VB6 写一个控件,步骤如下:
1、打开VB6,选择新建 ActiveX 控件。

2、在工具条里拖一个 Image 控件到默认的用户控件 UserControl1 上面。
3、双击 UserControl1 切换到代码,添加代码如下:

'声明一个普通变量Dim TestPropertyValue As Integer
'声明一个事件,在 aardio 中可以响应这个事件,'注意参数加了ByRef表示传址,在 aardio 中就可以修改这这个参数的值Public Event OnImageClick(ByRef TestPropertyValue As Integer)
'这是VB6里点了Image图像控件触发的事件Private Sub Image1_Click()    '触发 COM 控件的事件( 换句话说就是调用 aardio 中的函数 ) RaiseEvent OnImageClick(TestPropertyValue)End Sub
'窗口调整大小触发这个函数,注意 aardio 控件都是非适应缩放的Private Sub UserControl_Resize() Image1.Width = UserControl.Width Image1.Height = UserControl.HeightEnd Sub
'定义读属性 TestProperty 的函数,这是带参数的属性Public Property Get TestProperty(Param As Integer) As Integer TestProperty = TestPropertyValue + ParamEnd Property
'定义写属性 TestProperty 的函数,带参数属性(参数要跟上面一致)Public Property Let TestProperty(Param As Integer, ByVal v As Integer) TestPropertyValue = v - ParamEnd Property
'定义写属性 Picture 的函数,参数是一个 IDispatch 接口的 COM 对象Public Property Let Picture(ByVal pic As Variant) Image1.Picture = picEnd Property
'定义一个名为  Picture 的函数Public Function Add(ByVal a As Integer, ByVal b As Integer) Add = a + bEnd Function

然后在 VB 里点击 IDE 主菜单“文件->生成 *.ocx ” 就可以了。
整体看起来还是非常简单对吧。不过我在 aardio 自带的这个范例里没写注释,因为 VB 使用 ANSI 编码(杠VB正宗Unicode解决不了问题),而现在 ANSI 编码的文件里用中文的话,很多编辑器打开都是乱码,所以我把注释删掉了。

VB的乱码问题是一个大坑,例如把 ocx 放在简体中文目录下,或者ocx 本身包含简体中文名,然后在繁体中文系统下打开直接就会崩溃。如果包含任何其他 Unicode 字符结果是一样,这也是为什么 ANSI 基本已被这个世界淘汰的主要原因。

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

var dll = com.lite.appData('aardio\vb6\Vb6Control.ocx',$'\.vb6\Vb6Control.ocx')

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

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

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

import com.lite; var dll = com.lite.appData('aardio\vb6\Vb6Control.ocx',$'\.vb6\Vb6Control.ocx')var vbUserControl = dll.createEmbedEx(winform.static);

非常简单,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 对象呢?!一个非常简单的方法是这样写:

var comObject = vbUserControl._object

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

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

//控件容器也是默认的 COM 事件监听器,如下直接指定响应 COM 事件的函数vbUserControl.OnImageClick = function(value){ winform.edit.print('VB控件里点击了图像,事件参数:'+value) //VB里这个事件的参数声明为 ByRef,所以添加返回值可以修改参数 return 100}

是否还记得 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() 函数,右键点这个函数跳转到定义,看一下源代码你就明白了:

namespace com.picture{  loadObject = function(path){    return ..com.QueryObject( load(path) );  }     }

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

//修改VB控件的属性vbUserControl.Picture = com.picture.loadObject( '~\codes\范例程序\D) 图形图像\.gdip.jpg' )

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

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

//调用 VB 函数var c = vbUserControl.Add(2,3);

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

vbUserControl.TestProperty(2) = 123

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

//修改VB控件的参数化属性,加上 set 前缀以函数形式调用vbUserControl.setTestProperty(2,123)

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

/*带多个参数的属性加上get前缀并以函数形式调用,例如:*/var testProperty = vbUserControl.getTestProperty(2);

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

import win.ui;/*DSG{{*/var winform = win.form(text='免注册嵌入 VB 控件';right=706;bottom=274)winform.add(edit={cls='edit';left=356;top=20;right=665;bottom=243;db=1;dl=1;dr=1;dt=1;edge=1;hscroll=1;multiline=1;vscroll=1;z=2};static={cls='static';text='Static';left=21;top=20;right=330;bottom=243;dl=1;dt=1;transparent=1;z=1})/*}}*/import com.lite;  var dll = com.lite.appData('aardio\vb6\Vb6Control.ocx'  ,$'~\codes\范例程序\2) 调用其他语言\F) VB\.vb6\Vb6Control.ocx');  var vbUserControl = dll.createEmbedEx(winform.static); //控件容器也是默认的 COM 事件监听器vbUserControl.OnImageClick = function(value){  winform.edit.print('VB控件里点击了图像,事件参数:'+value);  return 100;}//修改VB控件的属性vbUserControl.Picture = com.picture.loadObject( '~\codes\范例程序\D) 图形图像\.gdip.jpg' )//修改VB控件的参数化属性,加上 set 前缀以函数形式调用vbUserControl.setTestProperty(2,123)//带多个参数的属性加上get前缀并以函数形式调用,例如:var testProperty = vbUserControl.getTestProperty(2);winform.edit.print('VB 控件 TestProperty(2) 属性:',testProperty);//调用 VB 函数var c = vbUserControl.Add(2,3);winform.edit.print('调用 VB 控件函数返回值:',c);winform.edit.print('请点击图像试试');winform.show();win.loopMessage();

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

图还是要补上的:

(0)

相关推荐