أولا السلام عليكم
لعمل وظيفة عمومية على كامل المشروع ما عليك ألا أن تكتب الكلمة public كما تفضلت مسبقا وتكتبها في موديول أيضا كما قلت ,وتستطيع ألغاء الكلمة Public لأن المحرر سوف يترجمها تلقائيا على أنها عمومية .
من المفترض ان الوظيفة ترجع قيم , ويتم تصريح الدالة أو الوظيفة كما تفضلت كالتالي :
Function AnyThing (Ddate as Date)
....
..
.
End Function
لقد صرحت دالة على أنها وظيفة تقوم بعمل معين ,وعلى أنها عمومية أنظر أخي الكريم رغم أني لم أضع الكلمة المحجوزة public ولكن المحرر سوف يصرحها على أنها عمومية وتستطيع الوصول أليها من كامل المشروع .
لكني لم أفهم بالزبط ما تقصده من أنك تريد تغيير الثوابت , على حسب معلوماتي أن الثوابت تأتي كالتالي مصرحة بأعلى المشروع أو الموديول
Const MB_ICONQUESTION = &H20L
Const MB_YESNO = &H4
Const IDYES = 6
Const IDNO = 7
تصريح الثابت يبدأ بالكلمة المحجوزة Const ثم المتغير الذي سيحمل القيمة سواء كانت رقما أو نصا .
أما حول تغيير الثابت لا أظن أنه من الممكن تغيير قيمة الثابت وسوف يعطيك خطأ .
سوف أعطيك مثال حول تصريح وظيفة وتقوم بأرجاع قيمة لي .
Function Values(Nnumber As Integer)
Nnumber = Nnumber * 2
Values = Nnumber
End Function
لقد صرحت الكلمة Values على أنها وظيفة , ثم وضعت لها بارامتر Nnumber وصرحته كرقم Integer.
لأمرر للوظيفة Values من خلال البارامتر Nnumber ثم يضرب العدد ب أثنين , ثم أعيد القيمة النهائية الى الوظيفة .
أستدعائها يتم كالتالي :
Label1.Caption = Values(55)