VB2008コントロール使用例:ステータスバーにメッセージを表示する

ステータスバー コントロールの使用例サンプルです

コントロールの使用例へ



ステータスバーは、実行中の状態などをユーザーに知らせる為に使います。

■ 作成手順

StatusStripをクリックし、次にフォームをクリックすると配置できます。
ステータスバーコントロールはフォームとコンポーネントトレイに表示されます。
ボタンをクリックするとメッセージを表示させるように、「実行」「停止」ボタンも配置しています。
ステータスバーのデザイン画面

メッセージを表示させる為に、ステータスバーコントロール内のコンボボックスから、StatusLabelを選択します。
機能選択

■ 実行コード

Public Class Form1
'起動時
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.ToolStripStatusLabel1.Text = "開始時間:" & DateTime.Now.Hour & "時" & DateTime.Now.Minute & "分" & DateTime.Now.Second & "秒"
End Sub

'実行ボタン
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.ToolStripStatusLabel1.Text = "実行時間:" & DateTime.Now.Hour & "時" & DateTime.Now.Minute & "分" & DateTime.Now.Second & "秒"
End Sub

'停止ボタン
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.ToolStripStatusLabel1.Text = "停止時間:" & DateTime.Now.Hour & "時" & DateTime.Now.Minute & "分" & DateTime.Now.Second & "秒"
End Sub
End Class

■ 実行画面

起動直後のフォームです。
開始時間を表示

起動ボタンをクリックしたフォームです。
実行時間を表示

停止ボタンをクリックしたフォームです。
停止時間を表示


Visual Basic 2008 Express Edition実践入門