المشاركات : 1,468
المواضيع 351
الإنتساب : Apr 2016
السمعة :
334
الشكر: 3386
تم شكره 2456 مرات في 1124 مشاركات
17-03-18, 12:35 AM
(آخر تعديل لهذه المشاركة : 17-03-18, 12:39 AM {2} بواسطة ابو روضة.)
السلام عليكم ورحمة الله وبركاته
اريد تنفيذ كود للعناصر التى عليها Checked داخل ال CheckedListBox
ليس التى اللى عليها SelectedItem ويكون بوقت بمعنى أخر
داخل ال CheckedListBox مثلا 20 عنصر وانا عملت Checked فقط على أربع عناصر
وليكن اسماء اى أسماء فأريد من البرنامج ان يعمل حلقة تكرارية بوقت معين أحدده أنا ليظهر لى رسالة بحسب الوقت على هذه العناصر الاربع فقط
ويتجاهل الباقى وشكرا لكم
المشاركات : 7,394
المواضيع 803
الإنتساب : Sep 2013
السمعة :
847
الشكر: 13249
تم شكره 18797 مرات في 4415 مشاركات
17-03-18, 02:58 AM
(آخر تعديل لهذه المشاركة : 17-05-20, 10:07 AM {2} بواسطة سعود.)
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
المشاركات : 1,468
المواضيع 351
الإنتساب : Apr 2016
السمعة :
334
الشكر: 3386
تم شكره 2456 مرات في 1124 مشاركات
17-03-18, 07:13 AM
(آخر تعديل لهذه المشاركة : 17-03-18, 07:15 AM {2} بواسطة ابو روضة.)
(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
شكرا لك اخى سعود فعلا نجحت لكن انا اريدها بوقت محدد احدده انا
يعنى مثلا كل دقيقة يُضاف عنصر لليست بوكس الى ان ينتهو العناصر اللى داخلCheckedListBox وينتقلو لليست بوكس لانهم بيضافو كلهم مرة واحدة لما حطتهم داخل تايمر
وانا اريدهم يضافو عنصر عنصر
الله يكرم أصلك
المشاركات : 1,486
المواضيع 101
الإنتساب : Sep 2012
السمعة :
127
الشكر: 71
تم شكره 6155 مرات في 1035 مشاركات
تحتاج تضيف تايمر للمشروع
وتكتب الكود بالشكل التالي
طبعا يمكنك التعديل علي الكود ليناسب احتياجاتك بخصوص المدة الزمنية
لكن دي هي الفكرة عموما ...... يجب طبعا مراعاة ان بعض 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
Retired
المشاركات : 1,468
المواضيع 351
الإنتساب : Apr 2016
السمعة :
334
الشكر: 3386
تم شكره 2456 مرات في 1124 مشاركات
(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)
المشاركات : 1,486
المواضيع 101
الإنتساب : Sep 2012
السمعة :
127
الشكر: 71
تم شكره 6155 مرات في 1035 مشاركات
هل تريد تنفيذ الكود الخاص بك هذا من خلال التايمر؟
Retired
المشاركات : 1,468
المواضيع 351
الإنتساب : Apr 2016
السمعة :
334
الشكر: 3386
تم شكره 2456 مرات في 1124 مشاركات
(17-03-18, 11:06 AM)silverlight كتب : هل تريد تنفيذ الكود الخاص بك هذا من خلال التايمر؟
نعم اخى ويكون وقت التايمر من خلال NumericUpDown بالثوانى
وجزاك الله كل الخيرات
المشاركات : 1,486
المواضيع 101
الإنتساب : Sep 2012
السمعة :
127
الشكر: 71
تم شكره 6155 مرات في 1035 مشاركات
مش متأكد هل الكلاس الخاص ب الفيسبوك ها يعمل بدقة أم لا
لكن الفكرة المفروض تكون هكذا
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
Retired
المشاركات : 1,468
المواضيع 351
الإنتساب : Apr 2016
السمعة :
334
الشكر: 3386
تم شكره 2456 مرات في 1124 مشاركات
(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
الله يسعد قلبك اخى ويبارك بعمرك
هناك فقط خطأ
المشاركات : 1,486
المواضيع 101
الإنتساب : Sep 2012
السمعة :
127
الشكر: 71
تم شكره 6155 مرات في 1035 مشاركات
17-03-18, 11:51 AM
(آخر تعديل لهذه المشاركة : 17-03-18, 11:54 AM {2} بواسطة silverlight.)
بما أنك تتعامل مع اكثر من مصفوفة
عليك أن تتأكد أن UploadDisctionary ليس خاليا
عليك أن تضبط' القيمة s + "/feed"
عليك ان تتاكد ان checkedItems ليست خالية
اخيرا عليك ان تتاكد ان الكلاس الخاص بالفيسبوك يقبل المدخلات بالشكل الصحيح
عموما فكرة استخدام التايمر هي مثل ما سبق و اوضحته لك سابقا
لا تنسي تعريف الفيسبوك Client لانه واضح ان ذلك هو سبب الخطأ تقريبا
Retired
|