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

نسخة كاملة : لوب كنترول
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
ســلام عليكم روحمة الله وبركاته 




محتاج أبني جملة لوب على أدوات الشتك بوكس عشان أعرف اللي حلته ترو أخزنه في متغير
وعليك السلام ورحمة الله وبركاته

اخي خليني احاول اعيد صياغة سؤالك على اعتبار اني فهمت قصدك

انت تحتاج تتحقق من قيم معينة في برنامجك بناء على شرط او شروط
وهي تحدد اذا كانت نتيجة التحقق من قيمة ما هي صائبة او خاطئة (True,False)

اذا كان هذا هو سؤالك فالحمدلله لكن لازال باقي غموض لكل من يقرا سؤالك

بمعنى ماهي العلاقة التي تربط او لاتربط عناصر التشك بوكس التي تريد الدوران عليها والتحقق منها
لان معرفة العلاقة مهم هنا

لكن ساحاول اعطائك الحل

سافترض انك تود معرفة اي عناصر التشك بوكس مؤشر وايها لا

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

اذن :

كود :
dim result1 as boolean
dim result2 as boolean
dim result3 as boolean

Private Sub Timer1_Tick(sender as object , e as eventargs) Handels Timer1.Tick

if checkbox1.checked=true then
result1= true
else
result1= false
end if

if checkbox2.checked=true then
result2= true
else
result2= false
end if

if checkbox2.checked=true then
result3= true
else
result3= false
end if
End Sub
مثل ماقال اخوي اللي قبلي السؤال يحتاج تفاصيل
لكن شوف

وهذا محتوى الكود
PHP كود :
Public Class Form1
    Private Sub Button1_Click
(sender As System.ObjectAs System.EventArgsHandles Button1.Click
        For Each h 
As Control In Me.Controls
            If TypeOf h Is CheckBox Then
                ListBox1
.Items.Add(CType(hCheckBox).Text " | " CType(hCheckBox).Checked)
 
           End If
 
       Next
    End Sub
End 
Class 
اعتقد الاسهل ان تضع جميع التشيك بوكس في جروب بوكس
وبعدها نعمل اللوب على الجروب بوكس وضع الشرط
اذا كان التشك بوكس True يقوم بتخزين قيمته في متغير

لكن السؤال هل تريد حفظ هذه البيانات بقاعدة البيانات
تخزينهم بمتغير يعني انك لا تريد تخزينهم بقاعدة البيانات
اما اذا كنت تريد تخزينها بقاعدة البيانات فالحل اسهل

مثال على اللوب على الجروب بوكس

كود :
For Each childcontrols As Control In Me.Controls

               If childcontrols.GetType.Name = "GroupBox" Then

  End If


                   Next