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

ارجوا المساعدة لدي سؤال في كيفيه اضافه خاصيه جديدة لكن لا اعرف كييف يمكنني ان اصل لهذا ....

بدأه BIN_DAGHAR في 29 أبريل 2008 · 3 رد · 803 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

شرح المشكله

اريد ان اضيف خاصيتان جديدتان للصنف TabPage الذي يكون اصلا ضمن الصنف TabControl

علمان بان كل الصنفان هما اصلا مورثان من system.windows.forms

عندما اضيف هذان الخصياتان للصنف المورث من الــ tabcontrol كما في الكود التالي فانه تتم العمليه بنجاح

Public Class TabControl
    Inherits System.Windows.Forms.TabControl
    Public StrEn As String
    Public StrAr As String
    Property lungEn() As String
        Get
            Return StrAr
        End Get
        Set(ByVal value As String)
            StrAr = value
        End Set
    End Property
    Property lungAr() As String
        Get
            Return StrEn
        End Get
        Set(ByVal value As String)
            StrEn = value
        End Set
    End Property
End Class

لكن عندما اضيف ما هذا االخصياتان للصنف المورث من الـــTabpage لاينتج اي شي كما في الكود التالي

السؤال هو كيف يمكننا ان اضيف خصائص الى خصائص الصنف الـــTabpage الذي هو ضمن الصنف tabcontral

Public Class Tabpage
    Inherits System.Windows.Forms.Tabpage
    Public StrEn As String
    Public StrAr As String
    Property lungEn() As String
        Get
            Return StrAr
        End Get
        Set(ByVal value As String)
            StrAr = value
        End Set
    End Property
    Property lungAr() As String
        Get
            Return StrEn
        End Get
        Set(ByVal value As String)
            StrEn = value
        End Set
    End Property
End Class
#2

اخي الكريم

الكود اللي انتا عامله صح في الحالتين لكن لكي تضيف او لكي يستخدم بصوره سليمه عليك ان تقوم بالاتي

مثلا في الحدث الخاص بالفورم

Form_load

اضف الكود التالي


Dim xTp As New TabPage
xTp.Text = "Fantom"
xTC.Dock = DockStyle.Fill

xTC.TabPages.Add(xTp)

Me.Controls.Add(xTC)
Dim xTC As New TabControl

او الكود ممكن تغيره بالشكل الاتي وفي الحاله دي سوف تظهر

TapPage

الذي اضفته مباشرة في

TapControl


Inherits System.Windows.Forms.TabControl
Public StrEn As String
Public StrAr As String
Property lungEn() As String
Get
Return StrAr
End Get
Set(ByVal value As String)
StrAr = value
End Set
End Property

Property lungAr() As String
Get
Return StrEn
End Get
Set(ByVal value As String)
StrEn = value
End Set
End Property

Dim xTp As New TabPage

Public Sub New()
xTp.Text = "Fantom"
With Me
.TabPages.Add(xTp)
.Dock = DockStyle.Fill
End With
End Sub

End Class
Public Class TabControl

بالتوفيق

اخوك عمر

تم تعديل هذه المشاركة بواسطة a_pess في 29 أبريل 2008 في 18:18

#3

مشكوووووور يا اخي عمر على تعبك معاي

الكود الي انت كتبته >> الخصائص لم تضاف للــــصنف Tabpage بل اصفيت لخصائص الـــ Tabcontrol

وهذا ليس هو اللي ابغاه

ومره اخرى انا شاكرلك تعبك معاي

اخوط محمد فارس

تم تعديل هذه المشاركة بواسطة BIN_DAGHAR في 29 أبريل 2008 في 19:03

#4

لقد حلت المشكله اخير انا انه ليس الاحل انه ليس الحل الامثل لكنه يفى بالغرض

عموما سوف ارسل الحل قريبا ربما يحتاجها احد الاعضاء ايضا

تم تعديل هذه المشاركة بواسطة BIN_DAGHAR في 30 أبريل 2008 في 19:27

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

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

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

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

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