[عبد العزيز البسكري]

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

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

الملف الصّوتي الذي ضبط معي ..الكود وجدته داخل الفورم .. العملية وجدتها بسيطة بفضل شروحاتك المميّزة

بهذه الصّفحة الأولى كتبت موضوعًا بعنوان "إيقاف المقطع الصوتي" ..

الملف الصوتي المقصود عبارة عن فيديو بامتداد MP4

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

أين أكتب اسم المجلد الذي سيتم إخفاؤه داخل هذا الفورم

فائق إحتراماتي

[Ahmed_Mansoor]

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

- جرب ورد خبر .

[عبد العزيز البسكري]

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

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

[Ahmed_Mansoor]

أهلا أخي عبدالعزيز , بالنسبة للكود في الصورة التي أرفقتها أنت تستخدم أداة الـDrive1 الخاصه بالأقراص وأداة الـ Dir1 والخاصه بالمجلدات على القرص المحدد , لكن أنت وضعت الملفات في مجلد بإسم abdelaziz وهذا المجلد مكانه دائماً في داخل مجلد البرنامج أي بجانب ملف البرنامج لذلك أعتقد أنك لاتحتاج أداة الـ Drive1 وأداة الـ Dir1 لتحديد مكان وجود الملفات التي بداخل المجلد abdelaziz  لأننا نعرف مكان وجود هذا المجلد لذلك أنت فقط تحتاج أداة الـ File1 لكي نعرض فيها الملفات الموجوده في المجلد abdelaziz , لذلك هذا الجزء من الكود أعتقد انك لاتحتاجه إلا إذا كنت تريده في أغراض أخرى أنا لا أعلم إخبرني إن كنت تريد إستخدامها , إذا مسار الملفات الذي يجب أن تضعه في الأداة File1 هو :

PHP كود :

'المسار القديم بإستخدام أداة الـDir1
WindowsMediaPlayer1.URL = Dir1.Path & "\" & File1.FileName
'المسار الجديد
WindowsMediaPlayer1.URL = App.Path & "\abdelaziz\" & File1.FileName 


- تعديل الكود الموجود بالصور , سيصبح هكذا :

PHP كود :

Private Sub File1_DblClick()
Form3.WindowsMediaPlayer1.Controls.stop
WindowsMediaPlayer1.URL = App.Path & "\abdelaziz\" & File1.FileName
WindowsMediaPlayer1.Controls.play
End Sub

Private Sub Form_Load()
Form3.WindowsMediaPlayer1.Controls.stop
File1.Path = App.Path & "\abdelaziz"
File1.Pattern = "*.mp3;*.wav;*.mp4;*.flv;*.mkv"
End Sub 


- والمعذرة لم أشاهد الكود الموجود في الفورم3  ولا الكود الموجود في الفورم1 لذلك عدلتها  .

[عبد العزيز البسكري]

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

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

[Ahmed_Mansoor]

أهلا أخي عبدالعزيز ، شكراً جزيلاً لك جزاك الله كل خير ، وإذا واجهتك اي مشكله رجاءً لاتتردد في طرحها .

[عبد العزيز البسكري]

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

أخي الفاضل "أحمد منصور"
لا أعتبرها مشكلة واجهتني .. لكن حركة بسيطة أخيرة بإذن الله إنتبهت لها الآن فقط ..
بالملف المرفق رقم 4 بمشاركتك رقم 14 .. هل من الممكن التغيير بالكود ليبقى صّوت سورة الفاتحة شغّال لغاية لما أضغط على ما هو مشار إليه بالسّهم
حينها يتوقّف صوت سورة الفاتحة ليشتغل مقطع الفيديو
لك فائق الاحترام و التقدير

[عبد العزيز البسكري]

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

بالتغيير و اللعب عشوائيا بالأكواد .. تم إيجاد الحل لهذه الحركة البسيطة .. و الحمد لله
بارك الله فيك أخي الغالي " أحمد منصور "
جزاك الله خيرًا و زادها بميزان حسناتك
درس من الدروس الشيّقة و الممتعة له أهميّة كبيرة عندي .. تعلمته من خلال سيادتك المحترمة
دمتَ ذخرا لهذا الصّرح التّعليمي الكبير .. و رمزا من رموز عمالقته
وفّقك الله لما يحبّه و يرضاه و زادك من علمه و فضله
فائق إحتراماتي لشخصك القدير

[Ahmed_Mansoor]

أهلا أخي عبدالعزيز , إجابة سؤالك في ردك رقم 17 هو أنسخ هذا الكود وإستبداله بالكود الموجود في الفورم2 :

PHP كود :

Private Sub File1_DblClick()

Form3.WindowsMediaPlayer1.Controls.stop

WindowsMediaPlayer1.URL = App.Path & "\abdelaziz\" & File1.FileName

WindowsMediaPlayer1.Controls.play

End Sub


Private Sub Form_Load()

File1.Pattern = "*.mp3;*.wav;*.mp4;*.flv;*.mkv"

File1.Path = App.Path & "\abdelaziz"

End Sub 


- ملاحظه : أنا الآن إنتبهت للفيديو الموجود في المثال وذلك لتركيزي في الكود بصراحه شئ رائع وجميل منك أخي عبدالعزيز جزاك الله كل خير .

[عبد العزيز البسكري]

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

أخي الغالي " أحمد منصور "

أدعو الله أن ييسّر لك أمورك مثلما دومًا سبّاق لتيسير أمورنا
معذرة على الرّجوع إلى هذا الموضوع ..

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

إقتباس :Private Sub Form_Load()
Combo1.AddItem ("azul.skn")
End Sub

كود :

Private Sub Combo1_Clic()                  

Skin1.LoadSkin App.Path & "\" & (Combo1.Text) & ""
Skin1.ApplySkin Me.hwnd

End Sub

أين يتم إضافة الكلمة " abdelaziz" التي هي اسم الملف المخفي بنفس طريق هذا الكود مثلاً :

إقتباس :Private Sub Form_Load()
WindowsMediaPlayer1.URL = App.Path & "\abdelaziz\modh arafto allah rabbi.mp3"
End Sub

بارك الله فيك و في أوقاتك و صحّتك مقدّمًا سيّدي المحترم
فائق إحتراماتي