[RaggiTech]

كاتب الموضوع : 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

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


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