تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] طلب كود معرفة TextBox النشطة
#1
السلام عليكم

لدينا:
TextBox1
TextBox2
Button1

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

وجزاكم الله خيرا
الرد }}}
تم الشكر بواسطة:
#2
هل تقصد هذا
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
الرد }}}
تم الشكر بواسطة: waelalmsry75 , أبو نوره
#3
(07-08-17, 08:00 PM)سعود كتب : هل تقصد هذا

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

وجزاك الله خيرا
الرد }}}
تم الشكر بواسطة: أبو نوره
#4
مرحبا اخى

جرب هذا الكود
PHP كود :
Private PrevActiveControl As TextBox
Private Sub TextBox_Enter(sender As ObjectAs System.EventArgsHandles TextBox1.EnterTextBox2.Enter
    PrevActiveControl 
sender
End Sub

Private Sub Button1_Click(sender As System.ObjectAs System.EventArgsHandles 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
الرد }}}
تم الشكر بواسطة:
#5
(07-08-17, 09:41 PM)أبو نوره كتب : مرحبا اخى

جرب هذا الكود
PHP كود :
Private PrevActiveControl As TextBox
Private Sub TextBox_Enter(sender As ObjectAs System.EventArgsHandles TextBox1.EnterTextBox2.Enter
    PrevActiveControl 
sender
End Sub

Private Sub Button1_Click(sender As System.ObjectAs System.EventArgsHandles 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

ما شاء الله عليك أخي أبو نوره
دائما مبدع
جزاك الله خيرا
الرد }}}
تم الشكر بواسطة: أبو نوره



التنقل السريع :


يقوم بقرائة الموضوع: