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

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

بدأه APr0grammer في 25 أكتوبر 2013 · 11 رد · 458 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

قمت بعمل لوحة مفاتيح بلغة vb.net 2010 ووضعت خمس مربعات نصوص

المشكلة واجهتني عندما وضعت هذا الكود

If RichTextBox1.Focus Then

RichTextBox1.Text = RichTextBox1.Text & Button49.Text

ElseIf RichTextBox2.Focus Then

RichTextBox2.Text = RichTextBox2.Text & Button49.Text

ElseIf RichTextBox3.Focus Then

RichTextBox3.Text = RichTextBox3.Text & Button49.Text

ElseIf RichTextBox4.Focus Then

RichTextBox4.Text = RichTextBox4.Text & Button49.Text

ElseIf RichTextBox5.Focus Then

RichTextBox5.Text = RichTextBox5.Text & Button49.Text

End If

المشكلة انني اذا ضغطت على button49 تظهر لي الكتابة فقط على الزر الاول richtextbox1 فقط

حتى اذا وضعت المؤشر في اي مربع نص

ما هو الحل و هل هذا الكود خطا مع العلم انني مبتدئه في البرمجة بلغة vb.net

لذلك ساعدوووووني بليز

#2

يبدو ان سؤالي صعب جدا ..

#3

السلام عليكم ..

 

الكود الذي وضعتيه بحاجة للتعديل من أساسه ..

 

أولاً لا نستخدم خاصية Focus لأن هذه الخاصية تقوم بالتركيز على الأداة التي تختارينها ..

 

وفي حالتك بداية الكود دائماً يركز على Richtextbox1 لذلك دائماً سيكتب فيه ..

 

يجب تبديل الخاصية للتكون Focused ..

 

 

ولكن عندما تركزين على أحد مربعات النصوص .. ثم تقومين بالضغط على الزر فإنه ينتقل التركيز من مربع النص إلى الزر

فلذلك لن يعمل الكود أبداً ..

 

تحياتي  ^_^

رجعت ومازال الفريق خاملاَ  :( 


 


abPuw.1.gif

#4

اشكرك كثيرا على الرد .. و لكن جربت وضع Focused و يظهر لي خطأ بالكود .. فماهو الحل و ياليت تفيدني بالكود كامل و جزاك الله خيري الدنيا و الاخرة

#5

الكود :

If RichTextBox1.Focused Then
 RichTextBox1.Text = RichTextBox1.Text & Button49.Text
 ElseIf RichTextBox2.Focused Then
 RichTextBox2.Text = RichTextBox2.Text & Button49.Text
 ElseIf RichTextBox3.Focused Then
 RichTextBox3.Text = RichTextBox3.Text & Button49.Text
 ElseIf RichTextBox4.Focused Then
 RichTextBox4.Text = RichTextBox4.Text & Button49.Text
 ElseIf RichTextBox5.Focused Then
 RichTextBox5.Text = RichTextBox5.Text & Button49.Text
 End If

رجعت ومازال الفريق خاملاَ  :( 


 


abPuw.1.gif

#6

للاسف لم يعمل الكود .. لم يقم بطباعة ما بداخل ال richtextbox. ):

#7

ما رأيك بهذا الكود ..

 

لقد قمت بعمل برنامج فيه 4 أزرار للكتابة الحروف ..

وزر يقوم بتشغيل التايمر ..

 

وظيفة كل زر هو تحديد ما سيكتب في مربعات النصوص ، ومن ثم يقوم المستخدم يركز على مربع النص الذي يريده ..

فيظل يكتب النص الذي حددناه ..

 

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

 

البرنامج في المرفقات

 

تحياتي  ^_^

WindowsApplication1.zip

رجعت ومازال الفريق خاملاَ  :( 


 


abPuw.1.gif

#8
APr0grammer كتب:

للاسف لم يعمل الكود .. لم يقم بطباعة ما بداخل ال richtextbox. ):

 

لقد قلت لك .. ركزي على ردي الأول ..

 

تحياتي  ^_^

رجعت ومازال الفريق خاملاَ  :( 


 


abPuw.1.gif

#9

عفوا .. اقصد لم يقم بطباعة الحرف الموجود بال button

#10

الله يسعدك .. و يوفقك و يرزقك الجنة

#11

أختي ..

كود البرنامج الذي في الأعلي ليس جيد .. أرجوا أن تنظري في هذا الكود ..

 

تحياتي  ^_^

 

WindowsApplication1.zip

رجعت ومازال الفريق خاملاَ  :( 


 


abPuw.1.gif

#12

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

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