フォームにボタンコントロールを追加、ついでにボタンのキャプションを設定する方法
Welcome to L Sharp .NET, a powerful lisp-based scripting language for .NET.
Copyright (C) 2005 Rob Blackwell & Active Web Solutions.
This program is free software and is distributed under the terms of
the GNU General Public License.
For more information, see www.lsharp.org
Build 1.2.1.28724
Microsoft Windows NT 5.1.2600 Service Pack 2
CLR 2.0.50727.42
> (reference "system.windows.forms")
System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
> (setq form (new system.windows.forms.form))
System.Windows.Forms.Form, Text:
> (setq btn (new system.windows.forms.button))
System.Windows.Forms.Button, Text:
> (add (controls form) btn)
null
> (showdialog form)
でボタンが一つ付いたフォームは表示されるけどボタンのキャプションが何もない。で、キャプションを設定するにはtextプロパティをいじればよい
(set_text btn "OK")
null
(showdialog form)
とか
ボタンコントロールの、設定できるプロパティなんかを調べるには
> (reference "system")
System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
> (reference "system.windows.forms")
System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
> (using "system.text.regularexpressions")
"system.text.regularexpressions"
> (setq regexp (new regex ".*set_.*"))
.*set_.*
> (setq btn (new system.windows.forms.button))
System.Windows.Forms.Button, Text:
> (each member (getmembers (gettype btn)) (when (ismatch regexp (tostring member)) (prl (tostring member))))
みたいな感じにパタパタとコマンドを打ち込むと一覧がずらーっと出てきます。……出てくるんですが、中には一覧でメソッドが出てきてもエラーを返すものがあったりしてなにがなんだか。
> (set_dialogresult btn system.windows.forms.dialogresult.ok)
Call: No such method, property or field set_dialogresult on System.Windows.Forms.Button
とかね
もうちょっと遊んでみようかな?
$Date: 2006-04-02 23:10:44 +0900 (Sun, 02 Apr 2006) $ $HeadURL: file:///S:/Subversion/ndiary_log/2006/04/20060401.diary $