منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
عدد صناديق النص - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : عدد صناديق النص (/showthread.php?tid=8436)

عدد صناديق النص - shamal - 11-04-13

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

عدد صناديق النص - ناجي إبراهيم - 11-04-13

السلام عليكم...

كود :
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 - 13-04-13

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