كود صندوق الرسائل والتنبيهات في تصاميم الاكسيس

[admin]

نستخدم في التطبيق في الرسائل و التنبيهات ، وفي كل مرة نضطر لكتابة الكود وتحديد موصفات وخصائص صندوق الرسائل ، النص و ضبط الازرار و الشكل و العنوان و,,, و,,,

فدعونا ننشيئ وحدة نمطية نستدعيها عند اللزوم

Public Function MsgOK(MsgText As String) As Boolean

Dim LResponse  As Byte

Dim MsgTitle As String

MsgTitle = " تنبيه "

LResponse = MsgBox(MsgText, vbInformation + vbMsgBoxRight, MsgTitle)

If LResponse = vbOK Then

    MsgOK = True

Else

    MsgOK = False

End If

End Function

​