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

(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
وجرب