مساعدة في عرض ازرار النموذج

[mohamed-elc]

السَلٱمٌ عـَلـْيگمّ-ۈرحـْمّـٌة ٱللـّہ ﯙبُرگـّاتہ 

لدي قاعدة بيانات بها الفورم الرئيسي به ازرار لكل نماذج واعدادات البرنامج 

كنت محتاج الي طريقه عند تمرير الماوس علي الزر يقوم بالتكبير تلقائي وعنده ابعاد الماوس عن الزر يعود لوضعه الطبيعي هل من مساعده في التنفيذ

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

[ابو جودي]

ۈعـَلـْيگمّ السَلٱمٌ -ۈرحـْمّـٌة ٱللـّہ ﯙبُرگـّاتہ 

انا ممكن انفذ لك طلبك بالضبط لكن مش حيكون ظريف

ممكن ترفق قاعدة بيانات فيها النموذج الرئيسى بالازرار فقط بدون اى اكواد علشان اكون فاهم شكل النموذج ايه

وممكن اقول لك على فكرة افضل 

[ابو جودي]

على العموم

فى موديول ضع الكود الاتى 
 

Public gMouseOver As Boolean
Public gOriginalWidth As Single
Public gOriginalHeight As Single

Public Sub ResizeButtonOnMouseOver(btn As Access.CommandButton)
    gMouseOver = True

    If gOriginalWidth = 0 Then
        gOriginalWidth = btn.Width
        gOriginalHeight = btn.Height
    End If
    btn.Width = gOriginalWidth * 1.5
    btn.Height = gOriginalHeight * 1.5
End Sub

Public Sub RestoreButtonSizeOnMouseLeave(btn As Access.CommandButton)
    If gMouseOver Then
        btn.Width = gOriginalWidth
        btn.Height = gOriginalHeight
        gMouseOver = False
    Else
    Exit Sub
    End If
End Sub

 

ولابد فى النموذج من عمل Box حول الازرار وليكن اسمه  BoxBtn

فى الحدث عند مرور الماوس على اى زر تريد تنفذ الحدث عليه ضع الكود

ResizeButtonOnMouseOver Me.BtnName

 

ثم فى الحدث عند مرور الماوس للـ BtnBox

RestoreButtonSizeOnMouseLeave Me.BtnName

 

طبعا استبدل BtnName باسم زر الامر الحالى عند المرور الماوس

[mohamed-elc]

2 ساعات مضت, ابو جودي said:

ۈعـَلـْيگمّ السَلٱمٌ -ۈرحـْمّـٌة ٱللـّہ ﯙبُرگـّاتہ 

انا ممكن انفذ لك طلبك بالضبط لكن مش حيكون ظريف

ممكن ترفق قاعدة بيانات فيها النموذج الرئيسى بالازرار فقط بدون اى اكواد علشان اكون فاهم شكل النموذج ايه

وممكن اقول لك على فكرة افضل 

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

New Microsoft Access قاعدة بيانات.rar

تم تعديل ديسمبر 31, 2023 بواسطه mohamed-elc
اضافة مرفقات