الرئيسية المنتدى مركز رفع الصور صفحتنا على الفيس قناة اليوتيوب صفحتنا على تويتر واتس اب قوانين المنتدى
منتدى مجمع التطوير    

العودة   منتدى مجمع التطوير > المنتدى المتخصص > لغـات البرمجـة والمشـاريع الجـاهزة > برامج Microsoft Office

الملاحظات

برامج Microsoft Office يهتم ببرامج الميكروسوفت اوفيس ,excel ,access, word Frontpage,powerpoint ,outlook,

آخر 10 مشاركات مواقع للحصول على باك لينكس عالية (الكاتـب : admin - آخر مشاركة : سنبول - مشاركات : 1 - المشاهدات : 1161 - الوقت: 10:19 PM - التاريخ: 09-23-2021)           »          التقليد المذموم (الكاتـب : admin - مشاركات : 0 - المشاهدات : 297 - الوقت: 06:44 PM - التاريخ: 09-06-2021)           »          الخداع (الكاتـب : admin - مشاركات : 0 - المشاهدات : 215 - الوقت: 06:43 PM - التاريخ: 09-06-2021)           »          إعلانات شركة Admaven (الكاتـب : سنبول - مشاركات : 0 - المشاهدات : 351 - الوقت: 04:20 PM - التاريخ: 08-26-2021)           »          جدار روحك يريد أن ينقض (الكاتـب : admin - مشاركات : 0 - المشاهدات : 384 - الوقت: 11:27 PM - التاريخ: 08-23-2021)           »          سعر الذهب في مصر وعالميا صباح اليوم الخميس 12 أغسطس 2021 (الكاتـب : admin - مشاركات : 0 - المشاهدات : 377 - الوقت: 02:58 PM - التاريخ: 08-12-2021)           »          تأملت والدنيا (الكاتـب : admin - مشاركات : 0 - المشاهدات : 433 - الوقت: 10:54 PM - التاريخ: 08-03-2021)           »          وكن راضيا (الكاتـب : admin - مشاركات : 0 - المشاهدات : 413 - الوقت: 10:54 PM - التاريخ: 08-03-2021)           »          طوبا لمن عاش في هذه الدنيا غريبا (الكاتـب : admin - مشاركات : 0 - المشاهدات : 426 - الوقت: 10:53 PM - التاريخ: 08-03-2021)           »          لا تشكُ للناسِ (الكاتـب : admin - مشاركات : 0 - المشاهدات : 435 - الوقت: 10:52 PM - التاريخ: 08-03-2021)

إضافة رد
 
أدوات الموضوع انواع عرض الموضوع
  #1  
قديم 05-06-2021, 11:40 AM
الصورة الرمزية admin
admin 
✯ ادارة المنتدى ✯
 
تاريخ التسجيل: Mar 2021
الدولة: مصر
المشاركات: 733
معدل تقييم المستوى: 10
admin is a splendid one to beholdadmin is a splendid one to beholdadmin is a splendid one to beholdadmin is a splendid one to beholdadmin is a splendid one to beholdadmin is a splendid one to behold


? التحكم فى شرائح العرض بلوحة المفاتيح

 

هذا الكود كان ثاني تجربة لي فى برمجة الباوربوينت

و قد أعددته بناء علي طلب أحد الأخوة ، و فى البداية استغربت لطلبه فهناك عدة وسائل للتنقل بين الشرائح المختلفة ، فلماذا تريد التنقل بضغط رقم اللوحة ؟؟

و كانت الاجابة ، أنه يرغب فى إخفاء لوحة المفاتيح ووصلها بأزرار لعمل عرض
فيضغط المستخدم علي الزر الاحمر فيذهب للشريحة الاولي ... و هكذا

المهم بعد عدة محاولات ، تم اعداد الكود

و هو مناظر لاوفيس اكس بي

و الشرح داخل الملف
و الفكرة عبارة عن عمل add-in لأن تشغيل الاحداث تلقائيا عند تشغيل العرض فى الباوربوينت يتم عن طريق وضع الكود فى add-in

مرفق الملف مع شرح كيفية توصيف ال add-in و أصل الكود لل add-in


كود:
Dim X As New EventClassModule

Sub Auto_Open()

  Call InitializeApp

  MsgBox "welcome to slide show by Keyboard numbers" & Chr(13) & Chr(13) & "By : Mohamed Taher Arafa "

  

