المشاركات : 28
المواضيع 4
الإنتساب : Apr 2014
السمعة :
0
الشكر: 0
تم شكره 4 مرات في 5 مشاركات
السلام عليكم
يوجد في المشروع نموذج يحتوي على صناديق نص TextBox
بعضها يحتوي على رقم 4 مثلا والاخر يحتوي على صفر
كيف يمكن حساب عدد صناديق النص التي تحوي على الرقم 4
في صندوق نص جديد
المشاركات : 372
المواضيع 15
الإنتساب : Sep 2013
السمعة :
28
الشكر: 487
تم شكره 1677 مرات في 187 مشاركات
السلام عليكم...
كود :
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.
نرجو الاستفادة و السلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
المشاركات : 28
المواضيع 4
الإنتساب : Apr 2014
السمعة :
0
الشكر: 0
تم شكره 4 مرات في 5 مشاركات
13-04-13, 09:15 PM
(آخر تعديل لهذه المشاركة : 18-11-20, 09:17 AM {2} بواسطة shamal.)
السلام عليكم
مشكور وبارك الله فيك اخي العزيز