الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيفية البحث عن object معين بعد معرفة اسمه ومن ثم استخدامه

بدأه iamsad في 11 يونيو 2012 · 4 رد · 708 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

اريد ان ابحث عن احد عناصر الـmy.settings برمجيا ومن ثم استخدامها كاسناد قيمة لها

ولتقريب الصورة لكم لدي هذا الكود الذي من خلاله ابحث عن controls معينة 

   Dim COMBONAME1 As String
                            COMBONAME1 = "CO" & Mid(name, 8)
                            Dim COMBOCONTROL1 As MaskedTextBox
                            Dim CONTROLFOUND1() As Control
                            CONTROLFOUND1 = Controls.Find(COMBONAME1, True)

لكن الـmy.settings هي من نوع الـobject

ارجو المساعدة .

يا أهل سوريا اعلنوها خلافة اسلامية لتكون الشام عقر دار المسلمين وخلاص ارض فلسطين

#2

السلام عليكم

يمكنك ذلك عن طريق التحويل القسري لنوع الكائن باستخدام الدالة CType

مثال

COMBOCONTROL1  = CType(CONTROLFOUND1 ,MaskedTextBox)

الهم عجل بنصرك وفرجك لأهلنا في الشام

حسبنا الله ونعم الوكيل

#3

أخي انا استخدمت هذا الكود

 For Each ctrl In Me.TabControl1.TabPages(3).Controls
            If CType(ctrl, TextBox).Text.Length > 0 Then
                Dim str As String
                str = CType(ctrl, TextBox).Name
                str = "cos" & Mid(str, 8)

                Dim COMBOCONTROL As MySettings
                Dim CONTROLFOUND() As Object
                CONTROLFOUND = Controls.Find(str, True)
                If CONTROLFOUND.Length > 0 Then
                    COMBOCONTROL = CONTROLFOUND(0)
                COMBOCONTROL = True
                End If
            End If
        Next

الا انني لا استطيع ان اسند لها قيمة ففي السطر 

 COMBOCONTROL = True

لا استطيع اسناد قيمة للمتغير COMBOCONTROL

Value of type 'Boolean' cannot be converted to 'WindowsApplication1.My.MySettings'

يا أهل سوريا اعلنوها خلافة اسلامية لتكون الشام عقر دار المسلمين وخلاص ارض فلسطين

#4

حسنا الفكرة التي اريد تنفيذها هي كالاتي :

اريد ان يبحث الكود عن مربعات النص الموجودة في فورم معين فاذا كان المربع به قيمة فيقوم باسناد القيمة الموجودة في احد المتغيرات التي هي من نوع my.settings الى مربع نص موجود في فورم اخر

يا أهل سوريا اعلنوها خلافة اسلامية لتكون الشام عقر دار المسلمين وخلاص ارض فلسطين

#5
iamsad كتب:

حسنا الفكرة التي اريد تنفيذها هي كالاتي :

اريد ان يبحث الكود عن مربعات النص الموجودة في فورم معين فاذا كان المربع به قيمة فيقوم باسناد القيمة الموجودة في احد المتغيرات التي هي من نوع my.settings الى مربع نص موجود في فورم اخر

السلام عليكم الحقيقة علي قد استيعابي لطلبك فهذه طريقة تساعدك وتضيف فيها ماتريد داخل الجملة الشرطية if

  Dim IECntrl As Collections.IEnumerator
        Dim str As String

        IECntrl = Me.TabPage3.Controls

        While IECntrl.MoveNext
            If IECntrl.Current.GetType Is GetType(TextBox) Then
                If CType(IECntrl.Current, TextBox).Text.Length > 0 Then
                    str = CType(IECntrl.Current, TextBox).Name
                    str = "cos" & Mid(str, 8)
' اكتب ماتريد هنا بأتباع الطريقة للمجموعة IEnumerator

                End If
            End If
        End While

    End Sub

تم تعديل هذه المشاركة بواسطة hisham saad في 5 يوليو 2012 في 23:03

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…