[shamal]

السلام عليكم
يوجد في المشروع نموذج يحتوي على صناديق نص 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.

نرجو الاستفادة و السلام.

[shamal]

السلام عليكم
مشكور وبارك الله فيك اخي العزيز