اختصاص یک نوع خاصیت جدید به کنترل موجود

[omid-vbAuto]

با سلام دوستان

من این کد رو دارم و می خوام این کد رو برا یک تکس باکس بذارم و اونو تبدیل به dll کنم و همیشه استفاده کنم.حالا مشکل من اینکه می خوام این خواصیت جدید رو که برنامه نویسی کردم رو بفرستم قاطی خواصیت های موجود تکس باکس.

کد اینه:


Public Class Form1


Private Sub txt_color(ByVal color_Name As Color)

Me.TextBox1.ForeColor = color_Name

End Sub



Private Sub txt_Center(ByVal Center_TXT As Boolean)

If Center_TXT = True Then
Me.TextBox1.TextAlign = HorizontalAlignment.Center
Else
Me.TextBox1.TextAlign = HorizontalAlignment.Left
End If

End Sub




Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
txt_color(Color.Green)
txt_Center(True)
End Sub



End Class



حالا می خوام این دو خواص txt_color و txt_Center بره بین خواص موجود تکس باکس.فقط بهم بگین در پروژه WindowsControlLibrary1 چه کدی رو بید بنویسم تا این اتفاق بیفته.

[alimanam]

با سلام

خوب کافیه یه پروژه از نوع Class Library ایجاد میکردی و اون 2 تابع رو به صورت Public مینوشتی یعنی اینجوری :

Imports System.Windows.Forms
Imports System.Drawing

Public Class OmidTxtBox
Inherits TextBox


Public Sub txt_color(ByVal color_Name As Color)

Me.ForeColor = color_Name

End Sub

Public Sub txt_Center(ByVal Center_TXT As Boolean)

If Center_TXT = True Then
Me.TextAlign = HorizontalAlignment.Center
Else
Me.TextAlign = HorizontalAlignment.Left
End If

End Sub

End Class

موفق باشی ./

[omid-vbAuto]

با سلام

خوب کافیه یه پروژه از نوع Class Library ایجاد میکردی و اون 2 تابع رو به صورت Public مینوشتی یعنی اینجوری :

Imports System.Windows.Forms
Imports System.Drawing

Public Class OmidTxtBox
Inherits TextBox


Public Sub txt_color(ByVal color_Name As Color)

Me.ForeColor = color_Name

End Sub

Public Sub txt_Center(ByVal Center_TXT As Boolean)

If Center_TXT = True Then
Me.TextAlign = HorizontalAlignment.Center
Else
Me.TextAlign = HorizontalAlignment.Left
End If

End Sub

End Class

موفق باشی ./




سلام علی جان امروز وقت کردم کدهائی که دادی رو ببینم. ولی این اون چیزی نبود که من می خواستم.!!!

من می خواستم txt_Center و txt_color بره تو پروپرتیس. ولی نرفته که.

[ArashRoshan]

خب اگه این کار رو بکنی اضافه می شه .

[omid-vbAuto]

منظورم این قسمت هست:
74673

[alimanam]

با سلام عید همه مبارک ....

امید بعضی وقتا چیزایی میخوای از آدم که .....:افسرده: خوب مگه خود تکس باکس نداره که میخوای بهش همچین ویژگیهایی رو اضافه کنی !!!

کدهای بالا رو به این صورت تغییر بده درست میشه :

Imports System.Windows.Forms
Imports System.Drawing
Public Class Omid_txt
Inherits TextBox

Dim _color As Color = Color.Blue
Dim _alignment As HorizontalAlignment = HorizontalAlignment.Center
Public Property MyForColorName() As Color
Get
Return _color
End Get
Set(ByVal value As Color)
_color = value
Me.ForeColor = _color
End Set
End Property

Public Property MyTxtAlignment() As HorizontalAlignment
Get
Return _alignment
End Get
Set(ByVal value As HorizontalAlignment)
_alignment = value
Me.TextAlign = _alignment
End Set
End Property

End Class

موفق باشی ./ :لبخندساده:

[omid-vbAuto]

حالا چطوری می تونیم یه ایکن به dll خودمون تو toolbox بذاریم؟:شیطان:


74678

[alimanam]

برو حالشو ببر

http://20uploads.com/images/1390/shahrivar/13148330601.png


http://20uploads.com/images/1390/shahrivar/13148328151.png

[omid-vbAuto]

علی جان شما از کد زیر استفاده کردین برای دادن حالت رنگ تو قسمت خواص این dll :

Dim _color As Color = Color.Blue


حالا اگه بخوام حالت زیر رو بجای حالت رنگ داشته باشم باید چکار کنم؟ لطفا این رو دقیق بفرمائید . همچنین یک راهنمائی کلی تا سایر موارد رو خودم حل کنم. با تشکر.



