الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

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

مغلق
بدأه شمس الزناتي في 9 ديسمبر 2005 · 45 رد · 7,928 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#26

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

#27

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

خطوات فيجوالية

--------------------------------------

التحزيم بواسطة Package & Deployment Wizard

أداة all date للتعامل مع الوقت

التعامل مع app.path دروس للمبتدئين

اصنع ocx من تصميمك لجميع احتيجاتك دروس للمبتدئين

شرح برنامج fack foder لحماية الفهارس

مواضيع اخرى

--------------------------------------

سجل بياناتك للاشتراك في رابطة المبرمجين المصريين, للاخوة المصريين او العرب المقيمين بمصر

عني = about me

--------------------------------------

مدونتي مصري للنهاية

--------------------------------------

على اسم مصر التاريخ يقدر يقول ما شاء ............... انا مصر عندي احب و اجمل الاشياء

#28

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

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

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

#29

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

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

وشكراااا

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

وشكرااا

حقيقة الانسان تاجر الحياة لماذا ؟

السعادة لها ثمن يحددها الانسان

الفرحة لها ثمن يحددها الانسان

الحزن لة ثمن يحدده الانسان

يا انسان ( يابنى ادم )

انت تأكل وتلبس وتشرب لكى تغذى الجسد اما الروح فين دى جعاااااااااااااانة من زمان غذى الروح كمان عارف ولا اعرفك (هعرفك )

قول ورايا ( لا اله الا الله :: محمد رسول الله ) انت اكلت روحك كمل انت بئة ( شربها ولبسها .......)

#30

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

#31

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

وفقكم الله

#32

up

خطوات فيجوالية

--------------------------------------

التحزيم بواسطة Package & Deployment Wizard

أداة all date للتعامل مع الوقت

التعامل مع app.path دروس للمبتدئين

اصنع ocx من تصميمك لجميع احتيجاتك دروس للمبتدئين

شرح برنامج fack foder لحماية الفهارس

مواضيع اخرى

--------------------------------------

سجل بياناتك للاشتراك في رابطة المبرمجين المصريين, للاخوة المصريين او العرب المقيمين بمصر

عني = about me

--------------------------------------

مدونتي مصري للنهاية

--------------------------------------

على اسم مصر التاريخ يقدر يقول ما شاء ............... انا مصر عندي احب و اجمل الاشياء

#33

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

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

#34

شكرا جزيلا

#35

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

الدرس الثالث

احد وظائف الاداة و هي طرح تاريخين و فكرة الكود هي التأكد من ان التاريخ الاول اكبر من الثاني ثم بعد ذلك طرحهم بالامر المخصص لذلك و وضعهم في 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

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

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

انتهى

خطوات فيجوالية

--------------------------------------

التحزيم بواسطة Package & Deployment Wizard

أداة all date للتعامل مع الوقت

التعامل مع app.path دروس للمبتدئين

اصنع ocx من تصميمك لجميع احتيجاتك دروس للمبتدئين

شرح برنامج fack foder لحماية الفهارس

مواضيع اخرى

--------------------------------------

سجل بياناتك للاشتراك في رابطة المبرمجين المصريين, للاخوة المصريين او العرب المقيمين بمصر

عني = about me

--------------------------------------

مدونتي مصري للنهاية

--------------------------------------

على اسم مصر التاريخ يقدر يقول ما شاء ............... انا مصر عندي احب و اجمل الاشياء

#36

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

خطوات فيجوالية

--------------------------------------

التحزيم بواسطة Package & Deployment Wizard

أداة all date للتعامل مع الوقت

التعامل مع app.path دروس للمبتدئين

اصنع ocx من تصميمك لجميع احتيجاتك دروس للمبتدئين

شرح برنامج fack foder لحماية الفهارس

مواضيع اخرى

--------------------------------------

سجل بياناتك للاشتراك في رابطة المبرمجين المصريين, للاخوة المصريين او العرب المقيمين بمصر

عني = about me

--------------------------------------

مدونتي مصري للنهاية

--------------------------------------

على اسم مصر التاريخ يقدر يقول ما شاء ............... انا مصر عندي احب و اجمل الاشياء

#37

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

بالتوفيق

((رحلة العودة الى العالم الافتراضي قد بدأت))

#38

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

#39

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

خطوات فيجوالية

--------------------------------------

التحزيم بواسطة Package & Deployment Wizard

أداة all date للتعامل مع الوقت

التعامل مع app.path دروس للمبتدئين

اصنع ocx من تصميمك لجميع احتيجاتك دروس للمبتدئين

شرح برنامج fack foder لحماية الفهارس

مواضيع اخرى

--------------------------------------

سجل بياناتك للاشتراك في رابطة المبرمجين المصريين, للاخوة المصريين او العرب المقيمين بمصر

عني = about me

--------------------------------------

مدونتي مصري للنهاية

--------------------------------------

على اسم مصر التاريخ يقدر يقول ما شاء ............... انا مصر عندي احب و اجمل الاشياء

#40
شمس الزناتي كتب:
بسم الله الرحمن الرحيم

الدرس الثانى

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

مبدئيا لقد رغبت شخصيا ألا يغير من يستعمل الاداة مقاسها اي انها تظل على حجم ثابت كالاداة 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

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

#41

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

خطوات فيجوالية

--------------------------------------

التحزيم بواسطة Package & Deployment Wizard

أداة all date للتعامل مع الوقت

التعامل مع app.path دروس للمبتدئين

اصنع ocx من تصميمك لجميع احتيجاتك دروس للمبتدئين

شرح برنامج fack foder لحماية الفهارس

مواضيع اخرى

--------------------------------------

سجل بياناتك للاشتراك في رابطة المبرمجين المصريين, للاخوة المصريين او العرب المقيمين بمصر

عني = about me

--------------------------------------

مدونتي مصري للنهاية

--------------------------------------

على اسم مصر التاريخ يقدر يقول ما شاء ............... انا مصر عندي احب و اجمل الاشياء

#42

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

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

#43

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

( شمس اسم رجل )

خطوات فيجوالية

--------------------------------------

التحزيم بواسطة Package & Deployment Wizard

أداة all date للتعامل مع الوقت

التعامل مع app.path دروس للمبتدئين

اصنع ocx من تصميمك لجميع احتيجاتك دروس للمبتدئين

شرح برنامج fack foder لحماية الفهارس

مواضيع اخرى

--------------------------------------

سجل بياناتك للاشتراك في رابطة المبرمجين المصريين, للاخوة المصريين او العرب المقيمين بمصر

عني = about me

--------------------------------------

مدونتي مصري للنهاية

--------------------------------------

على اسم مصر التاريخ يقدر يقول ما شاء ............... انا مصر عندي احب و اجمل الاشياء

#44

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

موقوف من المشاركة لقلة الأدب

============================

#45

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

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

#46
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 يقوم بما تريد.

هذا الموضوع مغلق.

مواضيع مشابهة