Visual Basic .NET¿¡¼´Â ´ÙÁß ½º·¹µå ÀÀ¿ë ÇÁ·Î±×·¥À» ÀÛ¼ºÇÒ ¼ö ÀÖ½À´Ï´Ù. ÀÌ ¹®¼¿¡¼´Â °£´ÜÇÑ Visual Basic .NET ÀÀ¿ë ÇÁ·Î±×·¥À¸·Î ½º·¹µå¸¦ ¸¸µé°í °ü¸®ÇÏ´Â ¹æ¹ýÀ» ¼³¸íÇÕ´Ï´Ù.
¿ä±¸ »çÇ×
´ÙÀ½Àº ±ÇÀå Çϵå¿þ¾î, ¼ÒÇÁÆ®¿þ¾î, ³×Æ®¿öÅ© ÀÎÇÁ¶ó ¹× ¼ºñ½º ÆÑÀÔ´Ï´Ù.
- Microsoft Windows 2000 ¶Ç´Â Microsoft Windows XP
- Microsoft Visual Basic .NET
ÀÌ ¹®¼´Â »ç¿ëÀÚ°¡ ´ÙÀ½ Ç׸ñÀ» Àß ¾Ë°í ÀÖ´Ù°í °¡Á¤ÇÕ´Ï´Ù.
- Visual Basic .NET ÇÁ·Î±×·¡¹Ö
- Visual Studio .NET ÅëÇÕ °³¹ß ȯ°æ(IDE)
½º·¹µå°¡ ÀÖ´Â Visual Basic .NET ÀÀ¿ë ÇÁ·Î±×·¥ ¸¸µé±â
- Microsoft Visual Studio .NETÀ» ½ÃÀÛÇÕ´Ï´Ù.
- ThreadWinApp¶ó´Â Visual Basic Windows ÀÀ¿ë ÇÁ·Î±×·¥ ÇÁ·ÎÁ§Æ®¸¦ »õ·Î ¸¸µì´Ï´Ù.
- Æû¿¡ Button ÄÁÆ®·ÑÀ» Ãß°¡ÇÕ´Ï´Ù. ±âº»ÀûÀ¸·Î ´ÜÃßÀÇ À̸§Àº Button1ÀÔ´Ï´Ù.
- Æû¿¡ ProgressBar ±¸¼º ¿ä¼Ò¸¦ Ãß°¡ÇÕ´Ï´Ù. ±âº»ÀûÀ¸·Î ÁøÇà·ü Ç¥½ÃÁÙÀÇ À̸§Àº ProgressBar1ÀÔ´Ï´Ù.
- ÆûÀ» ¸¶¿ì½º ¿À¸¥ÂÊ ´ÜÃß·Î ´©¸¥ ´ÙÀ½ ÄÚµå º¸±â¸¦ ´©¸¨´Ï´Ù.
- ÆÄÀÏÀÇ ½ÃÀÛ ºÎºÐ¿¡ ´ÙÀ½ ¹®À» Ãß°¡ÇÕ´Ï´Ù.
- Button1¿¡ ´ëÇØ ´ÙÀ½ Click À̺¥Æ® 󸮱⸦ Ãß°¡ÇÕ´Ï´Ù.
Private Sub Button1_Click( _
ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles Button1.Click
MessageBox.Show("This is the main thread")
End Sub - Form1 Ŭ·¡½º¿¡ ´ÙÀ½ º¯¼ö¸¦ Ãß°¡ÇÕ´Ï´Ù.
- Form1 Ŭ·¡½º¿¡ ´ÙÀ½ ¸Þ¼µå¸¦ Ãß°¡ÇÕ´Ï´Ù.
Private Sub ThreadTask()
Dim stp As Integer
Dim newval As Integer
Dim rnd As New Random()
Do
stp = ProgressBar1.Step * rnd.Next(-1, 2)
newval = ProgressBar1.Value + stp
If newval > ProgressBar1.Maximum Then
newval = ProgressBar1.Maximum
ElseIf newval < ProgressBar1.Minimum Then
newval = ProgressBar1.Minimum
End If
ProgressBar1.Value = newval
Thread.Sleep(100)
Loop
End Sub Âü°í: À̰ÍÀº ½º·¹µåÀÇ ±âÃʸ¦ ÀÌ·ç´Â ÄÚµåÀÔ´Ï´Ù. ÀÌ ÄÚµå´Â ProgressBar1ÀÇ °ªÀ» ÀÓÀÇ·Î ´Ã¸®°Å³ª ÁÙÀÎ ´ÙÀ½ 100¹Ð¸®ÃÊ ±â´Ù·È´Ù°¡ °è¼ÓÇÏ´Â ¹«ÇÑ ·çÇÁÀÔ´Ï´Ù. - Form1¿¡ ´ëÇØ ´ÙÀ½ Load À̺¥Æ® 󸮱⸦ Ãß°¡ÇÕ´Ï´Ù. ÀÌ ÄÚµå´Â »õ·Î¿î ½º·¹µå¸¦ ¸¸µé°í, »õ ½º·¹µå¸¦ ¹é±×¶ó¿îµå ½º·¹µå·Î ¸¸µç ´ÙÀ½ ½º·¹µå¸¦ ½ÃÀÛÇÕ´Ï´Ù.
Private Sub Form1_Load( _
ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles MyBase.Load
trd = New Thread(AddressOf ThreadTask)
trd.IsBackground = True
trd.Start()
End Sub
ÀÛµ¿ ¿©ºÎ È®ÀÎ
- ÀÀ¿ë ÇÁ·Î±×·¥À» ºôµåÇÏ°í ½ÇÇàÇÕ´Ï´Ù. ÁøÇà·ü Ç¥½ÃÁÙÀÇ °ªÀÌ ÀÓÀÇ·Î ¹Ù²ò´Ï´Ù. À̰ÍÀº ÀÛ¾÷ ÁßÀÎ »õ ½º·¹µåÀÔ´Ï´Ù.
- ÁÖ ½º·¹µå°¡ ProgressBar °ªÀ» º¯°æÇÏ´Â ½º·¹µå¿Í ¹«°üÇÏ´Ù´Â °ÍÀ» º¸¿©ÁÖ·Á¸é ÆûÀÇ ´ÜÃ߸¦ ´©¸¨´Ï´Ù. ¸Þ½ÃÁö »óÀÚ¿¡ ´ÙÀ½ ¸Þ½ÃÁö°¡ Ç¥½ÃµË´Ï´Ù. ÀÔ·ÂÀ» ±â´Ù¸³´Ï´Ù. ÁøÇà·ü Ç¥½ÃÁÙÀÇ °ªÀÌ °è¼Ó ¹Ù²ñÀ» ¾Ë ¼ö ÀÖ½À´Ï´Ù.
¹®Á¦ ÇØ°á
´õ º¹ÀâÇÑ ÀÀ¿ë ÇÁ·Î±×·¥¿¡¼´Â °øÀ¯ º¯¼ö¿¡ ¾×¼¼½ºÇÒ ¶§ ¿©·¯ ½º·¹µå¸¦ µ¿±âÈÇß´ÂÁö È®ÀÎÇϽʽÿÀ. ÀÚ¼¼ÇÑ ³»¿ëÀº Visual Basic ¿Â¶óÀÎ µµ¿ò¸» ¼³¸í¼ÀÇ
SyncLock ¹®°ú °ü·Ã Ç׸ñÀ» ÂüÁ¶ÇϽʽÿÀ.
±â¼ú ÀÚ·á: 315577 - ¸¶Áö¸· °ËÅä: 2002³â 4¿ù 16ÀÏ È¿äÀÏ - ¼öÁ¤: 1.0
º» ¹®¼ÀÇ Á¤º¸´Â ´ÙÀ½ÀÇ Á¦Ç°¿¡ Àû¿ëµË´Ï´Ù.
- Microsoft Visual Basic .NET 2002 Standard Edition
| kbhowto kbhowtomaster KB315577 |