البحث في الموقع
Showing results for tags 'نص متحرك'.
تم العثور علي 2 نتائج
-
السلام عليكم ورحمة الله تعالى وبركاته .. ممكن المساعدة من الاخوة الافاضل ؟ النص المتحرك ولوسمحتم واجهة للفروم ببسورد admin / 123 ولكم كل الشكر والعرفان AB.rar
-
السلام عليكم عثرت على هذا الكود لتحريك نص داخل Label ولكن هذا الكود يعمل يطريقة بطيئة ولايعمل الا سوى بضع مرات ومع افتراب الماوس من Label فقط Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Dim CurPosition As Long, Starttime As Long, elapsed As Long CurPosition = UserForm1.Width - (Label1.Width + 10) Label1.Left = CurPosition Label1.Visible = True Do Until CurPosition < 10 Label1.Left = CurPosition DoEvents Starttime = Timer * 100 elapsed = 0 Do While elapsed < 5 elapsed = (Timer * 100) - Starttime Loop CurPosition = CurPosition - 5 Loop End Sub ولكن اريد التعديل بالكود ليعمل بطريقة استمراية بنقس الطريقة بالمرفق ياللى بالرابط http://www.officena.net/ib/index.php?showtopic=58892&page=1 مع وافراحترامنا
