| |
>loadDllは、Set dll = loadDll(...のように書くといいようです。
>Setとか書かなくてもよさそうな気がしますが、vbsの文法はちょっとわからないです。
ありがとうございます。私の方でもloadできました。
Set dll_obj = dll.dllFunc
Set dll_obj_str = dll.dllFuncStr
上記2つもSetが必要でした。勉強になりました。
>別ファイルのスクリプトを呼び出すということはできないです。
ありがとうございます。
>rc = menu(Chr(1)+"サブメニューA","項目A-1","項目A-2","",Chr(1)+"サブメニ
>ューB","項目B-1","項目B-2","","項目C")
ありがとうございます。
menuの方は解決しました。
>vbsの例はもともとヘルプに無いものもありましたが、vbsはWindows標準ではインス
>トールされなくなるかもしれなので、最近はvbsの説明はどんどん減らしていってい
>ます。
次回から私もJSの方でスクリプト書くようにします。
ただ、menuArrayの方はどうしても解決できません。
こちらを最後にしますのでご教示お願いします。
色々試行錯誤しましたがダメでした。
=========
'変数の+宣言を強制します。
Option Explicit
Dim rc
Dim menu_taitle_s
' Dim menu_taitle_s(2)
Dim objDic
menu_taitle_s = Array("test_1","test_2","test_3")
' menu_taitle_s = Array(Chr(1)+"サブメニューA","項目A-1","項目A-2","",Chr(1)
+"サブメニューB","項目B-1","項目B-2","","項目C")
echo(menu_taitle_s(0))
echo(menu_taitle_s(1))
echo(menu_taitle_s(2))
'rc = menuArray(menu_taitle_s,9)
rc = menuArray(menu_taitle_s)
'rc = menu(Chr(1)+"サブメニューA","項目A-1","項目A-2","",Chr(1)+"サブメニ
ューB","項目B-1","項目B-2","","項目C")
'rc = menu(menu_taitle_s(0),menu_taitle_s(1),menu_taitle_s(2))
echo(rc)
endMacro()
'======
'変数の+宣言を強制します。
Option Explicit
Dim rc
Dim menu_taitle_s(2)
menu_taitle_s(0) = "test_1"
menu_taitle_s(1) = "test_2"
menu_taitle_s(2) = "test_3"
echo(menu_taitle_s(0))
echo(menu_taitle_s(1))
echo(menu_taitle_s(2))
rc = menuArray(menu_taitle_s,3)
'rc = menuArray(menu_taitle_s)
'rc = menu(Chr(1)+"サブメニューA","項目A-1","項目A-2","",Chr(1)+"サブメニ
ューB","項目B-1","項目B-2","","項目C")
'rc = menu(menu_taitle_s(0),menu_taitle_s(1),menu_taitle_s(2))
echo(rc)
endMacro()
'========
'変数の+宣言を強制します。
Option Explicit
Dim rc
Dim menu_taitle_s
' Dim menu_taitle_s(2)
Dim objDic
Set objDic = createobject("Scripting.Dictionary")
objDic.Item(0) = "test_1"
objDic.Item(1) = "test_2"
objDic.Item(2) = "test_3"
menu_taitle_s = objDic.Items
' menu_taitle_s = Array(Chr(1)+"サブメニューA","項目A-1","項目A-2","",Chr(1)
+"サブメニューB","項目B-1","項目B-2","","項目C")
echo(menu_taitle_s(0))
echo(menu_taitle_s(1))
echo(menu_taitle_s(2))
'rc = menuArray(menu_taitle_s,3)
rc = menuArray(menu_taitle_s)
'rc = menu(Chr(1)+"サブメニューA","項目A-1","項目A-2","",Chr(1)+"サブメニ
ューB","項目B-1","項目B-2","","項目C")
'rc = menu(menu_taitle_s(0),menu_taitle_s(1),menu_taitle_s(2))
echo(rc)
endMacro()
|
|