チェックボックスを予めチェックし処理を開始したいのですがエラー

初心者です。 何方かご教授していただけないでしょか? チェックボックスを開いた時点で、1・2番に予めチェックを入れておき 必要な場合のみチェック切り替えを行う。(ここまでは出来たのですが) ボタンの戻り値(SelectBtn1)に返し、select caseで処理を行いたいのです が、MsgBox(“戻り値 = ” + SelectBtn1) ////確認用で「変数;SelectBtn1 が定義されていません」と表示されてしまいます。どのように回避すればよ いのでしょう? <以下.UWS> option explicit,samestr,optpublic option defaultfont=”MS ゴシック” Thread  DefaultCheck(0)  // 0番目をチェック Thread  DefaultCheck(1)  // 2番目をチェック Dim List1[] = “A”,”B”,”C”,”D” Dim SelectBtn1 = SlctBox(SLCT_CHK, 0, “ITEM”, List1) Procedure  DefaultCheck(n)   Dim id = GetID(“”, “TFSectBox.UnicodeClass”)   Dim nCount = GetItem(id, ITM_BTN)   IfB (n < nCount-1) Then     Dim  strText = ALL_ITEM_LIST[n]     Dim cnt = 0     Dim i     For i = 0 To n       if (strText = ALL_ITEM_LIST[i]) Then cnt = cnt + 1     Next     ClkItem(id, ALL_ITEM_LIST[n], CLK_BTN, TRUE, cnt)   EndIf MsgBox("戻り値 = " + SelectBtn1) ////確認用 /////処理がはいります。 FEnd

関連情報:

  1. THREAD
  2. 参照ファイルのアップロードをしたい
  3. IF
  4. PROCEDURE
  5. スタイルに設定された余白(margin, padding)を操作する

このエントリーを含むはてなブックマーク Buzzurlにブックマーク Yahoo!ブックマークに登録

コメント

  1. joburetty より:

    すみません。コードを表示するには

    これの意味が解らなく、読みにくくなってしまいました。

    option explicit,samestr,optpublic
    option defaultfont="MS ゴシック"
    Thread  DefaultCheck(0)  // 0番目をチェック
    Thread  DefaultCheck(1)  // 2番目をチェック
    Dim List1[] =  "A","B","C","D"
    Dim SelectBtn1 = SlctBox(SLCT_CHK, 0, "ITEM", List1)
    Procedure  DefaultCheck(n)
      Dim id = GetID("", "TFSectBox.UnicodeClass")
      Dim nCount = GetItem(id, ITM_BTN)
      IfB (n < nCount-1) Then
        Dim  strText = ALL_ITEM_LIST[n]
        Dim cnt = 0
        Dim i
        For i = 0 To n
          if (strText = ALL_ITEM_LIST[i]) Then cnt = cnt + 1
        Next
        ClkItem(id, ALL_ITEM_LIST[n], CLK_BTN, TRUE, cnt)
      EndIf
    MsgBox("戻り値 = " + SelectBtn1)  ////確認用
    /////ここに処理が入ります。
    FEnd
    

    これで、みやすくなりました?失敗していたら本当にごめんなさい。


このページの先頭へ