ライブラリ開発のほうで私は今、ゆっくりですがウィンドウ周りに手を付けています。1週間ほど前ですが、ようやく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
実行させてみるとこんな感じです。ウィンドウがそこにあるだけでまだ何もできませんが、とりあえず先が少し見えてきた気がします。
スポンサード リンク |
この記事のカテゴリ
- AB ⇒ とりあえずControl