السلام عليكم ورحمة الله وبركاته
انبثاق الأشكال المساعدة واختفاؤها بتمرير الماوس
أقدم لكم - إخوتي الكرام - مما تابعته ، موضوعاً يتعلق بديناميكية ظهور الأشكال المساعدة التي قد يضعها البعض منا كدليل مساعد للعمل
يقوم بالمختصر المفيد بإظهار الأشكال المساعدة بمجرد المرور على زر عرض المساعدة ثم تختفي هذه الأشكال بتحول الماوس عنه بأي اتجاه داخل الورقة
باستخدام حيل بسيطة بواسطة الـ VBA
نرسم هذه الأشكال ..ننسقها ...نضعها في الأماكن المراد التنبيه لمضمونها ، نسميها أيضاً حسب دور كل منها، نضعها ضمن مجموعة HelpGroup
نكتب الموديول التالي بعد تسميته
Sub ShowHideHelp()
With Sheet1
If .Range("A1").Value = "إخفاء المساعدة" Then
.Shapes("HelpGroup").Visible = msoCTrue
.Range("A1").Value = "عرض المساعدة"
Else:
.Shapes("HelpGroup").Visible = msoFalse
.Range("A1").Value = "عرض المساعدة"
End If
End With
End Sub
Sub ShowHelp()
Sheet1.Shapes("HelpGroup").Visible = msoCTrue
End Sub
Sub HideHelp()
Sheet1.Shapes("HelpGroup").Visible = msoFalse
End Sub
الأول: منها إظهار وإخفاء أزرار المساعدة المرتبط بالخلية A1
الثاني: لعرض المساعدة بتفعيل HelpGroup
الثالث:لإخفاء أزرار المساعدة بإلغاء تفعيل HelpGroup
نقوم بوضع Label على زر العرض لتفعيل الكود الثاني
و 3 Labels على محيط زر العرض لإخفاء العرض وذلك بمجرد مرور الماوس
Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
ShowHelp
End Sub
Private Sub Label2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
HideHelp
End Sub
Private Sub Label3_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
HideHelp
End Sub
Private Sub Label4_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
HideHelp
End Sub
أرجو أن أكون قد أوصلت الفكرة بما فيه الكفاية
للأمانة : تابعته وطبقته ...
