اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

كيف نعمل شريط متحرك في اليوزرفورم؟


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

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

في الملف المرفق يوزرفورم هل يمكن إضافة شريط متحرك في ليبل أو تكست بوكس على أن يكون التحرك من اليسار لليمين حتى تكون الكتابة واضحة ؟

مع إمكان شرح عمل الشريط .

واجهة.rar

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

الأخ الكريم عزيز 60 ...

يرجى تغيير رقم 60 في اسم الظهور ليعبر عن اللقب وعن شخصكم الكريم

خطوات العمل اللازمة لعمل المطلوب :

**************************

اذهب لمحرر الأكواد Alt + F11

اعمل دبل كليك على الفورم .. إذا لم يكن صندوق الأدوات ظاهر قم بإظهاره عن طريق القائمة View ثم الأمر Toolbox

اعمل كليك يمين في مكان فارغ داخل صندوق الأدوات ، ستظهر نافذة اختر منها الأداة المسماة Microsoft Web Browser

ستظهر الأداة على صندوق الأدوات ، قم بالنقر عليها ورسمها داخل الفورم

قم برسم زري اختيار Option Button (عدد 2 أحدهما لاتجاه النص من اليسار لليمين والآخر من اليمين لليسار)

ضع الكود التالي في حدث الفورم في البداية

Public LeTexte As String, LaCouleur As String, V As Long

Private Sub OptionButton1_Click()
    WebBrowser1.Navigate "about:<html><body BGCOLOR ='#000000' scroll='no'><font color= " & LaCouleur & " size='5' face='arial'><body topmargin='0'>" & "<marquee direction= right>" & LeTexte & " </marquee></font></body><center></html>"
End Sub

Private Sub OptionButton2_Click()
    WebBrowser1.Navigate "about:<html><body BGCOLOR ='#000000' scroll='no'><font color= " & LaCouleur & " size='5' face='arial'><body topmargin='0'>" & "<marquee scrollamount=" & V & ">" & LeTexte & "</marquee></font></body><center></html>"
End Sub

Private Sub UserForm_Initialize()
    LeTexte = "السلام عليكم و رحمة الله و بركاته&nbsp;&nbsp;&nbsp; &nbsp;"
    V = 6: LaCouleur = "#OOFFFF": OptionButton1_Click: OptionButton1 = True
End Sub

تقبل تحياتي

 

 

 

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

عند النقر على صندوق الأدوات بالزر اليمين تظهر لي نافذة كما في الصورة المرفقة ولا تظهر الأداة  Microsoft Web Browser

استخدم نسخة 2010

بارك الله فيك 

56c1a76312453_.jpg.7a2177198402c9031d5b9

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

انقر على الأمر Additional controls سيظهر لديك نافذة بها أدوات التحكم الإضافية

وعجبي يا محب الإكسيل (قلنا التغيير يكون باسم معبر عن شخصكم الكريم .. وممكن تضيف اللقب الذي ترغبه في نهاية اسم الظهور مثلاً : محمد كامل (محب الإكسيل)

تقبل تحياتي

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

في 14/2/2016 at 20:18, محب الاكسل said:

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

في الملف المرفق يوزرفورم هل يمكن إضافة شريط متحرك في ليبل أو تكست بوكس على أن يكون التحرك من اليسار لليمين حتى تكون الكتابة واضحة ؟

مع إمكان شرح عمل الشريط .

واجهة.rar

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

لماذا يا عزيزي .. يا محب الاكسل لم تقم بزيارة هذا الموضوع ..

http://www.officena.net/ib/topic/64743-الواب-بروصر-webbrowser/#comment-421367

 

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

وجب علي الاعتذار أخي الحبيب عبد العزيز البسكري ..

فقد نسيت تماماً أنك صاحب الموضوع من البداية ، حيث وجد الملف في مكتبتي الخاصة ولم أذكر صاحب الملف .. فاعذرني حبيبي الغالي عبد العزيز على النسيان

تقبل وافر تقديري واحترامي

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

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

هل تصدّق حبيبي الغالي يسر خليل أبو البراء أنّي ما قصدت هذا أبدًا ..

أحببناك و مازلنا نحبّك و نبقى أوفياء لك و لحبك كأخ في الله ..

فكيف للإنسان أن يحاسب أخاه .. هذه لك و تلك لي ..

طالما أخذنا منك و مازلنا لحد الآن نعيش و نبني مشاريعنا على أساسك و على أساس أفكارك و أكوادك و بما منّ الله عليك من فضله و علمه

جزاك الله خيرًا و زادك من علمه و فضله

كل ما في الأمر .. موضوع تناسيته الأحداث فأردت إحيائه

و أنت صاحب الفضل في هذا أو ذاك .. ولا أحد بإمكانه أن ينكر جميلك و فضلك علينا

فائق إحتراماتي لشخصك الكريم

تم تعديل بواسطه عبد العزيز البسكري
  • Like 2
رابط هذا التعليق
شارك

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

أخي وحبيبي في الله عبد العزيز البسكري

الفضل لله عزوجل أولاً وأخيراً فيما وصلنا إليه جمعياً ..ثم إن الفضل في هذا الموضوع لك لا ينكر الفضل إلا جاحد أو متكبر (حاشا لله أن نكون من أيٍ منهما)

فقط أردت التأكيد على أن الموضوع يخصك في المقام الأول ، حتى ينسب العمل لأهله

جمعنا الله وإياك في مستقر رحمته في الملأ الأعلى

تقبل وافر تقديري واحترامي

  • Like 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.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information