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

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

السؤال الاول : كيف احذف خاصية من خصائص الاداة

السؤال الثاني : كيف اخلي قيمة افتراضية للخصائص مثال انظر الصورة


استدعي مجال الاسماء
Imports System.ComponentModel

والخاصية التي تريد الغائها اعمل اول شي اعادة قيادة Overrides لتظهر عندك ثم ضع مثل الكود التالي وهو اداة TextBox

كود :
Inherits TextBox
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
    Public Overrides Property Text As String
        Get
            Return MyBase.Text
        End Get
        Set(ByVal value As String)
            MyBase.Text = value
        End Set
    End Property

اما سؤالك الثاني فالكود التالي قبل الخاصية يجعل الزر Reset مفعل

كود :
<DefaultValue(True)> _
جزاك الله خيرا اخي الكريم عبدودي
طيب ممكن اعرف حدرتك كيف عرفت ذلك يعني من اين حصلت علي هذه المعلومات
بحيث لما احتاج الي شئ اخر
وشكرا لك
السلام عليكم
معلش في سؤال
الدالة
كود :
DefaultValue(True)
كيف امرر لها لون Color
اخي انا قرأت سابقآ في كتب عن المواصفات وطريقة استخدامها وايضآآ حفظت مواصفات معينه للخصائص مثل الي ذكرتها ,, صراحة لا اعرف اين يمكنك ان تجد شرح كامل عنها لان انا تعلمت قسم منها من كتاب الاستاذ تركي العسيري والباقي متفرقات من خلال تطبيقي وبحثي من النت
موفق
جزاك الله خيرا اخي عبودي
طيب بالنسبة للدالة DefaultValue كيف امرر ليها لون او خط او شئ تاني
لا اعرف طريقة استرجاع لون بصراحة لكن النص والمتغيرات المنطقية ممكن

كود :
Inherits TextBox

    <System.ComponentModel.DefaultValue("3booody")> _
    Public Overrides Property Text As String
        Get
            Return MyBase.Text
        End Get
        Set(ByVal value As String)
            MyBase.Text = value
        End Set
    End Property
وفي مشكلة اخري في نفس الدالة
انها تقبل النص مباشرتا لاكن لا تقبل متغير نصي
مارأيك بهذه الحركة

PHP كود :
<System.ComponentModel.DefaultValue(GetType(Color), "Red")> _
Public Overrides Property BackColor() As Color
    Get
        
Return MyBase.BackColor
    End Get
    Set
        MyBase
.BackColor value
    End Set
End Property