一起来玩一下 VB6

admin2021-11-01  1.5K+

 ​Jacen He

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.Height
End Sub

'定义读属性 TestProperty 的函数,这是带参数的属性
Public Property Get TestProperty(Param As Integer) As Integer
    TestProperty = TestPropertyValue   Param
End Property

'定义写属性 TestProperty 的函数,带参数属性(参数要跟上面一致)
Public Property Let TestProperty(Param As Integer, ByVal v As Integer)
    TestPropertyValue = v - Param
End Property

'定义写属性 Picture 的函数,参数是一个 IDispatch 接口的 COM 对象
Public Property Let Picture(ByVal pic As Variant)
    Image1.Picture = pic
End Property

'定义一个名为  Picture 的函数
Public Function Add(ByVal a As Integer, ByVal b As Integer)
   Add = a   b
End Function

然后在 VB 里点击 IDE 主菜单“文件->生成 *.ocx ” 就可以了。
整体看起来还是非常简单对吧。不过我在 aardio 自带的这个范例里没写注释,因为 VB 使用 ANSI 编码,而现在 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 的好处在哪里。

图还是要补上的:

图片

转载请注明原文地址: http://www.aardio.net/read-260.html
最新回复(0)
aardio问答
aardio编程语言