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

إلى محترفين البرمجة الغرضية في الفيجوال

مغلق
بدأه موفق جمال زكريا في 12 ديسمبر 2002 · 2 رد · 626 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

أعزائي وإخواني كل عام وأنتم بخير وقبل الله طاعتكم ، وأعاد شهر رمضان عليكم بالخير إن شاء الله .لدي سؤال حيرني في التعامل مع ملفات dll وهو يتعلق بالتغليف :

هذا مثال ل تابع يقبل بارامترين

البرامتر الأول من نوع form

والثاني من نوع integer

وموضوع في صنف أي class

وكوده كالتالي :

Public Function color_back(frm As Form, q As Integer)

frm.BackColor = QBColor(q)

End Function

وطريقة استدعائة كالتالي :

Dim a As Class1

Set a = New Class1

a.color_back Me, 14

وهي شغلة تمام ومفهومة .....

أما سؤالي عندما يكون الصنف في مشروع dll

فإنه عند تصدير المشروع كملف dll فإنه لايقبل لأن التابع يمرر قيمة من نوع فورم

ولايقبلها إلا إذا كان التابع خاص أي

private

وإذا كان خاص لايقبل الإستدعاء من مشروع آخر ......

على فكرة لقد صدرت التابع وهو عام ولكن بشرط أن لايمرر قيم من نوع كونترول أي زر أو تيكست وغيرها .

فما الحل .....

ما الحل ياشباب ......

ماالحل يا عباقرة ....

#2

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

تحية طيبة و بعد

يمكنك بكل بساطة تغيير تعريف نوع المتغير frm من Form إلى Object و سيتم تنفيذ الشفرة بكل بساطة أما إن كنت مصرا على نوع Form فأخبرني بذلك

Public Function color_back(frm As Object, q As Integer)

    frm.Width = 5000

    frm.Height = 7000

    frm.Caption = "DrMogbl"

    frm.BackColor = QBColor(q)

End Function
#3

السلام عليكم :

جزاك اله أخي كل خير ، هذا الجواب يكفي بالغرض ....

(gift)(f)

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

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