تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] عدد الأدوات الموجودة بالفورم
#1
السلام عليكم

هل هناك طريقة لحساب عدد الأدوات الموجودة بالفورم

مثلاً تظهر رسالة 3 textbox و 2 command

ألف شكر
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم...

كود :
Private ClnControlData As New Collection

Private Sub AddControlType(ByVal AControlType As String)
    Dim ControlData(1 To 2) As String
    Dim NewCount As Long
    
    On Error GoTo AddControlType_Err
    
    NewCount = CLng(ClnControlData(AControlType)(2)) + 1
    ClnControlData.Remove AControlType
    ControlData(1) = AControlType
    ControlData(2) = CStr(NewCount)
    ClnControlData.Add ControlData, AControlType
    
    Exit Sub
AddControlType_Err:
    Err.Clear
    ControlData(1) = AControlType
    ControlData(2) = "1"
    ClnControlData.Add ControlData, AControlType
End Sub

Private Sub Command1_Click()
    Dim Ctrl As Control
    Dim CtrlType As String
    Dim Idx As Long
    Dim Msg As String
    
    For Idx = 1 To ClnControlData.Count
        ClnControlData.Remove 1
    Next Idx

    For Each Ctrl In Me.Controls
        CtrlType = TypeName(Ctrl)
        AddControlType CtrlType
    Next
    
    If ClnControlData.Count = 0 Then
        MsgBox "لا توجد مكونات"
    Else
        Msg = ClnControlData(Idx)(1) & " = " & ClnControlData(Idx)(2)
        For Idx = 2 To ClnControlData.Count
            Msg = Msg & vbCrLf & ClnControlData(Idx)(1) & " = " & ClnControlData(Idx)(2)
        Next Idx
        MsgBox Msg
    End If
End Sub

نرجو الاستفادة و السلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
الرد }}}
تم الشكر بواسطة: VB_Coder , ABO.BANCIANA
#3
شكرا لك يامبدع
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيفية تعديل النصوص الموجودة في تطبيق يستخدم res بالفيجوال بيسك 6 بوعيسى 0 1,578 24-10-19, 10:16 PM
آخر رد: بوعيسى
  كيف يمكن انزال تسلسل دفعة واحدة بعدد السجلات الموجودة gonm64 5 2,173 02-10-19, 10:22 PM
آخر رد: Ahmed_Mansoor
  الأدوات والمصفوفة المزدوجة اسلام الكبابى 4 1,497 03-09-19, 08:30 PM
آخر رد: اسلام الكبابى
Information [vb6.0] كيف ان اجعل الصورة الموجودة في خلفية الفورم تكون في منتصف الفورم في برنامج المرفق؟؟ Microformt 2 1,754 01-04-18, 02:48 PM
آخر رد: Microformt
Question [vb6.0] هل يمكن ان اجعل الصورة الموجودة في خلفية الفورم تتمدد في برنامج المرفق؟؟ Microformt 2 1,988 23-03-18, 06:26 AM
آخر رد: Microformt
  [سؤال] معرفة اسماء الجداول الموجودة داخل قاعدة بيانات أبوسعود 5 4,104 15-05-17, 11:28 PM
آخر رد: Ahmed_Mansoor
  تغيير تسمية كل الصور الموجودة في مجلد الخير طهوري 7 3,264 15-02-17, 10:57 AM
آخر رد: Amir_Alzubidy
  جلب اسماء المجلدات الموجودة داخل مجلد معين عبدالله الصافي 7 3,630 26-11-16, 11:05 PM
آخر رد: عبدالله الصافي
  [vb6.0] كيف اضيف أداة التاريخ الى صندوق الأدوات ؟ نور الهدى1 2 2,459 24-10-16, 09:28 PM
آخر رد: Amir_Alzubidy
Question [vb6.0] كيف ابحث بشروط الموجودة كومبو بوكس في برنامجي المرفق ؟؟ Microformt 1 1,497 19-02-16, 05:08 PM
آخر رد: ahmedabdelaliem

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم