تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] هل يوجد مثال حول أستخدم هذه الاادرة الموجوده في الصورة المرفقه ؟؟
#1
Question 
الاخوه الكرام
السلام عليكم ورحمة وبركاته
هل يوجد مثال حول أستخدم هذه الاادرة الموجوده في الصورة المرفقه ؟؟
نامل من الله المساعدة والله يحفظكم ويرعاكم
وكل عام وانتم با الف صحه وعافيه


الملفات المرفقة صورة/صور
   
إذا ضاقت بك الأحوال يوماً     فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
الرد }}}
تم الشكر بواسطة:
#2
.....

مشروع ActiveX.DLL ينتج مكتبة DLL تستدعيها من خلال المراجع ...References من القائمة Project

لعمل مثال:
قم بإنشاء مشروع ActiveX.DLL واجعل اسمه myActiveX
سنجد بداخلة بشكل افتراضي Class1 غير اسمه إلى Math


سنكتب بداخله دالة اسمها Sum تأخذ قيمتين وتقوم بجمعهما وترجع الناتج كالتالي
كود :
Option Explicit

Public Function Sum(n1 As Single, n2 As Single) As Single
    Sum = n1 + n2
End Function

الآن نقوم بإنشاء ملف DLL للمشروع عن طريق القائمة File ومنها اختر ...Make myActiveX.DLL




طريقة استخدام ملف myActiveX.DLL:
ننشئ مشروع عادي جديد ثم ندرج ملف myActiveX.DLL كمرجع Reference عن طريق القائمة Project ومنها نختار ...References
نضغط استعراض Browse لنبحث عن الملف myActiveX.DLL ونختاره


نضيف زر Command للفورم ثم نضع هذا الكود ونشغل المشروع ونرى النتيجة
كود :
Option Explicit

Dim myMath As New myActiveX.Math

Private Sub Command1_Click()
    MsgBox myMath.Sum(2, 2)
    
End Sub

.....
الرد }}}
تم الشكر بواسطة: Microformt
#3
(28-06-14, 12:43 AM)vbnet كتب : .....

مشروع ActiveX.DLL ينتج مكتبة DLL تستدعيها من خلال المراجع ...References من القائمة Project

لعمل مثال:
قم بإنشاء مشروع ActiveX.DLL واجعل اسمه myActiveX
سنجد بداخلة بشكل افتراضي Class1 غير اسمه إلى Math


سنكتب بداخله دالة اسمها Sum تأخذ قيمتين وتقوم بجمعهما وترجع الناتج كالتالي
كود :
Option Explicit

Public Function Sum(n1 As Single, n2 As Single) As Single
    Sum = n1 + n2
End Function

الآن نقوم بإنشاء ملف DLL للمشروع عن طريق القائمة File ومنها اختر ...Make myActiveX.DLL




طريقة استخدام ملف myActiveX.DLL:
ننشئ مشروع عادي جديد ثم ندرج ملف myActiveX.DLL كمرجع Reference عن طريق القائمة Project ومنها نختار ...References
نضغط استعراض Browse لنبحث عن الملف myActiveX.DLL ونختاره


نضيف زر Command للفورم ثم نضع هذا الكود ونشغل المشروع ونرى النتيجة
كود :
Option Explicit

Dim myMath As New myActiveX.Math

Private Sub Command1_Click()
    MsgBox myMath.Sum(2, 2)
    
End Sub

.....
لك مني جزيل الشكر والتقدير اخي العزيز
إذا ضاقت بك الأحوال يوماً     فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Question [vb6.0] معلومة هامه في ActiveReport هل تريد طباعة على وجهين انظر الى الصوره المرفقه Microformt 0 107 07-01-24, 11:32 PM
آخر رد: Microformt
Question [vb6.0] هل هناك طريقه في استدعاء الامر هذ الموجود في الصورة وضعة تحت زر الامر ؟ Microformt 0 104 02-01-24, 12:13 AM
آخر رد: Microformt
Question [vb6.0] كيف اكتب استعلام إضافة بأسماء الحقول المجودة في الصورة ما عدى البريد الا لتكروني ؟ Microformt 0 225 24-11-23, 09:19 PM
آخر رد: Microformt
  اريد طريقه او مثال ...للطباعة من الجهتين في الاكتيف ريبورت scsi7000 4 433 02-11-23, 11:06 PM
آخر رد: Microformt
Question [vb6.0] كيف اجعل تقرير برنامجي تكون السجلات ملونه مثل الذي في الصورة التأليه ؟ Microformt 0 276 29-10-23, 07:37 PM
آخر رد: Microformt
Question [vb6.0] نامل المساعدة في المثال المرفق يوجد مشكلة في إضافة رقم الصنف الى قاعدة البيانات لا اع Microformt 1 241 23-10-23, 12:11 AM
آخر رد: Taha Okla
  [vb6.0] هل يوجد مثال لاعداد جداول الاوقات المدرسي 2003amin 0 190 15-08-23, 01:11 PM
آخر رد: 2003amin
  محتاج مثال لتحويل (QR barcode) الي نص scsi7000 2 318 04-08-23, 09:19 AM
آخر رد: scsi7000
Question [vb6.0] هل يوجد كود لضغط وإصلاح قاعدة البيانات ، أعني قاعدة بيانات Access؟ Microformt 1 455 27-07-23, 08:33 PM
آخر رد: Taha Okla
  [سؤال] ماهو سبب خروج هذه الرسالة كما في الصورة المرفقة عند تشغيل برنامج الفيجوال بيسك6 وادي العوضي 3 498 24-07-23, 11:50 PM
آخر رد: وادي العوضي

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


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