74681

[alimanam]

منظورتو متوجه نمیشم یعنی میخوای یه پروپرتی از نوع عکس داشته باشی ؟

[omid-vbAuto]

منظورتو متوجه نمیشم یعنی میخوای یه پروپرتی از نوع عکس داشته باشی ؟

یه پروپرتی از نوع عکس و یکی از نوع صدا.

ولی در حالت کلی تر و مهمتر یه حالت (...) داشته باشم تا هر فایلی رو از کامپیوتر به هش معرفی کنم.

اوکی؟

[omid-vbAuto]

علی جان سوالم سخته؟

[alimanam]

یه پروپرتی از نوع عکساز نوع عکس که مثل بقیه است فقط باید نوعش رو از نوع Image انتخاب کنی و بقیه اش با بقیه فرقی نداره یعنی اینجوری میشه :

Dim _Image As Image = Nothing
Public Property MyImage() As Image
Get
Return _Image
End Get
Set(ByVal value As Image)
_Image = value
End Set
End Property

در مورد صدا فکرکنم منظورت انتخاب یک فایل صوتی یا به صورت کلی هر گونه فایل هستش که من تا حالا همچین چیزی ننوشتم باید در موردش بیشتر جستجو کنم .

موفق باشی ./

[omid-vbAuto]

M

سلام علی جون

کدی که دادی رو یه قسمتش رو متوجه نمیشم.ببینید:

Dim _Image As Image = Nothing

میاد یه متغییر از نوع عکس با پیش فرض هیچ درست میکنه.

بقیش برام بغرنجه می تونید خط به خط توضیح بدین چه اتفاقی میفته؟

Public Property MyImage() As Image
Get
Return _Image
End Get
Set(ByVal value As Image)
_Image = value
End Set
End Property

آخه می تونم از این کد به صورت طوطی وار استفاده کنم . اما می خوام معناش هم بدونم.

[alimanam]

بقیش برام بغرنجه می تونید خط به خط توضیح بدین چه اتفاقی میفته؟ آخه می تونم از این کد به صورت طوطی وار استفاده کنم . اما می خوام معناش هم بدونم.

امیدم من چه توضیحی بدم آخه مثل اینه که بپرسی تعریف یه متغیرو توضیح بده ! اگه متوجه نمیشی باید یکم بیشتر وقت بزاری و یکم در مورد تعریف Property مطالعه داشته باشی ولی در کل در حد یک خط یه چیزی میگم که حق دوستیمون رو ادا کرده باشم :قهقهه:

ببین در خط اول مقدم ( همون جا که بچه ها دارن آتیش میریزن رو سر عراقیا ! ) اومدیم یه ویژگی یا همون Property از نوع Image تعریف کردیم

در خط دوم که بچه های منتظر حمله هستن مقدار پیش فرض رو به این پروپرتی نسبت دادیم ( که من در این مثال مقدار هیچی رو براش در نظر گرفتم ) در قسمت بعدی ( پشت خط ! ) ( Set ) به کاربر این امکان رو میدیم که مقدار این ویژگی رو به دلخواه خودش تغییر بده . این بود توضیحات بنده اگه بازم متوجه نشدی کار از بیخ خرابه هاااااااااااااااااااااااا ااااااا :لبخند:

[omid-vbAuto]

امیدم من چه توضیحی بدم آخه مثل اینه که بپرسی تعریف یه متغیرو توضیح بده ! اگه متوجه نمیشی باید یکم بیشتر وقت بزاری و یکم در مورد تعریف Property مطالعه داشته باشی ولی در کل در حد یک خط یه چیزی میگم که حق دوستیمون رو ادا کرده باشم :قهقهه:

ببین در خط اول مقدم ( همون جا که بچه ها دارن آتیش میریزن رو سر عراقیا ! ) اومدیم یه ویژگی یا همون Property از نوع Image تعریف کردیم

در خط دوم که بچه های منتظر حمله هستن مقدار پیش فرض رو به این پروپرتی نسبت دادیم ( که من در این مثال مقدار هیچی رو براش در نظر گرفتم ) در قسمت بعدی ( پشت خط ! ) ( Set ) به کاربر این امکان رو میدیم که مقدار این ویژگی رو به دلخواه خودش تغییر بده . این بود توضیحات بنده اگه بازم متوجه نشدی کار از بیخ خرابه هاااااااااااااااااااااااا ااااااا :لبخند:

M
سرباز رو خوب آمدی.:قهقهه:

خودمونیم یه طوری توضیح دادی که اگه هم متوجه نشده باشم باید بگو متوجه شدم.:افسرده::افسرده::چشمک: