其實用處不算很大，因為這樣的ocx要運行的話，必須要有數(shù)字簽名，還需要別人同意安裝，不然就會每次提示你，什么什么不安全之類的話。
在vb里面建立一個activex控件，然后在外接程序菜單里面選activex控件接口向?qū)Вㄈ绻麤]有的話，在外接程序管理器里加一個）
在這里面就可以定義想要的method, property, event了，如果要想在client script 調(diào)用的話，就要在設(shè)置映射的那一步，映射到控件的成員上去。
完成后，它會給你加上這樣的代碼（我加了一個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
這樣就可以在客戶端腳本響應(yīng)這個事件了
<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這些參數(shù)，不過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一樣了。
