استفسار عن طريقة اخفاء واظهار الأيقونات عند تحريك المؤشر

[ابوآمنة]

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

 صباح الخير على الجميع 

بداية نسأل الله أن يجازيكم خيراً لجهودكم المباركة لاثراء المعلومات التقنية العربية .

كما هو في العنوان لدي كود 

Me.txt1.Visible = False
Me.txt2.Visible = True

لاخفاء وإظهار الايقونات

المطلوب عند تحريك المؤشر تظهر الأيقونات وعند الذهاب للايقونات الأخرى تختفي الأيقونات الأولى وكذا .

تم تعديل ديسمبر 21, 2017 بواسطه saleh204

[jjafferr]

وعليكم السلام

 

تفضل

Private Sub text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    
    Me.text2.Visible = True
    Me.text2.SetFocus
    Me.text1.Visible = False
End Sub

Private Sub text2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    
    Me.text1.Visible = True
    Me.text1.SetFocus
    Me.text2.Visible = False
End Sub

 

جعفر

[ابوآمنة]

شكرا أخي جعفر

دائما سباق بالخير