تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
سؤال: كيف أخفي بعض الأدوات عن طريقة معرفة رقم معين ؟
#1
السلام عليكم ورحمة الله وبركاته ،،

وفقنا الله لكل خير إخواني الأعزاء ..

لدي الكثير من أدوات CheckBox ، ولدي رقم معين متغير في كثير من الأحوال كيف استطيع التوفيق في حالة أنه اذا كان الرقم 5 يتم عرض فقط 5 أدوات CheckBox وإذا تغير الرقم إلى 10 يتم عرض 10 أدوات وإذا تغير إلى 2 يتم عرض 2 أداة فقط والبقية تختفي ؟

استطيع ان اكتب شفرة لحل هذه المشكلة بحيث تكون عبارة عن أسطر كثيرة جداً بطريقة بدائية لكن أريد أن تكون الشفرة ذو مرونة وأريد ان اتعلم هذه المرونة فهل من طريقة مبتكرة لمثل هذا الأمر.

علماً أن CheckBox مسمياتهم متتالية 1و2و3و4و5و6 ..الخ
قال رسول الله صلى الله عليه وسلم ( من قال لا إله إلا الله دخل الجنة ) حديث صحيح.
قال رسول الله صلى الله عليه وسلم ( كلمتان خفيفتان على اللسان ثقيلتان في الميزان حبيبتان للرحمن : سبحان الله وبحمده سبحان الله العظيم ) حديث صحيح.
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم،
أخي يمكنك أستخدام أداة CheckedListBox
الرد }}}}
تم الشكر بواسطة:
#3
أخي الكريم
تستطيع أن تقوم بتعريف مصفوفة من نوع CheckBox
وتقوم بتحديد العناصر فيها حسب العدد المطلوب
الرد }}}}
تم الشكر بواسطة:
#4
Aly El-Haddad كتب :السلام عليكم،
أخي يمكنك أستخدام أداة CheckedListBox
سأجعلها خيار لاحق ،،

sooriaty03 كتب :أخي الكريم
تستطيع أن تقوم بتعريف مصفوفة من نوع CheckBox
وتقوم بتحديد العناصر فيها حسب العدد المطلوب
حاولت ولم أفلح ربما لأني لم اكتب الشفرات بصيغة صحيحة ..

الآن عندما أكتب هذا الصيغة : Dim checkbox() As CheckBox

ولدي متغير يحمل الرقم 4 ,, Dim x as Integer = 4

ولدي حوال 10 CheckBox على النموذج ،، عندما يتم تحميل النموذج كيف لي أن أخفي آخر 6 CheckBox من النموذج بناءاً على المتغير x
قال رسول الله صلى الله عليه وسلم ( من قال لا إله إلا الله دخل الجنة ) حديث صحيح.
قال رسول الله صلى الله عليه وسلم ( كلمتان خفيفتان على اللسان ثقيلتان في الميزان حبيبتان للرحمن : سبحان الله وبحمده سبحان الله العظيم ) حديث صحيح.
الرد }}}}
تم الشكر بواسطة:
#5
أخي الكريم
في البداية نقوم بتعريف مصفوفة في قسم التصريحات العام
كما يلي :
كود :
Public Class Form1
    Dim CheckList As New List(Of CheckBox)
    '
    '
End Class

وبعدها نقوم بإضافة أدوات Checkbox إليها في حدث Form_Load بهذه الطريقة

كود :
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For Each CHBOX In Me.Controls.OfType(Of CheckBox).Reverse
            CheckList.Add(CHBOX)
        Next
    End Sub

وأخيرا في حدث TextBox1_TextChanged نكتب التالي

كود :
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        For I = 0 To CheckList.Count - 1
            If I < TextBox1.Text Then
                CheckList.Item(I).Visible = True
            Else
                CheckList.Item(I).Visible = False
            End If
        Next
    End Sub

طبعا الكود الأخير أنت مخير في مكان وضعه ليس شرطا أن يكون داخل حدث TextBox1_TextChanged

وهذا الكود بالكامل
كود :
Public Class Form1
    Dim CheckList As New List(Of CheckBox)
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For Each CHBOX In Me.Controls.OfType(Of CheckBox).Reverse
            CheckList.Add(CHBOX)
        Next
    End Sub
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        For I = 0 To CheckList.Count - 1
            If I < TextBox1.Text Then
                CheckList.Item(I).Visible = True
            Else
                CheckList.Item(I).Visible = False
            End If
        Next
    End Sub
