PDA

View Full Version : سوال: ميشه توي برنامه در زمان اجرا property تعريف كرد؟



combo_ci
سه شنبه 24 اردیبهشت 1387, 07:22 صبح
سلام
كسي ميدونه چطوري ميشه توي برنامه در زمان اجرا property تعريف كرد؟

saghi63
سه شنبه 24 اردیبهشت 1387, 10:27 صبح
به طور مثال اگه می خوای واسه یه Label تعریف کنی ، بهترین کار اینه اول یه Label رو فرمت بذار Property اون و تغییر بده ، بعد برو form1.design.vb و مثلا باز کن و اونجا نام Label و سرچ کن و می تونی ببینی Property اون چه طوری نوشته شده ، همون Property و باید واسهلیبل بنویسی .

مثلا من در این مثال در حالت ران تایم یه Label تعریف می کنم :

dim Test_Label as New Label
Test_Label.BackColor=systm.drawing.color.Red
(Test_Label.Location=New Point(100,200

eyes_shut_number1
سه شنبه 24 اردیبهشت 1387, 10:40 صبح
این چیزی که شما گفتی ست کردن پررتی هست!
درست کردن نمیشه!
البته فکر کنم سوال دوستمون گنگ بود

combo_ci
چهارشنبه 25 اردیبهشت 1387, 20:53 عصر
ببينيد من يه كلاس براي كار با database نوشتم...حالا ميخوام در زمان اجرا به object كه از اوون كلاس ميگرم اسم يك table رو پاس بدم و داخل اوون كلاس به اسم فيلد هاي اوون table به كلاس به صورت dynamic اضافه بشه....نحوه بدست اوردن فيلدهاي يك جدول رو با استفاده از query بدست آوردم اما نميدونم چطوري اونا رو به صورت property در زمان اجرا به كلاسم اضافه كنم

Dariuosh
پنج شنبه 26 اردیبهشت 1387, 01:21 صبح
خوب حالا که داري برا ارتباط با DataBase يه کلاس درست ميکني به اينجا هم يه سر بزن شايد به دردت بخوره
http://barnamenevis.org/forum/showthread.php?p=495646

بعدشم ميتوني يه Property از نوع آرايه تعريف کني !
در ضمن ميتوني يه DataSet هم به کلاست اضافه کني که Tableهاتو بهش Add کني که ديگه همه Tableهات دمه دستت باشن

Dariuosh
پنج شنبه 26 اردیبهشت 1387, 02:07 صبح
اينم يه کلاس برا DataSetايي که بالا گفتم


Public Class Collection
Private Shared mvarDs As DataSet
Public Shared Sub AddTable(ByVal TableName As String)
With Ds
If .Tables.Contains(TableName) = False Then
.Tables.Add(New DataTable(TableName, TableName))
.Tables(.Tables.IndexOf(TableName)).TableName = TableName
End If
End With
End Sub
Public Shared ReadOnly Property Ds() As DataSet
Get
If IsNothing(mvarDs) Then
mvarDs = New DataSet
End If
Return mvarDs
End Get
End Property
End Class

اينجوري ديگه به همه Tableها دسترسي داري

titbasoft
پنج شنبه 26 اردیبهشت 1387, 10:40 صبح
پیشنهاد می کنم در مورد LINQ (http://msdn.microsoft.com/en-us/netframework/aa904594.aspx) مطالعه کنید

حسین نیک پور
شنبه 28 اردیبهشت 1387, 10:39 صبح
Please read Call by Name Function in MSDN