イグトランスの頭の中（のかけら）

ライブラリ開発のほうで私は今、ゆっくりですがウィンドウ周りに手を付けています。１週間ほど前ですが、ようやくControlクラスから（無理やりながら）ウィンドウを作成することができるようになりました。

まだサンプルにされては困る程度ですので、とりあえずここにそのコードを書いておくことにします。なおAB非公開β10以上で動作確認しています。残念ながらライブラリをSVNで取得しても、まだ公開されているCTPではコンパイルできないはずです。

予め断っておきますが、とりあえずウィンドウを表示できるというだけで、これはControlの正しい使い方ではありません。将来このコードがコンパイルできなくなる可能性は大いにあります。

' Control1.ab
#strict

#require <classes/System/Windows/Forms/Control.ab>

Main()
End

Sub Main()
	Dim c As Control
	c.Text = "Hello, world"
	c.Show()
	MessageBox(0, "Hello", "", 0) ’内部のメッセージループを間借り
End Sub

実行させてみるとこんな感じです。ウィンドウがそこにあるだけでまだ何もできませんが、とりあえず先が少し見えてきた気がします。

Tweet

この記事のカテゴリ

• AB ⇒ とりあえずControl