تأثير حركة الماوس على صندوق النص باليوزرفورم

يمكنك من خلال حدث الماوس داخل اليوزرفورم Userform اضافة تأثيرات اثناء مرور الماوس على صندوق النص Textbox

وهذا كان استفسارا من قبل أحد زوار المدونة

الخطوات

1. اضغط على ALT + F11 معا
2. اضغط ناحية نافذة مستكشف المشروعات كليك يمين ( على يسار نافذة المحرر )
3. اختر Insert < Userform
4. قم بإدراج Textbox من خلال ايقونة Toolbox من شريط الأدوات الأكثر استخداما
5. اضغط مرتين على اليوزرفورم للدخول الى نافذة Userform Code
6. قم بمسح اى اسطر برمجية تجدها
7. ثم قم بكتابة الشفرتين التاليتين
8. ثم اضغط على زر F5 من لوحة المفاتيح لتشاهد اليوزرفورم

الكود الأول

'https://elshriefacademy.blogspot.com

Private Sub TextBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
With TextBox1
    With .Font
        .Bold = True
        .Italic = True
        .Size = 12
    End With
        .BackColor = vbBlue
        .ForeColor = vbRed
        .TextAlign = fmTextAlignCenter
End With
End Sub

الكود الثاني

'https://elshriefacademy.blogspot.com

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
With TextBox1
    With .Font
        .Bold = False
        .Italic = False
        .Size = 10
    End With
        .BackColor = vbWhite
        .ForeColor = vbGreen
        .TextAlign = fmTextAlignCenter
End With
End Sub

لتحميل الأكواد بملف نصى

Download ⇊