(17-03-18, 02:58 AM)سعود كتب :

PHP كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If CheckedListBox1.CheckedItems.Count < 1 Then Exit Sub
        For r As Integer = 0 To CheckedListBox1.CheckedItems.Count - 1
            ListBox1.Items.Add(CheckedListBox1.CheckedItems(r).ToString)
        Next
    End Sub 


(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 


(17-03-18, 11:06 AM)silverlight كتب : هل تريد تنفيذ الكود الخاص بك هذا من خلال التايمر؟

(17-03-18, 11:33 AM)silverlight كتب : مش متأكد هل الكلاس الخاص ب الفيسبوك ها يعمل بدقة أم لا 
لكن الفكرة المفروض تكون هكذا

PHP كود :

Public Class Form1

    Private index As Integer = 0

    Private Function GetUploadDisctionary() As Dictionary(Of String, Object)
        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)

        Return upload
    End Function

    Private Function GetcheckedItems() As List(Of String)
        Dim resut As List(Of String) = New List(Of String)()
        Dim i As Integer = 0
        While i < CheckedListBox1.CheckedItems.Count
            Dim item As Object = CheckedListBox1.CheckedItems(i)
            resut.Add(item.ToString)
            i += 1
        End While
        Return resut
    End Function

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

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

        Dim s As String = GetcheckedItems(Me.index Mod Me.GetcheckedItems.Count)

        Dim xBack = xFacebook.Post(s + "/feed", GetUploadDisctionary())
        Me.index += 1
        If Me.index >= GetcheckedItems.Count Then
            Timer1.Stop()
        End If
    End Sub
End Class