ステータスバーへ情報を簡易表示する .NET では、ステータスバーへ情報を簡易表示することが可能です。この機能を使えば、簡単に、マウスやフォーム座標など、リアルタイムに表示するといったことが実現します。フォームに次の様なコードを記述します-----------VB.NETコーディングここから-------------------１．フォームに、タイマーコントロールを配置します。 （デフォルトのオブジェクトの名前 Timer1） ※デザイン時は、フォームの下へ設置されます。２．フォーム下側に、ステータスバーコントロールを配置します。 （デフォルトのオブジェクトの名前 StatusBar1）３．配置したステータスバーコントロール StatusBar1 を 選択して、プロパティウィンドウの「Panels」プロパティの 「（コレクション）...」をクリックして、 StatusBarPanel コレクションエディタを起動します。４．StatusBarPanel コレクションエディタに表示されている 「追加」ボタンを２回押します。 ※２つ、ステータスバーとして情報表示するためです。 （デフォルトのオブジェクトの名前 StatusBarPanel1 , StatusBarPanel2 が追加されます）５．StatusBarPanel コレクションエディタに表示されている 「OK」ボタンを押して、閉じます。６．配置したタイマーコントロール Timer1 を 選択して、プロパティウィンドウの「Enabled」プロパティを True にします。７．フォームで右クリックして、「コードの表示」を 選び、コード編集画面にします。８．Public Class Form1 内に、 次のコードを記述します。 'ステータスバーに表示するサブルーチンです。 Sub Status_Dsp() 'ステータスバーのパネルサイズ StatusBar1.Panels(0).Width = Me.Width * 0.5 StatusBar1.Panels(1).Width = Me.Width * 0.5 '中央に表示します。 StatusBar1.Panels(0).Alignment = HorizontalAlignment.Center StatusBar1.Panels(1).Alignment = HorizontalAlignment.Center 'ステータスバーに表示する内容です。 StatusBar1.Panels(0).Text = _ "幅：" & Me.Width & ", 高さ：" & Me.Height StatusBar1.Panels(1).Text = _ "位置X：" & Me.Left & ", 位置Y：" & Me.Top End Sub９．配置したタイマーコントロール Timer1 を ダブルクリックして、コード編集画面にして、 次のコードを書き込みます。 Private Sub Timer1_Tick(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Timer1.Tick 'ステータスバーに表示 Call Status_Dsp() End Sub１０．ビルドして実行します。１１．フォームのサイズを変更したり、移動したりすると、 ステータスバーに表示される内容が変化します。-----------VB.NETコーディングここまで-------------------上記をカスタマイズして、マウスポインタの位置や、ちょっとしたヘルプなども表示してみると、いいでしょうねっ。
Copyright(c)2001-2004 Ai Net Makoto 記事・情報の無断転載を禁止します。
