تقييم الموضوع :
  • 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

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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سكريبت إنشاء قاعدة البيانات لل SQL SERVER عبد العزيز البسكري 2 148 25-05-18, 06:58 PM
آخر رد: ابوثامر الحربي
  دورة إنشاء برنامج مبيعات متكامل ملهمـ 1 170 02-05-18, 12:04 AM
آخر رد: عبد العزيز البسكري
  [مشروع] تعلم كيف تصنع برنامج لنشر منشورات لحساب الفيس بوك الخاص بك Basil Abdallah 7 1,094 11-03-17, 03:54 PM
آخر رد: Riad dz
  كيفية قراءة ملف باستخدام IntPtr الخاص بالملف silverlight 3 690 24-12-16, 03:13 AM
آخر رد: silverlight
  صمم الكلاس الخاص بك - كلاس للتعامل مع SQL SERVER ابو ليلى 16 2,768 03-09-16, 07:43 PM
آخر رد: tryold
  [VB.NET] تشغيل Twain الخاص بسحب الصور من السكنر في حالة net framework4 ahmed saleh 4 1,347 25-10-15, 07:20 PM
آخر رد: عدنان الشمري
  الصورة العربية - لآ مشقة بعد الآن في إنشاء الدروس ! RaggiTech 2 1,221 25-04-13, 12:22 PM
آخر رد: خليل اسماعيل
  كود لعرض الاي بي الخاص بك او بزائر الصفحة سعود 1 1,318 24-03-13, 03:44 PM
آخر رد: ربيع
  كيفية استخدام ملف التعريف الخاص بالتطبيق لاستهداف نسخة معينة من الفريموورك- ينطبق على RaggiTech 0 661 05-10-12, 01:46 AM
آخر رد: RaggiTech
  مثال على عملية إنشاء Windows Service – إنشاء برنامج تشفير تلقائي للملفات RaggiTech 1 840 05-10-12, 01:42 AM
آخر رد: RaggiTech

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


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