[kslawy]

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

[ATTACH=CONFIG]62[/ATTACH]

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

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

PHP كود :

Imports System.Drawing 


<ToolboxBitmap(GetType(KYTextBackColor), "MyControlBitmap")> _ 
Public Class KYTextBackColor 

    Inherits System.Windows.Forms.TextBox 

    Dim Mcolor As Color = Color.LightBlue 

    Public Sub New() 
        Me.Width = 100 
        Me.Height = 20 
    End Sub 

    Property ColorOnMouseOver As Color 
        Get 
            Return Mcolor 
        End Get 
        Set(ByVal value As Color) 
            Mcolor = value 
        End Set 
    End Property 

    Private Sub KYTextBackColor_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseLeave 
        Me.BackColor = Color.White 
    End Sub 

    Private Sub KYTextBackColor_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove 
        Me.BackColor = Mcolor 
    End Sub 

End Class 


شرح الكود السابق

كود :

[align=left]<ToolboxBitmap(GetType(KYTextBackColor), "MyControlBitmap")> _ [/align]

KYTextBackColor اسم الكلاس الخاص بالكنترول الذي صممناه .
MyControlBitmap اسم الأيقونة في ملف الـ Resources .

ملحوظة : يجب أن يكون امتداد الأيقونة من نوع bmp وبحجم 16 × 16

لمزيد من المراجعة
http://msdn.microsoft.com/en-us/libr...(v=vs.80).aspx

رابط آخر به توضيح أكثر في منتديات مايكروسوفت http://support.microsoft.com/kb/311315

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


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

[أسامة أحمد]

شرح مميز اخي الحبيب

[sippar]

اخي ضع لنا مثال لم تظهر لي الايقونة