تعديل كود

[jamal2080]

السلام عليكم ورحمة الله وبركاتة 

عندى مربع نص فى نمودج اريد اظهر رسائل تنبهات اريد تعديل الكود وتصحيحة من فضلكم...

' **عرض الرسالة في مربع النص "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 = "قيمة افتراضية"

 

[ابوخليل]

العنوان لا يصف الموضوع

يغلق ،،،