السلام عليكم ورحمة الله وبركاته
اريد منكم اخواني الكرام مساعدتي في هذه الفكرة
هذا هو شكل الفورم
اريد التنقل بين الــ Label1 و Label2 بمفتاح الأسهم فوق وتحت
بحث يتم تغير لون النص وخلفية الـ Label الذي اكون عليه
واريد ربط الـLabel بــ التكست الذي يكون امامه
بحيث عندما اكون على الــLabel1 يكون مؤشر الكتابة على الـtext1
وعندما اكون على الـLabel2 يكون موشر الكتابة على الـText2
كيف يمكن ذلك وما هو الكود المستخدم ارجو المساعــدة
بالصراحة لم أفهم ما تريد بالضبط .. ولكن سأجيب بقدر فهمي ...
بالنسبة للربط Label بـ Text ، فهذا يمكن تنفيذة من خلال الخاصية TabIndex الموجودة في كلا الأداتين .. قم بإعطاء أداة العنوان Label الرقم 1 وأداة النص Text القيمة 2 .. وبمساعدة العامل & في خاصية العنوان Capation في أداة العنوان Label يمكنك الإنتقال إلى خانة النص المربوطة بالطريقة السابقة ...
أما عن تغيير لون العنوان Label .. فالكتب الكود التالي في الحدث GetFoucse لكل من أداتي النص :
Private Sub Text1_GotFocus() Label1.BackColor = vbRed Label2.BackColor = vbGreen End Sub Private Sub Text2_GotFocus() Label2.BackColor = vbRed Label1.BackColor = vbGreen End Sub
تحياتي ..
شكراً على الإجابة :lol:
اما بالنسبة لتنقل بين الــ Label2 و Label1
اريد التنقل بينهم بلأسهم
هاوي! كتب:
الاخ العزيز
اسمحلي سوف اخرف شوية
اولا نحتاج ارقام ال keyAscci للاسهم ،فوق ، تحت ، يمين ، يسار
ثانيا يجب ان تكون label في مصقوفة
ثالثا وهنا الصعوبة ان ال label ليس لها خاصية ال GotFocous
![29_09_05_02_32_59_1128029579_4_13_3[_].gif](http://www.arabteam2000.com/picload/pics/29_09_05_02_32_59_1128029579_4_13_3%5B_%5D.gif)
صور gif شفافة لتجميل واجة البرنامج
الخط العثماني للمهتمين ببرمجة برامج تلاوة القرآن
كيف يمكن عمل سكرول بالماوس, scroling by mouse wheel
هل نكذب علي الله ام نكذب علي انفسنا
البـر لا يبلي ، و الذنب لا ينسـي ، و الديـان لا يمـوت ، افعـل مـا شئت كما تـديـن تـدان
ليس كل من تعمم مفتيا ، بل ان الدين الاسلامي ليس قيه كهانه و بالتالي ليس فيه ما يعرف ب رجال الدين – احمد رجب
مع خالص تحيـــــــــــــــــــــــــــــــــاتي
GAF58
مو مشكلــة سأبحث عن طريقة اخرى :rolleyes:
شكراً لتعاونك معي :lol:
تم تعديل هذه المشاركة بواسطة هاوي! في 3 يونيو 2005 في 23:43
تفضل
المحلة الكبري - كلية الطب جامعة الأزهر بدمياط
من مواضيعي
برنامج تحويل mp3,wav,wma إلى exe والكود موجود
أداة تصميم الفورم على شكل صورة مع الكود
واحدة من أحدث الشفرات بمناسبة إنتهاء الإمتحانات
أفضل الإختصارات لكود برنامج خفي السواقات(الدرايفات
مؤثر عرض على مجموعة من الجمل تشبة المنتديات
إليكم أداة شاشة العرض مع الكود
برنامج تحويل exe,dll إلى Ico مع الكود
من المواضيع التي شاركت فيها
كيف يتم تصدير محتويات الفورم على شكل صورة؟
كيفية إعادة تسمية المجلدات Folders
Colored List Box Control with Horizontal Scroll
وهناك الجديد إن شاء الله
Private Sub Computer_Think()
On Error Tray Again
If You = "Real Computer" Then
DoIt("By Your Self")
Else
Kick("Your Self")
End If
End Subاشكرك من الأعمـــــــــــــــــــاق اخي بلال حمدي :lol:
على الفـائدة العظيمــــــــــة الف شكر :lol:
بلال حمدي كتب:تفضل
بارك الله فيك
صور gif شفافة لتجميل واجة البرنامج
الخط العثماني للمهتمين ببرمجة برامج تلاوة القرآن
كيف يمكن عمل سكرول بالماوس, scroling by mouse wheel
هل نكذب علي الله ام نكذب علي انفسنا
البـر لا يبلي ، و الذنب لا ينسـي ، و الديـان لا يمـوت ، افعـل مـا شئت كما تـديـن تـدان
ليس كل من تعمم مفتيا ، بل ان الدين الاسلامي ليس قيه كهانه و بالتالي ليس فيه ما يعرف ب رجال الدين – احمد رجب
مع خالص تحيـــــــــــــــــــــــــــــــــاتي
GAF58
لاشكر على واجب
المحلة الكبري - كلية الطب جامعة الأزهر بدمياط
من مواضيعي
برنامج تحويل mp3,wav,wma إلى exe والكود موجود
أداة تصميم الفورم على شكل صورة مع الكود
واحدة من أحدث الشفرات بمناسبة إنتهاء الإمتحانات
أفضل الإختصارات لكود برنامج خفي السواقات(الدرايفات
مؤثر عرض على مجموعة من الجمل تشبة المنتديات
إليكم أداة شاشة العرض مع الكود
برنامج تحويل exe,dll إلى Ico مع الكود
من المواضيع التي شاركت فيها
كيف يتم تصدير محتويات الفورم على شكل صورة؟
كيفية إعادة تسمية المجلدات Folders
Colored List Box Control with Horizontal Scroll
وهناك الجديد إن شاء الله
Private Sub Computer_Think()
On Error Tray Again
If You = "Real Computer" Then
DoIt("By Your Self")
Else
Kick("Your Self")
End If
End Subهذا الموضوع مغلق.