用VB编写自己的Client Side OCX时添加属性和事件

其实用处不算很大，因为这样的ocx要运行的话，必须要有数字签名，还需要别人同意安装，不然就会每次提示你，什么什么不安全之类的话。

在vb里面建立一个activex控件，然后在外接程序菜单里面选activex控件接口向导（如果没有的话，在外接程序管理器里加一个）
在这里面就可以定义想要的method, property, event了，如果要想在client script 调用的话，就要在设置映射的那一步，映射到控件的成员上去。
完成后，它会给你加上这样的代码（我加了一个mousemove事件）
event mousemove(button as integer, shift as integer, x as single, y as single) mappinginfo=usercontrol,usercontrol,-1,mousemove

private sub usercontrol_mousemove(button as integer, shift as integer, x as single, y as single)
    raiseevent mousemove(button, shift, x, y)
end sub
这样就可以在客户端脚本响应这个事件了
<script language=vbscript>
sub obj1_mousemove(button, shift, x, y)
    if button = 4 then msgbox(x & "," & y)
end sub
</script>
在javascript里面我还不知道如何取得button，shift， x，y这些参数，不过activex也只能在ie里面用，所以也无所谓了。
加一个属性的代码就要麻烦多了，幸好不用自己写
注意！不要删除或修改下列被注释的行！
mappinginfo=usercontrol,usercontrol,-1,backcolor
public property get backcolor() as ole_color
    backcolor = usercontrol.backcolor
end property

public property let backcolor(byval new_backcolor as ole_color)
    usercontrol.backcolor() = new_backcolor
    propertychanged "backcolor"
end property

从存贮器中加载属性值
private sub usercontrol_readproperties(propbag as propertybag)

    usercontrol.backcolor = propbag.readproperty("backcolor", &h8000000f)
end sub

将属性值写到存储器
private sub usercontrol_writeproperties(propbag as propertybag)

    call propbag.writeproperty("backcolor", usercontrol.backcolor, &h8000000f)
end sub

其它的就和写普通的activex component一样了。