[ابو روضة]

(17-03-18, 10:30 AM)silverlight كتب : تحتاج تضيف تايمر للمشروع
وتكتب الكود بالشكل التالي
طبعا يمكنك التعديل علي الكود ليناسب احتياجاتك بخصوص المدة الزمنية
لكن دي هي الفكرة عموما ...... يجب طبعا مراعاة ان بعض Items في CheckedListBox تم عمل Check لها حتي لا يحدث أخطاء

PHP كود :

Public Class Form1

    Private i As Integer = 0

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.Timer1.Start()
        Me.Timer1.Interval = 1000
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Dim item As Object = CheckedListBox1.CheckedItems(i Mod CheckedListBox1.CheckedItems.Count)
        ListBox1.Items.Add(item.ToString)
        Me.i += 1
        If i >= CheckedListBox1.CheckedItems.Count Then
            Timer1.Stop()
        End If
    End Sub

End Class 


الله يكرم أصلك أستاذى العزيز الغالى فعلا نجحت مائة فى المائة...
لكن المشكلة اننا أريد توظيف هذا الكود فى برنامجى لكن صراحة مش عارف
لآنه يقوم بتشغيل كل العناصر وانا اريده تماما مثل ما حضرتك فعلت الان يشغل
الى عليه cheked فقط وهذا هو الكود لو تتكرم اللى مغلبنى

PHP كود :

Dim xFacebook As New FacebookClient(TextBox6.Text)
        Dim upload As New Dictionary(Of String, Object)
        upload.Add("message", TextBox1.Text)
        upload.Add("link", TextBox2.Text)
        upload.Add("name", TextBox3.Text)
        upload.Add("description", TextBox4.Text)
        upload.Add("picture", TextBox5.Text)
        Dim xBack = xFacebook.Post(CheckedListBox1.SelectedItem & "/feed", upload)