06-09-19, 12:04 AM
السلام عليكم ورحمة الله وبركاته
أهلا بك أخي الكريم , إذا أردت أن تضلل محتوى مربع نص معين وليكن إسم مربع النص Text1 فسيكون هذا الكود الخاص بتضليل المحتوى :
- بالنسبة لتحديد عدد الخانات المسموح بها في مربع النص توجد خاصية من خصائص مربع النص وهي بإسم MaxLength ضع فيها الحد الأقصى لعدد الخانات التي يقبل إدخالها في مربع النص بحيث يتم منع أي خانة زيادة عنها عند الكتابة في مربع النص أما كيف تمنع إذا كان عدد الخانات المدخله أقل من قيمة الحد الأقصى والتي وضعتها في خاصية الـMaxLength فتستطيع عمل ذلك بالكود بواسطة جملة IF الشرطية وأيضا تستطيع الإستغاء عن إستخدام الخاصية MaxLength أيضا بإستخدام الكود بحيث تفحص عدد الخانات المدخله في مربع النص إذا لم يكن عددها يساوي تسع خانات تظهر رسالة للمستخدم , كما يلي :
أهلا بك أخي الكريم , إذا أردت أن تضلل محتوى مربع نص معين وليكن إسم مربع النص Text1 فسيكون هذا الكود الخاص بتضليل المحتوى :
PHP كود :
Text1.SelStart = 0
Text1.SelLength = Len(Text1)
Text1.SetFocus
- بالنسبة لتحديد عدد الخانات المسموح بها في مربع النص توجد خاصية من خصائص مربع النص وهي بإسم MaxLength ضع فيها الحد الأقصى لعدد الخانات التي يقبل إدخالها في مربع النص بحيث يتم منع أي خانة زيادة عنها عند الكتابة في مربع النص أما كيف تمنع إذا كان عدد الخانات المدخله أقل من قيمة الحد الأقصى والتي وضعتها في خاصية الـMaxLength فتستطيع عمل ذلك بالكود بواسطة جملة IF الشرطية وأيضا تستطيع الإستغاء عن إستخدام الخاصية MaxLength أيضا بإستخدام الكود بحيث تفحص عدد الخانات المدخله في مربع النص إذا لم يكن عددها يساوي تسع خانات تظهر رسالة للمستخدم , كما يلي :
PHP كود :
If Len(Trim$(Text1.Text)) <> 9 Then
MsgBox "يجب أن تدخل تسع خانات في مربع النص", vbExclamation, "تنبيه"
Text1.SelStart = 0
Text1.SelLength = Len(Text1)
Text1.SetFocus
Exit Sub
End If
كود :
For Each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next