تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
بخصوص ال CheckedListBox
#1
 السلام عليكم ورحمة الله وبركاته
اريد تنفيذ كود للعناصر التى عليها  Checked داخل ال CheckedListBox
ليس التى اللى عليها   SelectedItem ويكون بوقت بمعنى أخر
داخل ال CheckedListBox مثلا 20 عنصر وانا عملت Checked فقط على أربع عناصر
وليكن اسماء اى أسماء فأريد من البرنامج ان يعمل حلقة تكرارية بوقت معين أحدده أنا ليظهر لى رسالة بحسب الوقت على هذه العناصر الاربع فقط
ويتجاهل الباقى وشكرا لكم
الرد
تم الشكر بواسطة:
#2
PHP كود :
Private Sub Button1_Click(sender As ObjectAs EventArgsHandles 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 
الرد
تم الشكر بواسطة: عبد العزيز البسكري , ابو روضة
#3
(17-03-18, 02:58 AM)سعود كتب :
PHP كود :
Private Sub Button1_Click(sender As ObjectAs EventArgsHandles 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 وينتقلو لليست بوكس لانهم بيضافو كلهم مرة واحدة لما حطتهم داخل تايمر
وانا اريدهم يضافو عنصر عنصر
الله يكرم أصلك
الرد
تم الشكر بواسطة:
#4
تحتاج تضيف تايمر للمشروع
وتكتب الكود بالشكل التالي
طبعا يمكنك التعديل علي الكود ليناسب احتياجاتك بخصوص المدة الزمنية
لكن دي هي الفكرة عموما ...... يجب طبعا مراعاة ان بعض Items في CheckedListBox تم عمل Check لها حتي لا يحدث أخطاء


PHP كود :
Public Class Form1

    Private i 
As Integer 0

    Private Sub Button1_Click
(sender As ObjectAs EventArgsHandles Button1.Click
        Me
.Timer1.Start()
 
       Me.Timer1.Interval 1000
    End Sub

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

End 
Class 
Retired
الرد
تم الشكر بواسطة: ابو روضة
#5
(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 ObjectAs EventArgsHandles Button1.Click
        Me
.Timer1.Start()
 
       Me.Timer1.Interval 1000
    End Sub

    Private Sub Timer1_Tick
(sender As ObjectAs EventArgsHandles Timer1.Tick
        Dim item 
As Object CheckedListBox1.CheckedItems(i Mod CheckedListBox1.CheckedItems.Count)
 
       ListBox1.Items.Add(item.ToString)
 
       Me.+= 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 StringObject)
 
       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
الرد
تم الشكر بواسطة:
#6
هل تريد تنفيذ الكود الخاص بك هذا من خلال التايمر؟
Retired
الرد
تم الشكر بواسطة:
#7
(17-03-18, 11:06 AM)silverlight كتب : هل تريد تنفيذ الكود الخاص بك هذا من خلال التايمر؟

نعم اخى ويكون وقت التايمر من خلال NumericUpDown بالثوانى
وجزاك الله كل الخيرات
الرد
تم الشكر بواسطة:
#8
مش متأكد هل الكلاس الخاص ب الفيسبوك ها يعمل بدقة أم لا 
لكن الفكرة المفروض تكون هكذا

PHP كود :
Public Class Form1

    Private index 
As Integer 0

    Private 
Function GetUploadDisctionary() As Dictionary(Of StringObject)
 
       Dim upload As New Dictionary(Of StringObject)
 
       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 ObjectAs EventArgsHandles Button1.Click
        Timer1
.Interval 1000
        Timer1
.Start()
 
   End Sub

    Private Sub Timer1_Tick
(sender As ObjectAs EventArgsHandles Timer1.Tick

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

 
       Dim xBack xFacebook.Post("/feed"GetUploadDisctionary())
 
       Me.index += 1
        If Me
.index >= GetcheckedItems.Count Then
            Timer1
.Stop()
 
       End If
 
   End Sub
End 
Class 
Retired
الرد
تم الشكر بواسطة:
#9
(17-03-18, 11:33 AM)silverlight كتب : مش متأكد هل الكلاس الخاص ب الفيسبوك ها يعمل بدقة أم لا 
لكن الفكرة المفروض تكون هكذا

PHP كود :
Public Class Form1

    Private index 
As Integer 0

    Private 
Function GetUploadDisctionary() As Dictionary(Of StringObject)
 
       Dim upload As New Dictionary(Of StringObject)
 
       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 ObjectAs EventArgsHandles Button1.Click
        Timer1
.Interval 1000
        Timer1
.Start()
 
   End Sub

    Private Sub Timer1_Tick
(sender As ObjectAs EventArgsHandles Timer1.Tick

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

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

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

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

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

لا تنسي تعريف الفيسبوك Client لانه واضح ان ذلك هو سبب الخطأ تقريبا
Retired
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] سؤال بخصوص الطباعة M.SOFT 0 116 20-03-21, 10:10 PM
آخر رد: M.SOFT
  سألت سؤال ومحد رد علي هذا السؤال الثاني بخصوص التقارير saud4001 4 391 06-03-21, 03:39 PM
آخر رد: saud4001
  [VB.NET] استفسار بخصوص المسج اللي يطلع Output dubai.eig 5 1,102 26-02-21, 10:47 PM
آخر رد: علي المروعي
Sad [سؤال] بخصوص اقفال السنة المالية و فتح سنة جديدة sql سعيد كنيمو 5 343 24-02-21, 10:27 PM
آخر رد: سعيد كنيمو
  الرجاء مساعدة بخصوص حفظ و تعديل صورة صنف من الأصناف nouribenyahia 0 229 09-02-21, 08:29 PM
آخر رد: nouribenyahia
  [VB.NET] سؤال هام بخصوص برامج الحماية للسورس كود محمد اسماعيل 0 201 20-01-21, 03:09 AM
آخر رد: محمد اسماعيل
  [VB.NET] استفسار :- بخصوص نقل الداتا من DataGridView عن طريق CheckBoxColumn dubai.eig 4 1,295 19-01-21, 02:41 AM
آخر رد: mr_hso
  سؤال بخصوص تثبيت الخطوط اليوم السابع 2 369 09-01-21, 05:27 AM
آخر رد: اليوم السابع
  [VB.NET] سؤال بخصوص الامتدادات في فيشوال بيسيك M.SOFT 1 196 06-01-21, 12:38 PM
آخر رد: Owz
  تعديل علي مشروع بخصوص الشارت اليوم السابع 1 366 19-12-20, 04:26 AM
آخر رد: has123

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم