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

نسخة كاملة : (تم الحل) سؤال : كيف أستطيع تحديد مربع النص
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2
السلام عليكم ورحمة الله وبركاته

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

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

وسلامتكم
PHP كود :
for each c as control in me.controls
if c.focused then
c
.backcolor=color.yellow
end 
if
next 
اخوي أمجد إنت أمجد اللي أعرفه ؟

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

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

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

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

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

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

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

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

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

اخي العزيز

ارفقت لك مثالين لطريقتين لنفس طلبك من صنعي




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

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

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

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


PHP كود :
Public Class Form1


    Dim Nametxt
    Dim currTextBox 
As TextBox

    
Private Sub TextBox_Focus(ByVal sender As System.ObjectByVal e As System.EventArgsHandles TextBox1.EnterTextBox2.EnterTextBox3.EnterTextBox4.EnterTextBox5.Enter
        currTextBox 
sender
    End Sub

    
Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.ObjectByVal e As System.EventArgsHandles DateTimePicker1.ValueChanged
        currTextBox
.Text DateTimePicker1.Text
    End Sub
End 
Class 
بسم الله الرحمن الرحيم

اخي العزيز

ارفقت لك التعديل النهائي الذي طلبته بخصوص DateTimePicker




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

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

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

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


PHP كود :
Public Class Form1


    Dim Nametxt
    Dim currTextBox 
As TextBox

    
Private Sub TextBox_Focus(ByVal sender As System.ObjectByVal e As System.EventArgsHandles TextBox1.EnterTextBox2.EnterTextBox3.EnterTextBox4.EnterTextBox5.Enter
        currTextBox 
sender
    End Sub

    
Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.ObjectByVal e As System.EventArgsHandles DateTimePicker1.ValueChanged
        currTextBox
.Text DateTimePicker1.Text
    End Sub
End 
Class 


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