jamal2080 قام بنشر نوفمبر 15, 2023 مشاركة قام بنشر نوفمبر 15, 2023 السلام عليكم ورحمة الله وبركاتة عندى مربع نص فى نمودج اريد اظهر رسائل تنبهات اريد تعديل الكود وتصحيحة من فضلكم... ' **عرض الرسالة في مربع النص "Message_box" بتأثير الانتقال:** Dim i As Integer For i = 1 To 10 Me.Message_box.Left = Me.Message_box.Left + 10 DoEvents Application.Wait (Now + TimeValue("0:00:01")) ' تأخير لمدة ثانية واحدة Next i For i = 1 To 10 Me.Message_box.Left = Me.Message_box.Left - 10 DoEvents Application.Wait (Now + TimeValue("0:00:01")) ' تأخير لمدة ثانية واحدة Next i ' **تعيين القيمة الافتراضية بعد انتهاء الانتقال:** Me.Message_box.Value = "قيمة افتراضية" رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر نوفمبر 16, 2023 مشاركة قام بنشر نوفمبر 16, 2023 العنوان لا يصف الموضوع يغلق ،،، رابط هذا التعليق شارك More sharing options...
الردود الموصى بها