منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : عدد الأدوات الموجودة بالفورم
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم

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

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

ألف شكر
السلام عليكم...

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

نرجو الاستفادة و السلام.
شكرا لك يامبدع