End Sub



Public Sub InitializeApp()

    Set X.App = Application

End Sub


Public Sub activatef1()

        ActiveWindow.Selection.SlideRange.Shapes("Frame1").Select

End Sub



Public Sub moveit(KeyCode)

  Select Case KeyCode


Case 49

MsgBox "You Pressed on 1 and you shall go to slide no 1"

   With SlideShowWindows(1).View

    .GotoSlide 1

    End With

Case 50

MsgBox "You Pressed on 2 and you shall go to slide no 2"

   With SlideShowWindows(1).View

    .GotoSlide 2

    End With


Case 51

MsgBox "You Pressed on 3 and you shall go to slide no 3"

   With SlideShowWindows(1).View

    .GotoSlide 3

    End With


Case 52

MsgBox "You Pressed on 4 and you shall go to slide no 4"

   With SlideShowWindows(1).View

    .GotoSlide 4

    End With


Case 97

MsgBox "You Pressed on 1 and you shall go to slide no 1"

   With SlideShowWindows(1).View

    .GotoSlide 1

    End With

Case 98

MsgBox "You Pressed on 2 and you shall go to slide no 2"

   With SlideShowWindows(1).View

    .GotoSlide 2

    End With


Case 99

MsgBox "You Pressed on 3 and you shall go to slide no 3"

   With SlideShowWindows(1).View

    .GotoSlide 3

    End With


Case 100

MsgBox "You Pressed on 4 and you shall go to slide no 4"

   With SlideShowWindows(1).View

    .GotoSlide 4

    End With

    

Case 27

MsgBox "You Pressed Esc, Good bye !!"

   With SlideShowWindows(1).View

    .Exit

    End With

    

    

    Case Else

    MsgBox " Sorry this example is prepared for only 4 slides," & Chr(10) & Chr(13) & _

    "Choose a number from 1 to 4 please" & Chr(13) & Chr(13) & "Best Regards from : Mohamed Taher"


End Select

End Sub


Public Sub openit()

 UserForm1.Show

 UserForm1.Left = 0

 UserForm1.Top = 50

End Sub


Public Sub starting()

 Call InitializeApp

End Sub



الموضوع الأصلي : التحكم فى شرائح العرض بلوحة المفاتيح || الكاتب : admin || المصدر : منتدى مجمع التطوير

 

الملفات المرفقة
نوع الملف: rar keyboardPresentation2.rar‏ (53.1 كيلوبايت, المشاهدات 0)

التوقيع

رد مع اقتباس
إضافة رد

مواقع النشر (المفضلة)

أدوات الموضوع
انواع عرض الموضوع

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة

الانتقال السريع

المواضيع المتشابهه
الموضوع كاتب الموضوع المنتدى مشاركات آخر مشاركة
فرش حروف عربية تيبوغرافي admin التصـامـيم وإبداعــات الأعــضاء 0 04-30-2021 09:43 AM

 

موقع ومنتديات مجمع التطوير موقع يختص بالبرمجة والبرامج المساعدة  للتصاميم والأدوات المساعدة ,مع تقديم العون والمساعدة لكل مبرمج من خلال الأقسام المحددة , كما نعرض الأعمال الجاهزة والمفتوحة المصدر. ويهتم أيضا بالتصاميم والجرافيك وبرامجها وعرض التصاميم وملحقات التصاميم والأدوات المساعدة .كما نتمنى التوفيق لنا ولكم مع أجمل تحية مقدمة منا. 

  • الرئــيســية

  • الــمنــتـدى

  • مركز الرفع

  • التسـجـيل

  • قوانين المنتدى

  • التعـلـيمـات

  • الترقيات

check pagerank

 Flag Counter

كلمة الإدارة  منتدى مجمع التطوير غير مسئول عن أي طرح من الأعضاء فتلك الموضوعات تعبر عن رأى صاحبها ومن خلال وضع قوانين وتعليمات المشاركة بالمنتدى نسعى جاهدين لتطبيق تلك التعليمات. والمنتدى أيضا غير مسئول عن أي اتفاق مالي أو تجارى بين الأعضاء وبذلك تعد هذه الصيغة إخلاء مسئولية من جانب إدارة المنتدى وفقنا ووفقكم الله لما فيه الخير
 
الساعة الآن 02:01 PM


Powered by vBulletin® Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
جميع الحقوق محفوظة لمجمع التطوير