هدية متواضعة

Public Const aplname = "إدارة العقارات"

Public Sub mymessage(x As String)

MsgBox x, vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading, aplname

End Sub

Public Function confirm(srt As String) As Boolean

Dim z As Byte

z = MsgBox(srt, vbQuestion + vbOKCancel + vbMsgBoxRight + vbMsgBoxRtlReading, aplname)

If z = vbOK Then

confirm = True

Else

confirm = False

End If

End Function

حيث aplname هو عنوان تطبيقك على كل مربع رسالة فلو أردت تغيير العنوان فما عليك إلا تغيير هذا الثابت بدلاً من تتبع جميع مربعات الرسائل

أما mymessage فهو مربع رسالة جاهز بمواصفات عربية وعليه إسم تطبيقك , ويعرض زر أمر واحد (موافق)

أما confirm فهو مثل السابق إلا أنه يعرض زري أمر ويعود بقيمة true إذا كان المستخدم

نقر موافق أبالقيمه false إذا نقر إلغاء الأمر

ملاحظة كلها للمبتدئين أمثالي إذا كان هناك مبتدئ غيري

والجود من الماجود

السلام عليكم