[ابراهيم مراد]

السلام عليكم اخوانى الكرام
كيف يمكننى اجعل listbox ينتظر
تنفيذ الاكواد فى التايمر
وينتقل للسطر الثانى
ولكن المشكله ان بعمل
Timer1.Enabled = True
Timer1.Interval = 10000

Next
ومجرد ميخلص الوقت ينتقل للسطر اللى تحت بدون ما ينتظر تنفيذ الاكواد اللى فى التايمر

[vbnet]

.....

ما علاقة ListBox بـ Timer، لو وضعت الأكواد قد تتضح الصورة مع الشرح

.....

[ابراهيم مراد]

(27-06-14, 11:22 PM)vbnet كتب : .....

ما علاقة ListBox بـ Timer، لو وضعت الأكواد قد تتضح الصورة مع الشرح

.....

Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
For r = 0 To ListBox1.Items.Count - 1
ListBox1.SetSelected(r, True)
Label1.Text = "join"
Timer1.Enabled = True
Timer1.Interval = 5000


Next
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Timer1.Enabled = False
If Label1.Text.Contains("join") Then
ListBox2.Items.Add(ListBox1.SelectedItem & Label1.Text)
End If
End Sub


End Class



حط فى لست بوكس 1
1
2
3
4
5
6
7
8
9
10
وجرب

[vbnet]

.....

كود :

Public Class Form1

    Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        For r = 0 To ListBox1.Items.Count - 1
            ListBox1.SetSelected(r, True)
            Label1.Text = "join"
            fun()

            ' هذين السطرين فقط لترى العملية بشكل بطئ
            Application.DoEvents()
            Threading.Thread.Sleep(500)

        Next
    End Sub

    Private Sub fun()
        If Label1.Text.Contains("join") Then
            ListBox2.Items.Add(ListBox1.SelectedItem & Label1.Text)
        End If
    End Sub

End Class

لم أفهم سبب استخدام التايمر Timer

.....