تقييم الموضوع :
  • 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
شكرا لك يامبدع
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  جلب اسماء المجلدات الموجودة داخل مجلد معين عبدالله الصافي 7 195 26-11-16, 11:05 PM
آخر رد: عبدالله الصافي
  [vb6.0] كيف اضيف أداة التاريخ الى صندوق الأدوات ؟ نور الهدى1 2 100 24-10-16, 09:28 PM
آخر رد: Amir_alzubidy
Question [vb6.0] كيف ابحث بشروط الموجودة كومبو بوكس في برنامجي المرفق ؟؟ Microformt 1 224 19-02-16, 05:08 PM
آخر رد: ahmedabdelaliem
  [سؤال] بخصوص ربط النموذج الفرعي بالفورم ابو هايل 6 259 25-11-15, 09:14 AM
آخر رد: myalsailamy
  تسجيل الأدوات عبدالله الصافي 4 404 03-07-15, 03:09 AM
آخر رد: Amir_alzubidy
  [vb6.0] طريقة حذف ايقونة الفجوال الموجودة في الفورم larbihamri 2 530 26-04-15, 02:37 PM
آخر رد: larbihamri
  [سؤال] هل هناك مقابل للدالة "valeur cible " أو "goalseek" الموجودة ببرنامج EXCEL في vb6 AEDC 1 329 01-01-15, 03:38 PM
آخر رد: Ahmed_Mansoor
  [سؤال] استعلام لحقل موجود في جدول بالفورم الاول الى جدول موجود بالفورم الثاني زهراء 11 937 17-10-14, 08:24 PM
آخر رد: السيد الغالي

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


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