صمم ocx بنفسك لجميع احتياجاتك

لازلنا منتظرين باقية الدروس في تصميم الادواد وارجو منك الرد علي الاستفسار السابق

اسف جدا جدا على التأخير كان لظروف خارج الارادة و الدرس الثالث قريبا

شكرا لك عزيزى شمس الزناتى على طرحك للموضوع

و منتظرين الدرس الثالث يا مان

تحياتى العطرة

اخى ممكن عمل ذلك من غير ما تكتب اى كود

استخدموا معالج الفجوال بيسك الخاص بالاداة وبالمشاريع الخاصة بالاكسف اكس

وشكراااا

اى سؤال عن المعالج انا جاهز

وشكرااا

نرجو تكملت الدروس أخي شمس

في إنتظار متابعة الشرح

وفقكم الله

up

حمد الله علي السلامة أخي شمس

واتمني تكملة دروس انشاء ادوات اكتف اكس

شكرا جزيلا

بسم الله الرحمن الرحيم

الدرس الثالث

احد وظائف الاداة و هي طرح تاريخين و فكرة الكود هي التأكد من ان التاريخ الاول اكبر من الثاني ثم بعد ذلك طرحهم بالامر المخصص لذلك و وضعهم في Function و الكود كالتالي

Public Function differentdate(newDate As Date, oldDate As Date)
On Error GoTo shams
Y2 = Year(newDate)
m2 = Month(newDate)
d2 = Day(newDate)
Y1 = Year(oldDate)
m1 = Month(oldDate)
d1 = Day(oldDate)
If Y2 < Y1 Then
    MsgBox ("لا يمكن طرح تاريخ حديث من قديم")
    Exit Function
ElseIf Y2 = Y1 Then
    If m2 < m1 Then
        MsgBox ("لا يمكن طرح تاريخ حديث من قديم")
        Exit Function
    ElseIf m2 = m1 Then
        If d2 < d1 Then
            MsgBox ("لا يمكن طرح تاريخ حديث من قديم")
            Exit Function
        End If
    End If
End If
differentdate = shams.diff(newDate, oldDate)
Exit Function
shams:
MsgBox ("من فضلك أدخل التاريخ بشكل صحيح")
End Function

و الان قد شرحنا احدوظائف الاداة

نحمد الله الذي اعطانا القدرة على الاستمرار

انتهى

اي سؤال انا جاهز

مشكوووووووووووووووووووووووور

بالتوفيق

شكرا لك اخي شمس ونتمني منك مزيد من الدروس في هذا الجزء المهم جدا في الفيجول

ربنا يعيني قريبا ان شاء الله

شمس الزناتي كتب:

بسم الله الرحمن الرحيم

الدرس الثانى

اخوانى بعد ان قمنا بتصميم خصائص الاداة علينا الان كتابة الكود

مبدئيا لقد رغبت شخصيا ألا يغير من يستعمل الاداة مقاسها اي انها تظل على حجم ثابت كالاداة active skin لذلك قمت باضافة timer و جعت الخاصية interval =1 و كتبت الكود التالى (داخل الكود يمكنك ان ترى الحدث )

Private Sub Timer1_Timer()
UserControl.Width = 510
UserControl.Height = 470
End Sub

و الان علينا بوضع اكواد و وظائف الاداة و لكي تجعل الاداة تتفاعل مع مستخدمها عليك ان تضع وظائفها في fuction على سبيل المثال لو تريد وضع تعليق على الصانع اثناء تصميم الاداة يمكنك وضع التالى

Public Function aboutmaker()
MsgBox ("shams")
End Function

و يظهر اثناء استعمال الاداة كما في الصورة

و الان فهمنا كيف يمكننى وضع وظيفة للأداة

قريبا سأقوم بشرح احد الوظائف التى قامت بها الاداة من تصميمى (all date) هل تؤيدون ذلك ؟

شكرا لك لكن لماذا و ضعت الكود التالي

في timer

اقتباس

Private Sub Timer1_Timer()
UserControl.Width = 510
UserControl.Height = 470
End Sub

وهذا يأخذ من الذاكرة يمكنك وضعه في حدث resize

حيث لا يستهلك ذاكرة أبدا و شكرا

لكل مبرمج طريقته

نعم لكن شرحت لماذا عندما تضعينها في resize

أ6فضل يا أنسة شمس

اذن فانت مشكور للافادة

( شمس اسم رجل )

ممتاز الله يوفقك

اخوانى الاعزاء كيف يمكن ان اضيف خاصية لل ocx يتم تغييرها من نافذة الخصائص الموجودة فى يمين نافذة ال visual basic

مثل خاصية الbackcolor الخاصة بال textbox

Option Explicit

'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MappingInfo=UserControl,UserControl,-1,BackColor
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

'Load property values from storage
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)

	UserControl.BackColor = PropBag.ReadProperty("BackColor", &H8000000F)
End Sub

'Write property values to storage
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)

	Call PropBag.WriteProperty("BackColor", UserControl.BackColor, &H8000000F)
End Sub

أستعمل الـ ActiveX Control Interface Wizard للقيام بهذه المهام.

من قائمة Add-Ins أختر Add-In Manager ثم اضغط مرتين على الـ VB6 ActiveX Control Wizard أو ضغطه واحده ثم ضع علامة على Loaded/Unloaded ثم أضغط OK ستجد فى قائمة Add-Ins عنصر جديد يفتح لك Wizard يقوم بما تريد.