End Class
بالتوفيق
الرد }}}}
تم الشكر بواسطة:
#6
حسناً، ما دمت مصمم على أستخدام المصفوفة فإليك ما تريد بالمرفقات :p


الملفات المرفقة
.rar   Multi-CheckBox.rar (الحجم : 53.63 ك ب / التحميلات : 24)
الرد }}}}
تم الشكر بواسطة:
#7
sooriaty03 كتب :أخي الكريم
في البداية نقوم بتعريف مصفوفة في قسم التصريحات العام
كما يلي :
كود :
Public Class Form1
    Dim CheckList As New List(Of CheckBox)
    '
    '
End Class

وبعدها نقوم بإضافة أدوات Checkbox إليها في حدث Form_Load بهذه الطريقة

كود :
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For Each CHBOX In Me.Controls.OfType(Of CheckBox).Reverse
            CheckList.Add(CHBOX)
        Next
    End Sub

وأخيرا في حدث TextBox1_TextChanged نكتب التالي

كود :
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        For I = 0 To CheckList.Count - 1
            If I < TextBox1.Text Then
                CheckList.Item(I).Visible = True
            Else
                CheckList.Item(I).Visible = False
            End If
        Next
    End Sub

طبعا الكود الأخير أنت مخير في مكان وضعه ليس شرطا أن يكون داخل حدث TextBox1_TextChanged

وهذا الكود بالكامل
كود :
Public Class Form1
    Dim CheckList As New List(Of CheckBox)
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For Each CHBOX In Me.Controls.OfType(Of CheckBox).Reverse
            CheckList.Add(CHBOX)
        Next
    End Sub
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        For I = 0 To CheckList.Count - 1
            If I < TextBox1.Text Then
                CheckList.Item(I).Visible = True
            Else
                CheckList.Item(I).Visible = False
            End If
        Next
    End Sub
End Class
بالتوفيق

عفواً أخي sooriaty03 لم أنتبه لمشاركتك
الرد }}}}
تم الشكر بواسطة:
#8
Aly El-Haddad كتب :عفواً أخي sooriaty03 لم أنتبه لمشاركتك
لا يا أخي الكريم
إضافتك لهذه المشاركة فيه إثراء للموضوع
شكرا لك
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] طريقة عمل كشف حساب (دائن ومدين) اليوم مبتدئة وغداً محترفة 11 328 14-11-16, 08:26 AM
آخر رد: Genius Live
  طريقة تحزيم التطبيق اليوم مبتدئة وغداً محترفة 1 115 12-11-16, 08:16 AM
آخر رد: اليوم مبتدئة وغداً محترفة
  [VB.NET] سؤال كيف يمكن معرفة التغير في قاعدة البيانات وليد الزنتاني 2 107 10-11-16, 01:20 AM
آخر رد: وليد الزنتاني
  طريقة عمل استعلام في sql server 2014 Rabeea Qbaha 2 73 07-11-16, 03:13 PM
آخر رد: Rabeea Qbaha
  [سؤال] هل يلزم تثبيت SQL Server في جهاز الزبون الذي ستبيع له برنامجك ام هناك طريقة اخرى؟ thevirus 3 142 06-11-16, 07:51 PM
آخر رد: العواد الصغير
Lightbulb [VB.NET] سؤال حول التعامل مع الماسح الضوئي salhigc 3 119 02-11-16, 04:15 PM
آخر رد: salhigc
  ممكن طريقة عرض بيانات على ListView ؟ mmm650 2 116 30-10-16, 10:14 PM
آخر رد: adel27
  هل من طريقة لإنشاء اداة بنفسك في vb.net thevirus 2 88 30-10-16, 06:15 PM
آخر رد: silverlight
  ممكن طريقة عرض بيانات على ListView ؟ mmm650 0 52 29-10-16, 08:37 PM
آخر رد: mmm650
  معرفة الاشخاص المتصلين بقاعدة البيانات في الشبكة المحلية ببساطة مثل مقاهي الانترنت thevirus 2 123 29-10-16, 06:25 PM
آخر رد: thevirus

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


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