一般的な考えに反して、IEはアクセサを割り当てることができますが、一部のタスクには十分なVBのみです。
<script language= "vbscript" >
' ,
Class Accessor
Public Property Let hook(val) ' hook Accessor
MsgBox val
End Property
End Class
Dim access ' VB
Set access = New Accessor ' Accessor
</script>
<script language= "jscript" >
// .. VB JS , access
access.hook = 'ololo' ;
</script>
* This source code was highlighted with Source Code Highlighter .つまり、VBにはアクセサーがあり、VBはすべてのIEにあり、名前空間VBとJSは共通であり、それを使用できます。
このラッパーは私のタスクに十分でした：
<script>
// VB, language IE VB
</script>
<script language= "vbscript" >
Class Accessor
Public Property Let hook(val)
propset val ' hook propset
End Property
End Class
Dim access
Set access = New Accessor
</script>
<script>
function propset(val) { //
alert(val);
}
if ( /*@cc_on!@*/ true ) { // Accessor javascript
access = {};
access.__defineSetter__( 'hook' , function (val) {propset(val)})
}
access.hook = 'hi' ; //
</script>
* This source code was highlighted with Source Code Highlighter .残念ながら、軟膏にハエがないわけではなく、割り当てられた値はスカラーのみであり、オブジェクトはエラーになります：
access.hook = {}; // :
* This source code was highlighted with Source Code Highlighter .一般に、VBとその実装の複雑さを熟知していないため、おそらくこの問題はどうにかして回避できますか？
UPD：このアクセサは次のように宣言する必要があるため、割り当てられた値はスカラーだけでなく、 keksnのおかげです。
Class Accessor
Public Property Let hook(val)
propset val
End Property
Public Property Set hook(val)
propset val
End Property
End Class
Dim access
Set access = New Accessor
* This source code was highlighted with Source Code Highlighter .