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

طلب مساعدة: تغير خلفية الlabel

مغلق
بدأه _bkhaled في 15 أغسطس 2007 · 4 رد · 639 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

ارفقت لكم مثال بسيط لما اريد

اريد اذا ضغطت على الليبل 1 تتغير خلفيته واذا ضغطت على الليبل 2تتغير خلفيته وتعود خلفية ليبل 1 الى اصلها

واليكم مرفق يوضح الفكرة

وفي المثال المرفق

اريد اذا ضغطت على حركة المبيعات يتغير لون خلفيتها واستطعت ان اكون ذلك بالكود التالي

Label1.BackColor = &H808080

لكن اذا ضغطت على حركة المشتريات تتغير خلفيتها ايضا وخلفية حركة المبيعات متغيره اريد ان تعود خلفية حركة المبيعات الى لونها السابق

وتتغير خلفية حركة المشتريات اذا فيه طريقة بحيث بمجرد ضغط مكان اخر يعود لون الخلفية لاصله

co2.rar

#2

تفضل أخي الملف المرفق بعد التعديل

co2_after_edit.rar

#3
المدمر007 كتب:
تفضل أخي الملف المرفق بعد التعديل

اولا مشكور اخي المدمر على سرعة الرد

ثانيا يمكن لم اوضح الفكرة بالشكل المطلوب

كلامك لا غبار عليه صحيح في حالة ان التطبيق راح يكون على 2 ليبل او 5 ليبل

ولكن انا اتكلم عن 20 الى 30 ليبل

وبهذه الطريقة راح يكون الكود طويل جدا جدا

واريد اذا فيه كود مختصر يعمل على تغيير خلفية الليبل بمجرد الضغط عليه

واذا رفع الضغط من عليه يعود الى اصله

اريد كود مختصر

واشكرك مره اخرى على تجاوبك

#4

أعملهم على هيئة مصفوفة و أستعمل :

Private Sub lblThings_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
	lblThings(Index).BackColor = vbRed
End Sub

Private Sub lblThings_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
	lblThings(Index).BackColor = vbGreen
End Sub

إقرأ معى:

melal.jpg

----

المثقفون العرب .. المزورون العرب: تأبين محمود درويش نموذجا

ماذا خسر العالم بانحطاط المسلمين ؟!! للعلامه: أبو الحسن الندوى (كتاب هام لكل مسلم).

المنهجية ومقدمات في الطلب (لطلاب العلم الشرعى)

#5
msayed2004 كتب:
أعملهم على هيئة مصفوفة و أستعمل :

Private Sub lblThings_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
	lblThings(Index).BackColor = vbRed
End Sub

Private Sub lblThings_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
	lblThings(Index).BackColor = vbGreen
End Sub

اخي مشكور

اعجبتني الفكرة ولكن التطبيق خانني

لم استطع تطبيق الفكرة

ياليت تنزل البرنامج من المرفقات وتطبق فكرتك عليه

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

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