عدد المساهمات : 1596 تاريخ التسجيل : 17/05/2012 الموقع : محافظة بورسعيد
موضوع: كلمات تتحرك داخل الفورم باستخدام WebBrowser الخميس يناير 28, 2021 9:20 am
كلمات تتحرك داخل الفورم باستخدام
WebBrowser
الاكواد
الكود:
الاداة WebBrowser1 ------ Option Explicit Public LeTexte As String Public LaCouleur As String --- Private Sub UserForm_Initialize() LeTexte = Sheets("magdi").Range("a1").Text LaCouleur = "#990000" ParametresHtml End Sub Sub ParametresHtml() UserForm3.WebBrowser1.Navigate _ "about:<html><body scroll='no'><font color= " & LaCouleur & " size='8' face='NEW'>" & _ "<marquee>" & LeTexte & "</marquee></font></body></html>" End Sub
_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك
من أحب الله رأى كل شئ جميلا
مع تحياتى مجدى يونس
Sad
عدد المساهمات : 55 تاريخ التسجيل : 24/10/2020
موضوع: رد: كلمات تتحرك داخل الفورم باستخدام WebBrowser السبت فبراير 03, 2024 11:39 pm