نستخدم في التطبيق في الرسائل و التنبيهات ، وفي كل مرة نضطر لكتابة الكود وتحديد موصفات وخصائص صندوق الرسائل ، النص و ضبط الازرار و الشكل و العنوان و,,, و,,,
فدعونا ننشيئ وحدة نمطية نستدعيها عند اللزوم
فدعونا ننشيئ وحدة نمطية نستدعيها عند اللزوم
كود:
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
