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

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

 

أعلى