منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] طلب كود معرفة TextBox النشطة - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] طلب كود معرفة TextBox النشطة (/showthread.php?tid=21309)

طلب كود معرفة TextBox النشطة - waelalmsry75 - 07-08-17

السلام عليكم

لدينا:
TextBox1
TextBox2
Button1

المطلوب إذا كان مؤشر الماوس داخل TextBox1 وضغطت على Button1 فيخرج رسالة مثلا: MsgBox("TextBox1 Active")
وإذا كان مؤشر الماوس داخل TextBox2 وضغطت على Button1 فيخرج رسالة: MsgBox("TextBox2 Active")

وجزاكم الله خيرا

RE: طلب كود معرفة TextBox النشطة - سعود - 07-08-17

هل تقصد هذا

RE: طلب كود معرفة TextBox النشطة - waelalmsry75 - 07-08-17

(07-08-17, 08:00 PM)سعود كتب : هل تقصد هذا

نعم أخي سعود
هذا ما أريده
فلو يمكنك وضع الخلاصة هنا أكون شاكرا لك

وجزاك الله خيرا

RE: طلب كود معرفة TextBox النشطة - أبو نوره - 07-08-17

مرحبا اخى

جرب هذا الكود
PHP كود :
Private PrevActiveControl As TextBox
Private Sub TextBox_Enter(sender As Object, e As System.EventArgs) Handles TextBox1.Enter, TextBox2.Enter
    PrevActiveControl = sender
End Sub

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    If PrevActiveControl Is TextBox1 Then
        MsgBox("TextBox1 Active")
    ElseIf PrevActiveControl Is TextBox2 Then
        MsgBox("TextBox2 Active")
    End If
End Sub 

لاحظ اخى التجميعه TextBox1.Enter, TextBox2.Enter وضعت بعد كلمه Handles للحدث المسمى TextBox_Enter

RE: طلب كود معرفة TextBox النشطة - waelalmsry75 - 08-08-17

(07-08-17, 09:41 PM)أبو نوره كتب : مرحبا اخى

جرب هذا الكود
PHP كود :
Private PrevActiveControl As TextBox
Private Sub TextBox_Enter(sender As Object, e As System.EventArgs) Handles TextBox1.Enter, TextBox2.Enter
    PrevActiveControl = sender
End Sub

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    If PrevActiveControl Is TextBox1 Then
        MsgBox("TextBox1 Active")
    ElseIf PrevActiveControl Is TextBox2 Then
        MsgBox("TextBox2 Active")
    End If
End Sub 

لاحظ اخى التجميعه TextBox1.Enter, TextBox2.Enter وضعت بعد كلمه Handles للحدث المسمى TextBox_Enter

ما شاء الله عليك أخي أبو نوره
دائما مبدع
جزاك الله خيرا