منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

(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 


تحتاج تضيف تايمر للمشروع
وتكتب الكود بالشكل التالي
طبعا يمكنك التعديل علي الكود ليناسب احتياجاتك بخصوص المدة الزمنية
لكن دي هي الفكرة عموما ...... يجب طبعا مراعاة ان بعض Items في CheckedListBox تم عمل Check لها حتي لا يحدث أخطاء

(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 فقط وهذا هو الكود لو تتكرم اللى مغلبنى

هل تريد تنفيذ الكود الخاص بك هذا من خلال التايمر؟

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

نعم اخى ويكون وقت التايمر من خلال NumericUpDown بالثوانى
وجزاك الله كل الخيرات

مش متأكد هل الكلاس الخاص ب الفيسبوك ها يعمل بدقة أم لا 
لكن الفكرة المفروض تكون هكذا

(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 


الله يسعد قلبك اخى ويبارك بعمرك
هناك فقط خطأ

بما أنك تتعامل مع اكثر من مصفوفة
عليك أن تتأكد أن UploadDisctionary ليس خاليا 
عليك أن تضبط' القيمة s + "/feed"
عليك ان تتاكد ان checkedItems ليست خالية
اخيرا عليك ان تتاكد ان الكلاس الخاص بالفيسبوك يقبل المدخلات بالشكل الصحيح

عموما فكرة استخدام التايمر هي مثل ما سبق و اوضحته لك سابقا

لا تنسي تعريف الفيسبوك Client لانه واضح ان ذلك هو سبب الخطأ تقريبا