منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم ورحمة الله وبركاته

عندي فورم فيه مثلا 5 مربعات نص ، وإزرار.

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

وسلامتكم

اخوي أمجد إنت أمجد اللي أعرفه ؟

ما شاء الله عليك سبقتني هنا .. أنا اليوم عرفت بأمر المنتدى هذا وتم التسجيل والحمد لله

أحب أشكرك من كل قلبي ما قصرت معاي أبد

بأجرب الكود وإن شاء الله يضبط

دكتور أمجد للاسف الكود ما مشي معاي الظاهر إنك فهمت طلبي غلط

أنا بأشرح لك بشكل أوضح

أنا عندي مثلا 5 مربعات نصية ... وأنا واضع مؤشر الكتابة حالياً على المربع الثالث مثلا

المطلوب لمن أضغط على الإزرار يبين لي في MsgBox وين مؤشر الكتابة واقف

لم يعمل معك لانه عند الضغط علي button ينتقل الموءشر الي هذا ال button جرب استخدام الكود في حدث
form mousclick وسوف يعمل معك

اممم شوف أخوي أمجد راح أبين لك بالضبط الموجود في برنامجي وفكرتي اللي ابيها

انا عندي اكثر من 5 مربعات تخص التاريخ ( الميلاد - التعين للعمل و و و ) ، وعندي واحد DateTimePicker

اللي أبيه لمن أختار تاريخ معين من الـ DateTimePicker البرنامج تلقائياً يشوف المستخدم مختار أي مربع للتاريخ ويحط فيه التاريخ اللي تم تحديده

وسلامتك

الله يعطيك العافيه أخوي أمجد ما قصرت

--------------------------------------

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

وهذا بعد التعديل ... أضفت DateTimePicker

تحياتي لك
ابو سامي

alzahrani كتب :الله يعطيك العافيه أخوي أمجد ما قصرت

--------------------------------------

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

وهذا بعد التعديل ... أضفت DateTimePicker

PHP كود :

Public Class Form1


    Dim Nametxt
    Dim currTextBox As TextBox

    Private Sub TextBox_Focus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.Enter, TextBox2.Enter, TextBox3.Enter, TextBox4.Enter, TextBox5.Enter
        currTextBox = sender
    End Sub

    Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged
        currTextBox.Text = DateTimePicker1.Text
    End Sub
End Class 


اخي انا من عندي بنصحك بأخر كود كتبته الك
لانو مرن ولا حاجة لكتابة اسماء مربعات النصوص