% اداه الـ { ArabicMsgBox } شـرح كـامل %

% اداه الـ { ArabicMsgBox } شـرح كـامل %

! . النتـائج & الـأكـواد . !

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]

كود:
ArabicMsgBox1.ShowMessage "تم حـــفظ الإعـدادات الخاصـة بالنظـــــام بنجــــاج", DoneStyle, btnOkayOnly, "تـم"

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]

كود:
ArabicMsgBox1.ShowMessage "عـفواً! لا تمـلك الصلاحـية للتعديـل على الإعـدادات الحـالية", ExclamationStyle, btnOkayOnly, "خطـأ"
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]

كود:
ArabicMsgBox1.ShowMessage "سيـقوم النظــام بالبحـث عن أخـر التحديـثات كل 5 أيــــــــام", InformationStyle, btnOkayOnly, "التحديث"
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]

كود:
ArabicMsgBox1.ShowMessage "إسـم المُسـتخدم أو كلـمة المـرور غير صحـيحة" & VbNewLine & "من فضـلك أعد كتـابتعمل بشكـل صحيح", ErrorStyle, btnOkayOnly, "تسجـيل الدخـول"
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]

كود:
ArabicMsgBox1.ShowMessage "هـل أنت متـاكد من تسجـيل الخــروج الأن ؟", QuestionStyle, btnOkayCancel, "تسجـيل الخـروج"
If ArabicMsgBox1.MessageResult = msgOkButton Then
Me.Caption = "Message Result= 'OK Button'"
end
Else
Me.Caption = "Message Result= 'Cancel Button'"
End If
عـجبـتكم ؟؟

الطـريقـه انـو دوسو CTRL + T و بعدين دوسو علـى Browse و حطو الاداه الي بالمرفقـات الي اسمـهة { ArabicMessageBox } و بعدين حـطوهة على الفـورم مالتكم و حطو دكمـه و بعدين حطو الكود الي يعجبكم بيـه

طبـعاً جـوة كـل مـثال مـوجود الكـود مـالته

و سـويتلكم البـرنامج + سـورس كـود علـى كـل الدكم الي حطيـتهة

السـورس كـود + البـرنامج + الاداه مـوجودات بالمـرفقـات

شكرا ع الموضوع