delay 적용
*
Private Sub wait(ByVal seconds As Integer)
For i As Integer = 0 To seconds * 100
System.Threading.Thread.Sleep(10)
Application.DoEvents()
Next
End Sub
For i As Integer = 0 To seconds * 100
System.Threading.Thread.Sleep(10)
Application.DoEvents()
Next
End Sub
Public Sub Delay(ByVal Second As Integer) '딜레이
Dim _startsecond As Integer
_startsecond = Environment.TickCount
While (True)
If (Environment.TickCount - _startsecond >= Second * 1000) Then
Exit While
End If
Application.DoEvents()
End While
End Sub
이 게시물을
번호
제목
257
256
254
249
248
247
246
242
239