سؤال عن صنع ادوات الاكتف اكس

ضع هذا الكود في UserControl جديدة ستجد بها الخاصية Picture , Font, Enum ,Color

'property variables:
Dim m_Font As Font
Dim m_Picture As Picture
Enum AlignDir
		a_top = 1
		a_left = 2
		a_buttom = 3
		a_right = 4
End Enum
Dim m_align As AlignDir

Public Property Get MyAlign() As AlignDir
	MyAlign = m_align
End Property

Public Property Let MyAlign(ByVal New_Align As AlignDir)
   m_align = New_Align
	PropertyChanged "MyAlign"
End Property

Public Property Get BackColor() As OLE_COLOR
	BackColor = UserControl.BackColor
End Property

Public Property Let BackColor(ByVal New_BackColor As OLE_COLOR)
	UserControl.BackColor() = New_BackColor
	PropertyChanged "BackColor"
End Property

Public Property Get Font() As Font
	Set Font = m_Font
End Property

Public Property Set Font(ByVal New_Font As Font)
	Set m_Font = New_Font
	PropertyChanged "Font"
End Property

Public Property Get Picture() As Picture
	Set Picture = m_Picture
End Property

Public Property Set Picture(ByVal New_Picture As Picture)
	Set m_Picture = New_Picture
	PropertyChanged "Picture"
End Property

Private Sub UserControl_InitProperties()
	Set m_Font = Ambient.Font
	Set m_Picture = LoadPicture("")
End Sub

Private Sub UserControl_ReadProperties(PropBag As PropertyBag)

	UserControl.BackColor = PropBag.ReadProperty("BackColor", &H8000000F)
	Set m_Font = PropBag.ReadProperty("Font", Ambient.Font)
	Set m_Picture = PropBag.ReadProperty("Picture", Nothing)
	 m_align = PropBag.ReadProperty("MyAlign", 1)
End Sub

Private Sub UserControl_WriteProperties(PropBag As PropertyBag)

	Call PropBag.WriteProperty("BackColor", UserControl.BackColor, &H8000000F)
	Call PropBag.WriteProperty("Font", m_Font, Ambient.Font)
	Call PropBag.WriteProperty("Picture", m_Picture, Nothing)
	Call PropBag.WriteProperty("MyAlign", m_align, 1)

End Sub

شكرا لك اخي الكريم prof فهذا ما كنت احتاج اليه بالضبط

وبهذا سوف اكمل ادواتي بأذن الله ويعود الفضل لله ثم لك

وشكرا جزيلا والسلام عليكم

سؤال اخير اخي الكريم

اني اصنع مجموعة متكاملة من الادوات التي يمكن ان احتاجها في برامجي , فكيف اجمع هذه الادوات في اداة واحدة لكي اوفر الوقت والمساحة عند استدعاء هذه الادوات

و :ty: جزيلا

اقتباس

ريد ان اضيف خاصية لا تحتوي في قيمتها نص

- اذا كنت تستخدم الكود , فكما ذكر الأخ prof_1982

- اما اذا كنت تستخدم المعالج :

في نافذة Set Attributes (مكتوب في عنوان النافذة)

حدد نوع البيانات من خلال القائمة Data Type

تجد العديد من الانواع (منطقي , كائن , Byte , تاريخ , ألوان ...)

اقتباس

اني اصنع مجموعة متكاملة من الادوات التي يمكن ان احتاجها في برامجي , فكيف اجمع هذه الادوات في اداة واحدة لكي اوفر الوقت والمساحة عند استدعاء هذه الادوات

من قائمة File اختر New ومن ثم اختر مشروع ActiveX Control

وقم بإضافة ماتشاء من أدوات من خلال الضغط بالزر الأيمن في نافذة المشروع , واختيار New من القائمة المنسدلة , ثم اختيار User Control ومن ثم OK

ولتجميعهم معاً , من قائمة ملف اختر Make project1.ocx

شكرا لك اخي دلفاوي علي الاهتمام وفعلا استفدت منكم ولي اسفسار اخر بسيط

والاستفسار هو كالاتي :

كيف اغير ايقونة ادوات الاكتف اكس في صندوق الادوات ؟

اعزروني علي الاطالة لكن بأذن الله سيكون هذا اخر استفسار في هذا الموضوع لتكتمل عندي الافادة

وشكرا لتعاونكم

محمد مصطفي غريب كتب:

كيف اغير ايقونة ادوات الاكتف اكس في صندوق الادوات ؟

:D شكرا لكم اخاوني جميعا وبالفعل اكتملت عندي المعلومة كاملة والفضل لله ثم لكم في هذا الموضوع

وبأذن الله سوف اكمل مجموعة الادوات التي اصنعها وسوف اعرضها عليكم ليستفيد منها الجميع