| |
>尚、Vbscriptとでもプロパティを参照渡しでは、渡すことが出来ませんでした。
>
>確認したコードは以下のとおりです。下記のコードをテキストファイルとして保存し、
>
>保存後拡張子をvbsに変更して実行してみてください（例 Test.vbs）
>
>'===================================
>dim a,b
>dim zzz
>dim cc
>set cc=new cls
>a=2
>b=3
>cc.bbb=0
>call test(a,b,cc.bbb)
>msgbox a & " + " & b & " = " & cc.bbb
>call test(a,b,zzz)
>msgbox a & " + " & b & " = " & zzz
>'==================================
>sub test(x,y,z)
> z=x+y
>end sub
>'==================================
>class cls
> property get bbb()
> bbb=zzz
> end property
> property let bbb(dat)
> zzz=dat
> end property
>end class
上記のコードですが、これをそのままコピーして、
メモ帳等に貼り付けて、拡張子をvbsに直して実行させると
エラーが発生します。
> z=x+y
こういう行の頭の空白が全角の空白になっていることが理由です。
これを半角の空白に手動で直すか、又は、
VBEのどこかのモジュールに
一度貼り付けて、そのコードを再度コピーしてから、
メモ帳に貼り付けてください。
（vbeのモジュールに貼り付けた時にエラーが発生してもかまいません）
|
|
ichinose
- 06/12/25(月) 16:02 -
![[未読]](./data/FAQ/image/read_icon.gif){kind=icon}
