---- Support BBS ----
[ 前の記事 | 次の記事 | 一覧 ]

[00844] 1863 byte
投稿日時: 2003年11月15日(土) 19時12分20秒
ホスト名: statphys16.isc.chubu.ac.jp(157.110.20.46)

田楽 DLL でエラー

投稿者: Iranoan
e-mail: (入力されていません)
   URL: (入力されていません)

 杉浦さん今日は、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 ----