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

مساعدة

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

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

لو سمحتوا يا ريت تساعدوني في كتابة كود البرنامج التالي:

اكتب الكود الذي يقوم عند الضغط على لوحة المفاتيح على النموذج يقوم باستدعاء إجراء فرعي عام يكتب بداخل الليبل "الفيجوال بيسك"

بحيث يكون غامق وعنوان النموذج " البرمجة " وعند رفع اليد عن لوحة المفاتيح يقوم بإخفاء ال ويكون النموذج باللون الاحمر label

#2

اهلا بيك وبكل اشقائنا الفلسطينيين داخلها وخارجها :)

الافضل ان تجيب السؤال بنفسك وان استصعب عليك شيئا اسالنا نجيبك :)

وعلى كل حال .. لتغيير عنوان Form .. مثلا ضع الكود ادناه في حدث الـ Load للـ Form

Me.Caption = "البرمجة"

او بامكانك تغيير قيمة خاصية الـ Caption من خصائص الـ Form وقت التصميم

اما عند الضغط على لوحة المفاتيح هذه ضع ما تريد من اكواد في حدث الـ KeyDown للـ Form

علما بان الـ KeyCode هو رقم المفتاح والـ Shift يعلمك اذا تم الضغط على اي من الازرار

Shift أو Ctrl أو Alt اثناء الضغط على اي من مفاتيح الـ Keyboard

ولعكس العملية .. اي عند رفع اليد عن لوحة المفاتيح يكون هذا من خلال الحدث KeyUp للـ Form

وبخصوص الإجراء الفرعي العام فقم بكتابته كالتالي مثلا



End Sub
Public Sub MYProc()

والـ Public هي العام والـ Sub هي الفرعي والـ MYProc هو اسمه على سبيل المثال

وبإمكانك وضعه اما داخل الـ Form وإما داخل الـ Module

اذا داخل الـ Form واردت ان يقوم هذا الإجراء بملأ قيمة الـ Label1 .. فضع بداخله

Me.Label1.Caption = "الفيجوال بيزك"

واذا داخل الـ Module فعليك بإستبدال كلمة Me بإسم الـ Form الذي يحوي الـ Label1

ولإستدعائه قم بكتابة هذا الكود اينما شئت استدعاء الإجراء

Call MYProc

وبالتوفيق ان شاء الله :)

اعتذر عن عدم تمكني للمتابعه الدورية في وقتنا الحالي

فليقبل الجميع تقديري واحترامي .. ولكم تحياتي

#3

جزاك الله كل خير يا اخي الفاضل وساحاول مع انني مبتدي جديد في الفيجوال بيسك ومشكور جدا

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