| |
かかしです、こんにちは。
> 今日は、ひろです。自己レスです。
こんにちは。
>> こちらの会議室が妥当がどうか解りませんが、「秀まるおのマクロサーバ」
>> を用いて、以下のような sample を作成しました。
> レスが付かない(;_;)。皆さんの環境では再現しないなど、情報だけでも頂
>けると非常に有り難いです。
再現しました。
・・・原因が分かりません。
マクロサーバを持ってきたときについてきたサンプルプログラムでも
試してみたのですが3番目以降0しか返ってきません。
どうなんでしょう？
う〜ん。
run "macserv.exe";
ddeinitiate "HideMacroServer", "DlgService";
if( !result ) {
message "ddeinitiate failed";
endmacro;
}
//***** ラジオボタンのテスト *****
ddepoke "newdialog", "40,ラジオボタンのテスト";
ddepoke "newcontrol", "radio,MyRadio,グループ";
ddepoke "item", "ラジオボタン１";
ddepoke "item", "ラジオボタン２";
ddepoke "item", "ラジオボタン３";
ddepoke "item", "ラジオボタン４";
ddepoke "item", "ラジオボタン５";
ddepoke "item", "ラジオボタン６";
ddepoke "item", "ラジオボタン７";
ddepoke "item", "ラジオボタン８";
ddepoke "item", "ラジオボタン９";
ddepoke "item", "ラジオボタン１０";
ddepoke "item", "ラジオボタン１１";
ddepoke "item", "ラジオボタン１２";
ddepoke "newcontrol", "okcancel";
call MakeDialog;
message dderequest("getstate MyRadio") + " 番目のボタンが選ばれました";
endmacro;
MakeDialog:
#hwnd = hidemaruhandle(0);
ddeexecute "dialog " + str(#hwnd);
$$a = "";
ddestartadvice "dlgresult", $$a;
while( strlen($$a) == 0 ) {
ddewaitadvice $$a, 100;
}
ddestopadvice "dlgresult";
ddeexecute "enddialog";
if($$a == "0"){
message "処理を中止しました。";
endmacro;
}
return $$a;
---かかし
|
|