منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

كاتب الموضوع : kslawy

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

لو تلاحظون في الصورة أعلاه أن أدوات فيجوال بيسك في شريط الأدوات لها أيقونات
وعندما نصمم كنترول بأنفسنا تكون أيقونته المعروفة لدينا باللون البنفسجي كما يظهر في الصورة

إذ أردت أن تجعل للكنترول الخاص بك أيقونة قالأمر بسيط إن شاء الله انظر الكود التالي

كود :

[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

يوجد في الرابط أعلاه ثلاثة طرق لعمل الأيقونة جربها واحدة واحدة

*****
****
***
**
*

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

RaggiTech