02-10-12, 01:09 AM
كاتب الموضوع : kslawy
السلام عليكم ورحمة الله وبركاته
لو تلاحظون في الصورة أعلاه أن أدوات فيجوال بيسك في شريط الأدوات لها أيقونات
وعندما نصمم كنترول بأنفسنا تكون أيقونته المعروفة لدينا باللون البنفسجي كما يظهر في الصورة
إذ أردت أن تجعل للكنترول الخاص بك أيقونة قالأمر بسيط إن شاء الله انظر الكود التالي
شرح الكود السابق
KYTextBackColor اسم الكلاس الخاص بالكنترول الذي صممناه .
MyControlBitmap اسم الأيقونة في ملف الـ Resources .
ملحوظة : يجب أن يكون امتداد الأيقونة من نوع bmp
لمزيد من المراجعة
http://msdn.microsoft.com/en-us/libr...(v=vs.80).aspx
يوجد في الرابط أعلاه ثلاثة طرق لعمل الأيقونة جربها واحدة واحدة
*****
****
***
**
*
السلام عليكم ورحمة الله وبركاته
لو تلاحظون في الصورة أعلاه أن أدوات فيجوال بيسك في شريط الأدوات لها أيقونات
وعندما نصمم كنترول بأنفسنا تكون أيقونته المعروفة لدينا باللون البنفسجي كما يظهر في الصورة
إذ أردت أن تجعل للكنترول الخاص بك أيقونة قالأمر بسيط إن شاء الله انظر الكود التالي
كود :
[color=#000000][COLOR=#0000bb]Imports System[/color][color=#007700].[/color][COLOR=#0000bb]Drawing
[/COLOR][color=#007700]<[/color][color=#0000bb]ToolboxBitmap[/color][color=#007700]([/color][color=#0000bb]GetType[/color][color=#007700]([/color][color=#0000bb]KYTextBackColor[/color][color=#007700]), [/color][color=#dd0000]"MyControlBitmap"[/color][color=#007700])> [/color][COLOR=#0000bb]_
[/COLOR][color=#007700]Public Class [/color][COLOR=#0000bb]KYTextBackColor
Inherits System[/COLOR][color=#007700].[/color][color=#0000bb]Windows[/color][color=#007700].[/color][color=#0000bb]Forms[/color][color=#007700].[/color][COLOR=#0000bb]TextBox
Dim Mcolor [/COLOR][color=#007700]As [/color][color=#0000bb]Color [/color][color=#007700]= [/color][color=#0000bb]Color[/color][color=#007700].[/color][COLOR=#0000bb]LightBlue
[/COLOR][color=#007700]Public [/color][color=#0000bb]Sub [/color][COLOR=#007700]New()
[/COLOR][color=#0000bb]Me[/color][color=#007700].[/color][color=#0000bb]Width [/color][color=#007700]= [/color][COLOR=#0000bb]100
Me[/COLOR][color=#007700].[/color][color=#0000bb]Height [/color][color=#007700]= [/color][COLOR=#0000bb]20
End Sub
Property ColorOnMouseOver [/COLOR][color=#007700]As [/color][COLOR=#0000bb]Color
Get
[/COLOR][color=#007700]Return [/color][COLOR=#0000bb]Mcolor
End Get
Set[/COLOR][color=#007700]([/color][color=#0000bb]ByVal value [/color][color=#007700]As [/color][color=#0000bb]Color[/color][COLOR=#007700])
[/COLOR][color=#0000bb]Mcolor [/color][color=#007700]= [/color][COLOR=#0000bb]value
End Set
End Property
[/COLOR][color=#007700]Private [/color][color=#0000bb]Sub KYTextBackColor_MouseLeave[/color][color=#007700]([/color][color=#0000bb]ByVal sender [/color][color=#007700]As [/color][color=#0000bb]Object[/color][color=#007700], [/color][color=#0000bb]ByVal e [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]EventArgs[/color][color=#007700]) [/color][color=#0000bb]Handles Me[/color][color=#007700].[/color][COLOR=#0000bb]MouseLeave
Me[/COLOR][color=#007700].[/color][color=#0000bb]BackColor [/color][color=#007700]= [/color][color=#0000bb]Color[/color][color=#007700].[/color][COLOR=#0000bb]White
End Sub
[/COLOR][color=#007700]Private [/color][color=#0000bb]Sub KYTextBackColor_MouseMove[/color][color=#007700]([/color][color=#0000bb]ByVal sender [/color][color=#007700]As [/color][color=#0000bb]Object[/color][color=#007700], [/color][color=#0000bb]ByVal e [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]Windows[/color][color=#007700].[/color][color=#0000bb]Forms[/color][color=#007700].[/color][color=#0000bb]MouseEventArgs[/color][color=#007700]) [/color][color=#0000bb]Handles Me[/color][color=#007700].[/color][COLOR=#0000bb]MouseMove
Me[/COLOR][color=#007700].[/color][color=#0000bb]BackColor [/color][color=#007700]= [/color][COLOR=#0000bb]Mcolor
End Sub
End [/COLOR][COLOR=#007700]Class
[/COLOR][/COLOR]
شرح الكود السابق
كود :
[color=#000000][COLOR=#007700]<[/color][color=#0000bb]ToolboxBitmap[/color][color=#007700]([/color][color=#0000bb]GetType[/color][color=#007700]([/color][color=#0000bb]KYTextBackColor[/color][color=#007700]), [/color][color=#dd0000]"MyControlBitmap"[/color][color=#007700])> [/color][COLOR=#0000bb]_
[/COLOR][/COLOR]
KYTextBackColor اسم الكلاس الخاص بالكنترول الذي صممناه .
MyControlBitmap اسم الأيقونة في ملف الـ Resources .
ملحوظة : يجب أن يكون امتداد الأيقونة من نوع bmp
لمزيد من المراجعة
http://msdn.microsoft.com/en-us/libr...(v=vs.80).aspx
يوجد في الرابط أعلاه ثلاثة طرق لعمل الأيقونة جربها واحدة واحدة
*****
****
***
**
*