---- Support BBS ----
[00844] 1863 byte
投稿日時: 2003年11月15日(土) 19時12分20秒
ホスト名: statphys16.isc.chubu.ac.jp(157.110.20.46)
田楽 DLL でエラー
杉浦さん今日は、Iranoan です。
はっきりとは解りませんが、Ver.2.51 では問題ないのですが、Ver.2.60βで
loaddll "DengakuDLL.dll";
if(!(dllfunc("NEWDIALOG","セッティング",60,"")&&
dllfunc("NEWCONTROL","text","","1")&&
dllfunc("SETCTRLWIDTH","",27))&&
dllfunc("NEWCONTROL","edit","PATH","")&&
dllfunc("SETCTRLWIDTH","",25)&&
dllfunc("NEWCONTROL","refdirbutton","PATHref","参照(&H)")&&
dllfunc("SETCTRLNOTIFY","","10")&&
dllfunc("SETCTRLITEM","","")&&
dllfunc("SETCTRLITEM","","")&&
dllfunc("NEWCONTROL","text","","2")&&
dllfunc("SETCTRLWIDTH","",27)&&
dllfunc("NEWCONTROL","edit","PATH2","")&&
dllfunc("SETCTRLSTRING","","")&&
dllfunc("SETCTRLWIDTH","",25)&&
dllfunc("NEWCONTROL","refdirbutton","PATH2ref","参照(&S)")&&
dllfunc("SETCTRLNOTIFY","","11")&&
dllfunc("SETCTRLITEM","","")&&
dllfunc("SETCTRLITEM","","","")&&
dllfunc("SETCTRLITEM","","1")&&
dllfunc("SHOWDIALOG",hidemaruhandle(0),0))goto dllerror;
while(1){
$dllversion="";
while($dllversion=="")$dllversion=dllfuncstr("WAITCTRLNOTIFY",1);
#dllversion=val($dllversion);
if(#dllversion<=1)break;
else if(#dllversion==10){
$dir=dllfuncstr("GETCTRLSTRING","PATHref");
if(!(dllfunc("SETCTRLSTRING","PATH",$dir)&&
dllfunc("CHANGECTRLITEM","PATHref",$dir,"2")))goto dllerror;
}
else if(#dllversion==11){
$dir=dllfuncstr("GETCTRLSTRING","PATH2ref");
if(!(dllfunc("SETCTRLSTRING","PATH2",$dir)&&
dllfunc("CHANGECTRLITEM","PATH2ref",$dir,"2")))goto dllerror;
}
}if(!dllfunc("ENDDIALOG"))goto dllerror;
End:
freedll;
endmacro;
dllerror:
message "Error";
goto End;
程度なら大丈夫ですが、複雑になってくると、refdirbutton に forcus が当たった後
に、edit box に [Tab] で移動させたときに、「エラー checker」という dialog box
が何度でも現れ、終了することも出来なくなります。
必要でしたら、error の起きる macro を up します。
>844< 田楽 DLL でエラー (Iranoan) 11/15 19:12
└<846> Re: 田楽 DLL でエラー (杉浦 まさき) 11/16 01:15
└<847> Re: 田楽 DLL でエラー (Iranoan) 11/16 11:25
└<848> Re: 田楽 DLL でエラー (杉浦 まさき) 11/16 23:08
└<852> Re: 田楽 DLL でエラー (Iranoan) 11/17 12:34
---- Support BBS ----