صالح حمادي

الحمد لله الذي تتم بنعمته الصالحات أحسنت بهذا الشكل سوف تتعلم بسرعة إن شاء الله

السلام عليكم إليك طريقة لتشغيل ملف صوتي مع الأكسس ضع هذا الكود في وحدة نمطية جديدة Declare Function apisndPlaySound Lib "winmm" Alias "sndPlaySoundA" (ByVal filename As String, ByVal snd_async As Long) As Long اجعل اسم الملف الصوتي ringin و صيغته Wav و ضعه في في مجلد البرنامج و ضع هذا الكود خلف زر أمر Dim x2 As String x2 = (Application.CurrentProject.Path & "\ringin.wav") If apisndPlaySound(x2, 1) = 1 Then End If و هذا مثال لا أعرف مصدره تشغيل ملف صوتي بالأكسس.rar

السلام عليكم تفضل هذا المرفق وضعت به زرين أحدهما لتسجيل الأداة و الآخر لحذف التسجيل كل ما عليك فعله هو وضع الأداة في مجلد system32 ثم افتح البرنامج و اضغط على زر تسجيل الأداة تسجيل أداة أكيف أكس.rar

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

تفضل التموذجين ثابتين في مكانهما و عند إغلاق نموذج يغلق معه النموذج الآخر شاشة نموذجي القراءة والاقتباس من الكتب2.rar

السلام عليكم لقد قمت بإضافة نموذج frm3 بدلا من frm1 ليس به أكواد برمجية فقط من أجل إيصال الفكرة ثم تستطيع تطبيقها على النموذج الأساسي عند فتح النموذج FoaidAddfBook فإنه بفتح معه النموذجين الآخرين جنبا إلى جنب شاشة نموذجي القراءة والاقتباس من الكتب1.rar

تفضل Photo.rar

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

الفديو رائع لكن كما ذكرت أنت في الفديو لم أجد أداة الدمج لأنني أستخدم 2010 و أيضا لم أجد نوع الخط الذي استعملته أنت

عمل أكثر من رائع أشكال في قمة الروعة من استاذ مبدع لقد كنت أساءل دائما عن طريقة إنشاء الأشكال الهندسية بهذه الطريقة. ياريت تضع الفديو أستاذ و ألف ألف شكرا جعلها الله في ميزان حسناتك إن شاء الله

السلام عليكم الآن أصبح بالإمكان تصدير الباركود إلى الصورة مع التقرير. salah88.rar

عندما توضع الأكواد يدي مبدع سوف ترى العجب العجاب ما شاء الله عليك أستاذ مجدي أنا أيضا أشتغل على 2010 و هو يعمل هذه الأشياء بشكل ممتاز

موفق إن شاء الله

إن شاء الله على أحر من الجمر

أهلين بك أستاذنا الغالي مجدي يجب تغيير اسم قسم الباور بوانت بإسمك لكثرة إبداعك فيه. - إليك المرفق و به زر أمر عند الضغط عليه يقوم بإنشاء شكل نجمة بدون تعبئة (شفافة) و نستطيع إضافة أي شكل نريد بأي لون نريد و كذلك النصوص و الصور كلها بإستعمال هذه الدالة أو هذا الكود إنشاء شكل.pptm

فكرة ممتازة أستاذ مجدي راح نستفاد منها كثير

السلام عليكم الحمد لله لقد وجدت الحل و هو كما يلي: Dim sh As Shape Set sh = ActivePresentation.Slides(1).Shapes.AddShape(msoShape5pointStar, 50, 50, 600, 400) sh.Fill.Visible = msoFalse السطر الأخير هو المسؤول على إزالة تعبئة لون الشكل

السلام عليكم و رحمة الله تعالى و بركاته إخوتي الكرام في قسم PowerPoint حياكم الله. لقد قمت بإستعمال الأكواد البرمجية لإنشاء أشكال مثل المستطيل أو نجمة أو مثلث ...الخ لكن بقي لدي مشكل و هو عند جعل الشكل بدون تعبئة أو شفاف يظهر خطأ. و هذا هو الكود المستعمل: Dim Sh As PowerPoint.Shape Set Sh = ActivePresentation.Slides(1).Shapes.AddShape(msoShapeIsoscelesTriangle, 15, 15, 200, 200) Sh.Fill.ForeColor.SchemeColor = ppNotSchemeColor الخطأ يظهر في السطر الأخير فقط عند اختيار أي تنسيق أو أي لون ماشي الحال لكن عند إزالة التعبئة يظهر الخطأ شكرا جزيلا مسبقا.

شكرا جزيلا أستاذ جعفر لاحظ المرفق الآتي : - لقد قمت بإضافة جدول للملف و قمت بربط بيانات الجدول بالنموذج و التقرير - عند الضغط على زر التصدير يقوم البرنامج بإخراج بيانات التقرير على شكل صورة بما في ذلك الصور الموجودة أو المستطيلات و العناصر المخفية في التقرير لا يظهرها في الصورة و هذا هو المرفق أتمنى تجربته و موافاتنا بالنتائج. salah88.rar

أستاذ @jjafferr ما ينقصني هنا هو كود معرفة نوع عناصر التقرير لدي هذا الكود يقوم بإستخراج عناصر التقرير و إريد إضافة الدالة التي تقوم بإعطائنا نوع هذا العنصر (textbox ,label, image...) Dim frm As Report Dim fc As Control Dim xname as String For Each fc In frm.Controls xname = fc.Name Next fc

إليك هذا المرفق أستاذ جعفر هناك تقرير في البرنامج اسمه rpt به ثلاث مربعات نص عند الضغط على زر التصدير بالنموذج يقوم البرنامج بإخراج صورة بها جميع مربعات النص و بنفس الحجم و اللون و الترتيب و نوع الخط salah88.rar

جيدا جدا أستاذ جعفر الظاهر أنه الموضوع ليس بجديد عليك نستطيع تصدير جميع بيانات كائنات التقرير بهذه الطريقة و سوف أرفق لك مثال على ذلك

نعم أستاذ جعفر هذا صحيح لقد عدلت على الكود بحيث لا تظهر الشرطة salah88.rar

أهلين أخي العزيز جعفر لا أدري أنا لا تظهر عندي الشرطة و كذلك الأخ athl أستاذ جعفر ما رأيك في هذه الفكرة و هل سوف تساعدني لتطويرها

نعم هذه المسألة بسيطة و نستطيع تجاوزها بسهولة تفضل إطلع على هذا المرفق: salah88.rar