---- Support BBS ----
[00230] 1915 byte
投稿日時: 2001年1月30日(火) 18時25分46秒
ホスト名: statphys16.isc.chubu.ac.jp(157.110.20.46)
Re: CHANGECTRLITEM で落ちる
杉浦さん今晩は、ひろです。。
> えっと…具体的にはどういう処理でしょうか?
> ここに抜粋して頂くかメールで送って頂けると嬉しいです。
現在 β test 中の鶴亀に使っているので、簡略して書きます。
(これでも十分長い)
MakeDialog://dialog の作成
call Group 1;//group を使って内部に、reffilebutton, list
call Group 2;//editbox 等色々使っている
if(!dllfunc("NEWDIALOG","マクロの詳細設定",20))goto dllerror;
if(!dllfunc("NEWCONTROL","text","","設定対象"))goto dllerror;
if(!dllfunc("NEWCONTROL","tree","TreePage",""))goto dllerror;
if(!dllfunc("SETCTRLHEIGHT","",20))goto dllerror;
if(!dllfunc("SETCTRLWIDTH","",50))goto dllerror;
if(!dllfunc("SETCTRLITEM","","Group1,1","root"))goto dllerror;
if(!dllfunc("SETCTRLNOTIFY","","2"))goto dllerror;
if(!dllfunc("SETCTRLITEM","","Group2,2","root"))goto dllerror;
if(!dllfunc("SETCTRLNOTIFY","","2"))goto dllerror;
if(!dllfunc("NEWCOLUMN",56))goto dllerror;
if(!dllfunc("NEWCONTROL","text","",""))goto dllerror;
if(!dllfunc("NEWCONTROL","group","group",""))goto dllerror;
if(!dllfunc("SETCTRLHEIGHT","",70))goto dllerror;
if(!dllfunc("SETCTRLITEM","group","Group1","-1"))goto dllerror;
if(!dllfunc("NEWCONTROL","okcancel","",""))goto dllerror;
if(!dllfunc("SHOWDIALOG",hidemaruhandle(0),0))goto dllerror;
while(1){
$$notify = "";
while(strlen($$notify) == 0)$$notify = dllfuncstr("WAITCTRLNOTIFY",1);
##notify = val($$notify);
if(##notify <= 1)break;
else if(##notify == 2)call ChangeDialog;
}
ChangeDialog:
$$dialog = dllfuncstr("GETCTRLSTATE","TreePage");
if($dialog == $$dialog)return;
if(!dllfunc("CHANGECTRLITEM","group",$$dialog,"-1"))goto dllerror;
$dialog = $$dialog;
return;
> #反則かどうかはともかく、落ちるのはまずいので速攻で修正しますm(_ _)m。
「反則です」という返信を期待しての投稿でしたが、よろしくお願いします。
P.S もし杉浦さんが、鶴亀をインストール済みなら、マクロを改めて送ります。
<228> CHANGECTRLITEM で落ちる (ひろ) 01/29 11:36
└<229> Re: CHANGECTRLITEM で落ちる (杉浦まさき) 01/29 23:10
└>230< Re: CHANGECTRLITEM で落ちる (ひろ) 01/30 18:25
└<231> Re: CHANGECTRLITEM で落ちる (杉浦まさき) 01/31 00:38
└<232> Re: CHANGECTRLITEM で落ちる (ひろ) 01/31 19:33
└<233> Re: CHANGECTRLITEM で落ちる (杉浦まさき) 02/01 01:02
└<234> Re: CHANGECTRLITEM で落ちる (ひろ) 02/01 10:36
└<235> Re: CHANGECTRLITEM で落ちる (杉浦まさき) 02/03 00:11
└<236> Re: CHANGECTRLITEM で落ちる (ひろ) 02/03 10:37
└<237> Re: CHANGECTRLITEM で落ちる (杉浦まさき) 02/03 23:40
└<238> Re: CHANGECTRLITEM で落ちる (杉浦まさき) 02/05 00:54
└<239> Re: CHANGECTRLITEM で落ちる (ひろ) 02/05 10:55
---- Support BBS ----