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

أنشاء Property جديدة للكنترول

مغلق
بدأه ccmfe2003 في 30 نوفمبر 2007 · 3 رد · 745 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع
بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته أريد أن أعرف طيف يمكن عمل property وبداخلها متغيرات يمكن أعطاء هذه المتغيرات قيم عند أستدعاء هذه الproperty أو عند تركها فارغه تأخذ قيم أفتراضيه

عارف أن السؤال مش واضح بس أنا عايز أعمل كنترول فيه property أسمها table وبداخلها:-

1-أسم الجدول(tablename) وهو طبعا string

2- أسم الPK في هذا الجدول

وهكذا

وأذا لم يدخل المستخدم أسم الجدول أو الPK يكون هناك قيم أفتراضيه.

أعرف أنه عن طريق الStructure بس حاولت كتير أعملها بس مش عارف ياريت لو حد يشرحلي مثال

شكرا

post-27953-1196446583_thumb.jpg

#2

مادا تقصد بالكنترول ؟؟ هل تقصد أنك تريد إنشاء Class و إعطاءها Attributes & Property ؟؟

توسع في شرح ما تريد عمله ...

مقالاتي في VB.NET وبرامجي على موقعي الجديد :

#3

السلام عليكم ورحمة الله

الطريقة القياسية المتبعة هي انشاء متغير private لتخزين القيمة التي يتم اسنادها عن طريق الـ Property ، على سبيل المثال اسم الجدول

Private _tableName As String
Public Property TableName As String
Get
Return _tableName
End Get
Set(ByVal value As String)
_tableName=value
End Set
End Property

بالنسبة للشفرات داخل الكنترول تستخدم المتغيرات الـ Private وهي التي يتم فيها تخزين القيم التي يتم تمريرها عبر الخواص Properties

والله الموفق

#4

السلام عليكم ورحمة الله وبركاته

شكرا أخي Ammar Gaffar و أخي Fikou-sama على ردودكم

أنا أريد أن أعمل كنترول (user control) وأجعل لها property بداخلها property أخرى كما فى الصوره السابقه

ما توصلت أليه أن هذا يحدث كما فى المثال التالي

 Structure DB
        Public TableNam As String
        Dim FiledID As String
        Dim FieldEnglishName As String
        Dim FildArabicName As String
        Dim FiledDescription As String

        Public Function SetTableName(Optional ByVal Name As String = "") As String
            TableNam = Name
            Return Name
        End Function
End Structure
'---------------------------
Then
'---------------------------

    Public Property Table() As DB
        Get
            Return G
        End Get
       Set(ByVal value As DB)

            G.FiledID = value.FiledID
        End Set
    End Property
'---------------------------

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'The Error is here
Me.Table.TableNam = "h"
End Sub

أريد أن أعرف كيف أعطي قيمه لTableNam بدون أجبار اليوزر الذي يستخدم الأداه إلي تعريف أوبجكت من الStructure DB وعندما قمت بعمل الفانكشن SetTableName لم أعرف كيف أستخدمها

تم تعديل هذه المشاركة بواسطة ccmfe2003 في 1 ديسمبر 2007 في 19:19

هذا الموضوع مغلق.

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