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

نسخة كاملة : عدد صناديق النص
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم
يوجد في المشروع نموذج يحتوي على صناديق نص TextBox
بعضها يحتوي على رقم 4 مثلا والاخر يحتوي على صفر
كيف يمكن حساب عدد صناديق النص التي تحوي على الرقم 4
في صندوق نص جديد
السلام عليكم...

كود :
Private Sub Command1_Click()
    Dim CtrlCount As Long
    Dim Ctrl As Control
    
    CtrlCount = 0
    For Each Ctrl In Me.Controls
        If TypeOf Ctrl Is TextBox Then
            If Ctrl.Text = "4" Then
                CtrlCount = CtrlCount + 1
            End If
        End If
    Next Ctrl
    Label1.Caption = CStr(CtrlCount)
End Sub

العدد يظهر في Label.

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