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

[00230] 1915 byte
投稿日時: 2001年1月30日(火) 18時25分46秒
ホスト名: statphys16.isc.chubu.ac.jp(157.110.20.46)

Re: CHANGECTRLITEM で落ちる

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

 杉浦さん今晩は、ひろです。。
> えっと…具体的にはどういう処理でしょうか?
> ここに抜粋して頂くかメールで送って頂けると嬉しいです。
 現在 β 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 ----