Ali994m
-
Posts
83 -
تاريخ الانضمام
-
تاريخ اخر زياره
Community Answers
-
Ali994m's post in عدة نصوص فلاشية متحركة على اليوزرفورم was marked as the answer
وعليكم السلام ورحمة الله وبركاته
كل ماعليك تعديل الكود بإضافة اسم النص المطلوب تحويله لنص فلاشي
وتغيير رقم اللون حسب الرغبة
Private Sub UserForm_Activate() For i = 1 To 10000 DoEvents L1.ForeColor = QBColor(Rnd * 15) Label2.ForeColor = QBColor(Rnd * 15) Label3.ForeColor = QBColor(Rnd * 8) Label1.ForeColor = QBColor(Rnd * 9) CommandButton1.ForeColor = QBColor(Rnd * 7) Call Sleep(200) Next i End Sub Test.xlsكما يجب أن يحتوي الملف على Module يحتوي الكود التالي
Declare Sub Sleep Lib "kernel32" (ByVal dwmilliseconds As Long) أرجو الله تعالى أن أكون وفقت في الاجابة على سؤالك
-
Ali994m's post in عدة نصوص فلاشية متحركة على اليوزرفورم was marked as the answer
وعليكم السلام ورحمة الله وبركاته
كل ماعليك تعديل الكود بإضافة اسم النص المطلوب تحويله لنص فلاشي
وتغيير رقم اللون حسب الرغبة
Private Sub UserForm_Activate() For i = 1 To 10000 DoEvents L1.ForeColor = QBColor(Rnd * 15) Label2.ForeColor = QBColor(Rnd * 15) Label3.ForeColor = QBColor(Rnd * 8) Label1.ForeColor = QBColor(Rnd * 9) CommandButton1.ForeColor = QBColor(Rnd * 7) Call Sleep(200) Next i End Sub Test.xlsكما يجب أن يحتوي الملف على Module يحتوي الكود التالي
Declare Sub Sleep Lib "kernel32" (ByVal dwmilliseconds As Long) أرجو الله تعالى أن أكون وفقت في الاجابة على سؤالك