السلام عليكم اخوانى الكرام
كيف يمكننى اجعل listbox ينتظر
تنفيذ الاكواد فى التايمر
وينتقل للسطر الثانى
ولكن المشكله ان بعمل
Timer1.Enabled = True
Timer1.Interval = 10000
Next
ومجرد ميخلص الوقت ينتقل للسطر اللى تحت بدون ما ينتظر تنفيذ الاكواد اللى فى التايمر
.....
ما علاقة 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
وجرب
.....
كود :
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
.....