اذهب الي المحتوي
أوفيسنا

ابغى تعديل كود نص متحرك


الردود الموصى بها

السلام عليكم

عثرت على هذا الكود لتحريك نص داخل 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

مع وافراحترامنا

تم تعديل بواسطه ناصر المصرى
رابط هذا التعليق
شارك

الاستاذ الفاضل / ابن مصر الفالية

السلام عليكم

تم مراجعة كافة الروابط المتعلقه 

بذات الموضوع ولكن للأسف لم تفى يالغرض 

سوى المرفق ياللى بالرابط اعلاه

وافر تقديرنا لحسن المتابعه

تم تعديل بواسطه ناصر المصرى
رابط هذا التعليق
شارك

السيد الاستاذ / ابن مصر الغالية

شاكر جدا تفاعلك بالموضوع

اقتربت من تحقيق الهدف

ماريده ان يتم تفعيل الكود ولكن من

داخل   Label وليس TextBox  أو WebBrowser

عذرا لتعبكم ... فى انتظار ردكم ... وافر تقديرى

رابط هذا التعليق
شارك

السيد الاستاذ الفاضل // ابن الغالية   " مصر "

بارك الله فيك 

سأجرب على الملف الاصلى

وسأوافيك بالنتيجة

وافر احترامى 

تم تعديل بواسطه ناصر المصرى
رابط هذا التعليق
شارك

ابن مصر الغالى

الملف أكثر من رائع ولكن

بالتجربة حدث تعارض مع باقى الاكواد بالملف الاصلى

هل يمكن تعديل الكود باللى بالمشاركة 1

ليتوافق مع الكود ياللى بموضوع شئون العاملين

خيث تمت تجربته بالملف الاصلى حبث لايوجد تعارض

ولكن يعيبه البطىء وعدم الانسيابية فى الحركة

 والمطلوب هو ان يكون هناك توافقا بين الكودين

وافر احترامى

تم تعديل بواسطه ناصر المصرى
رابط هذا التعليق
شارك

اخى العزيز الفاضل الاستاذ // عبدالبارى البنا

تسلم عيونك حبيب قلبى

وتسلم عيون حبيب قلبى ابن مصر الغالى

والله ماقصرتم فجميع الحلول ماأروعها

ولكن المشكلة يوجد تعارض بالملف الاصلى المعمول عليه

والمطلوب هو كيفية جعل الكود ياللى بالمشاركة الاولى

يعمل بطريقة انسيابية حيث لايوجد به أى عوائق

بالملف المعمول عليه سوى بطئه الشديد وعدم انسيابته

أرجو التماس العذر ... وفققكم الله .... وافر تقديرى

تم تعديل بواسطه ناصر المصرى
رابط هذا التعليق
شارك

في رأيي الشخصي هذا النوع من الأكواد يسبب ثقل في التعامل مع الملف وأنصح بعدم استخدامه

مجرد رأي ..

تقبل تحياتي

رابط هذا التعليق
شارك

في رأيي الشخصي هذا النوع من الأكواد يسبب ثقل في التعامل مع الملف وأنصح بعدم استخدامه

مجرد رأي ..

تقبل تحياتي

الاستاذ الفاضل / ياسر خليل

السلام عليكم

جميع الاراء محل تقدير واحترام

وماهى الاكواد الملائمة لتنفيذ ذلك 

نرجو توضحيا بمثال عملى فضلا لا أمرا

وافر تقديرى

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • اضف...

Important Information