Skip to main content

AccessTr.neT


Uzun Süren İşlemlerde Kodların Birbirini Beklemesi

Uzun Süren İşlemlerde Kodların Birbirini Beklemesi

#40
(05/02/2020, 15:19)accessman yazdı: Dim bitti As Boolean

Private Sub CloseBtn_Click()
    Dim bittimi As Boolean
    bittimi = first
End Sub

Private Sub Komut381_Click()
    WasteTime
End Sub

Function first() As Boolean
    bitti = False
    Dim i, ii, iii As Integer
   
    For i = 1 To 100
        For ii = 1 To 10
            For iii = 1 To 10
            DoEvents
            Next
        Next
    Next
    bitti = True
End Function

Sub WasteTime()
    Do
        DoEvents
    Loop Until bitti = True
    MsgBox "merhaba"
End Sub

Hani döngü yoktu sorgu vardı!!!!!
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Cvp: Uzun Süren İşlemlerde Kodların Birbirini Beklemesi - Yazar: feraz - 05/02/2020, 15:31
Task