VB.NET
StatusStrip을 사용하여 폼의 격을 높이자...ㅋ
2014.02.05
| * | Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ToolStripProgressBar1.Value = 0 ToolStripStatusLabel1.Text = "작업을 완료하는중...기다려 주세요..." Timer1.Enabled = True End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick ToolStripProgressBar1.Value += 2 If ToolStripProgressBar1.Value = 100 Then ToolStripStatusLabel1.Text = "작업을 완료하였습니다" Timer1.Enabled = False End If End Sub End Class |
|---|
* StatusStrip는 보고있는 개체, 개체의 구성 요소, 또는 개체의 작업에 대한 정보를 사용자에게 표시한다
* 표시할 아이템을 편집할수 있다
댓글 2
-
교교
2014.02.05 08:44
-
V닉맨
2014.02.05 09:10
Timer를 재정의해서 현재 날짜 시간을 표시-WithEvents 사용
Public Class Form1
Dim WithEvents Time As New Timer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Time.Start()
ToolStripStatusLabel2.Text = Date.Today
End SubPrivate Sub Time_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Time.Tick
ToolStripStatusLabel3.Text = TimeOfDay
End Sub
오른쪽에 날짜와 시간 추가 ( 옵션의 Spring -> True 변경하여 남은 공간의 여백 채움 설정 )
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
ToolStripStatusLabel2.Text = Format(Now, "yyyy/MM/dd")
ToolStripStatusLabel3.Text = Format(TimeOfDay, "hh:mm:ss")
End Sub