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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Information [vb6.0] كيف ان اجعل الصورة الموجودة في خلفية الفورم تكون في منتصف الفورم في برنامج المرفق؟؟ Microformt 2 166 01-04-18, 02:48 PM
آخر رد: Microformt
Question [vb6.0] هل يمكن ان اجعل الصورة الموجودة في خلفية الفورم تتمدد في برنامج المرفق؟؟ Microformt 2 254 23-03-18, 06:26 AM
آخر رد: Microformt
  [سؤال] معرفة اسماء الجداول الموجودة داخل قاعدة بيانات أبوسعود 5 630 15-05-17, 11:28 PM
آخر رد: Ahmed_Mansoor
  تغيير تسمية كل الصور الموجودة في مجلد الخير طهوري 7 796 15-02-17, 10:57 AM
آخر رد: Amir_Alzubidy
  جلب اسماء المجلدات الموجودة داخل مجلد معين عبدالله الصافي 7 958 26-11-16, 11:05 PM
آخر رد: عبدالله الصافي
  [vb6.0] كيف اضيف أداة التاريخ الى صندوق الأدوات ؟ نور الهدى1 2 419 24-10-16, 09:28 PM
آخر رد: Amir_Alzubidy
Question [vb6.0] كيف ابحث بشروط الموجودة كومبو بوكس في برنامجي المرفق ؟؟ Microformt 1 541 19-02-16, 05:08 PM
آخر رد: ahmedabdelaliem
  [سؤال] بخصوص ربط النموذج الفرعي بالفورم ابو هايل 6 822 25-11-15, 09:14 AM
آخر رد: myalsailamy
  تسجيل الأدوات عبدالله الصافي 4 804 03-07-15, 03:09 AM
آخر رد: Amir_Alzubidy
  [vb6.0] طريقة حذف ايقونة الفجوال الموجودة في الفورم larbihamri 2 846 26-04-15, 02:37 PM
آخر رد: larbihamri

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


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