Thread Rating:
  • 310 Vote(s) - 2.68 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Worksheetにセットした値を表示する
09-13-2012, 05:03 PM,
#1
Worksheetにセットした値を表示する
次のコードで、set-valueボタンを押した時に、右側のTextFieldに値が表示されません。
カーソルを遷移してアクティブにすると値が表示されるのですが、ボタンを押したときに表示するには
どのように処理すればよいのでしょうか?同様に値を表示した状態でclear-dataボタンを押した時
表示は消えず、カーソルを遷移してアクティブになったときに消えるのですが、ボタンを押したときに消すには
どのように処理すればよいのでしょうか?

Code:
{let wst:Worksheet = {Worksheet 5, 5, {widths 10pt, 2in},
                       row = 2, col = 1,
                       {CommandButton
                           label = "set-value",
                           {on Action at cb:CommandButton do
                               {type-switch cb.selection-context
                                case wks:Worksheet do
                                   {wks.model.set-value 2,3,"aa"}
                                   {wks.model.set-value 2,4,"bb"}
                               }
                           }
                       },
                       row = 2, col = 2,
                       {CommandButton
                           label = "clear-data",
                           {on Action at cb:CommandButton do
                               {type-switch cb.selection-context
                                case wks:Worksheet do
                                   {wks.model.clear-data}
                               }
                           }
                       },
                       row = 2, col = 3,
                       {input-cell {TextField},ui-spec = {TextField}},
                       row = 2, col = 4,
                       {input-cell {TextField},ui-spec = {TextField}}
                     }
}
{value
    wst
}
09-18-2012, 07:06 PM,
#2
RE: Worksheetにセットした値を表示する
Worksheetってなんでしょうか?
09-19-2012, 08:50 AM,
#3
RE: Worksheetにセットした値を表示する
Curl External LibraryのGUIコンポーネントです。
下記URLを参照してください。
http://developers.curlap.com/re-referenc...sheet.html
09-19-2012, 10:14 AM,
#4
RE: Worksheetにセットした値を表示する
このサンプルに限ってはとりあえず以下のようにすれば動きました。

・{wks.model.clear-data}をセル毎の初期化処理に変更
・ui-spec = {TextField}をui-spec = TextFieldに変更
・セルを空文字で初期化

Code:
{let wst:Worksheet = {Worksheet 5, 5, {widths 10pt, 2in},
                         row = 2, col = 1,
                         {CommandButton
                             label = "set-value",
                             {on Action at cb:CommandButton do
                                 {type-switch cb.selection-context
                                  case wks:Worksheet do
                                     {wks.model.set-value 2,3,"aa"}
                                     {wks.model.set-value 2,4,"bb"}
                                 }
                             }
                         },
                         row = 2, col = 2,
                         {CommandButton
                             label = "clear-data",
                             {on Action at cb:CommandButton do
                                 {type-switch cb.selection-context
                                  case wks:Worksheet do
                                     ||{wks.model.clear-data}
                                     {wks.set-value 2,3,""}
                                     {wks.set-value 2,4,""}
                                 }
                             }
                         },
                         row = 2, col = 3,
                         {input-cell {TextField}
                             ||, ui-spec = {TextField}
                             , ui-spec = TextField
                         },
                         row = 2, col = 4,
                         {input-cell {TextField}
                             ||, ui-spec = {TextField}
                             , ui-spec = TextField
                         }
                     }
}
{value
    {wst.set-value 2,3,""}
    {wst.set-value 2,4,""}
    wst
}
09-20-2012, 06:29 PM,
#5
RE: Worksheetにセットした値を表示する
動作確認できました。
ありがとうございます。

Forum Jump:


Users browsing this thread:
1 Guest(s)

MyBB SQL Error

MyBB has experienced an internal SQL error and cannot continue.

SQL Error:
1017 - Can't find file: 'mybb_threadviews' (errno: 2)
Query:
INSERT INTO mybb_threadviews (tid) VALUES('625')