تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
إنشاء أيقونة للكنترول الخاص بك
#1
كاتب الموضوع : 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

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


*****
****
***
**
*
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طريقة إنشاء برنامج طباعة ملصقات الباركود ملهمـ 1 1,931 22-12-21, 05:09 PM
آخر رد: alessam4pro
Star حماية السورس كود الخاص بك من الكسر مجانا YousefOkasha 6 4,014 21-04-19, 12:41 PM
آخر رد: YousefOkasha
  [مشروع] تعلم كيف تصنع برنامج لنشر منشورات لحساب الفيس بوك الخاص بك Basil Abdallah 8 5,025 01-07-18, 01:21 AM
آخر رد: YousefOkasha
  دورة إنشاء برنامج مبيعات متكامل ملهمـ 1 2,068 02-05-18, 12:04 AM
آخر رد: عبد العزيز البسكري
  كيفية قراءة ملف باستخدام IntPtr الخاص بالملف silverlight 3 2,829 24-12-16, 03:13 AM
آخر رد: silverlight
  صمم الكلاس الخاص بك - كلاس للتعامل مع SQL SERVER ابو ليلى 11 6,954 03-09-16, 07:43 PM
آخر رد: tryold
  [VB.NET] تشغيل Twain الخاص بسحب الصور من السكنر في حالة net framework4 ahmed saleh 4 3,275 25-10-15, 07:20 PM
آخر رد: عدنان الشمري
  الصورة العربية - لآ مشقة بعد الآن في إنشاء الدروس ! RaggiTech 2 2,470 25-04-13, 12:22 PM
آخر رد: خليل اسماعيل
  كود لعرض الاي بي الخاص بك او بزائر الصفحة سعود 1 2,231 24-03-13, 03:44 PM
آخر رد: ربيع
  كيفية استخدام ملف التعريف الخاص بالتطبيق لاستهداف نسخة معينة من الفريموورك- ينطبق على RaggiTech 0 2,366 05-10-12, 01:46 AM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم