NBATMAN Üye Katılım 7 Şub 2008 Mesajlar 136 Puanları 1 2 Şub 2013 #1 Merhaba, aşağıdaki fonksiyon işinize yarar mı? Public Sub Pause(BeklemeZamani As Currency) Dim BASLA As Currency BASLA = Timer Do While Timer < (BASLA + BeklemeZamani) DoEvents Loop End Sub Kullanımı: Private Sub Text1_Change() Text3.Text = Replace(Text1.Text, Chr$(13), Chr$(32)) Pause (0.5) List1.AddItem Text3.Text End Sub
Merhaba, aşağıdaki fonksiyon işinize yarar mı? Public Sub Pause(BeklemeZamani As Currency) Dim BASLA As Currency BASLA = Timer Do While Timer < (BASLA + BeklemeZamani) DoEvents Loop End Sub Kullanımı: Private Sub Text1_Change() Text3.Text = Replace(Text1.Text, Chr$(13), Chr$(32)) Pause (0.5) List1.AddItem Text3.Text End Sub