بسم الله الرحمن الرحيم مرفق لكم برنامج جميل من اعداد الاخت زهرة ولكن مطلوب تعديل بسيط وهو تشغيل الفيديو والصوت حسب الملفات الموجودة فى مجلد قاعدة البيانات على ان يكون تشغيل ملف صوت او فيديو على الاسم الموجود فى مربع نص يوجد داخل النموذج مثلا يوجد ملف صوت اسمه aa يتم تشغيله عندما يكون هناك مربع نص مكتوب تلك القيمة بداخله اي جعل النموذج يجتوى على سجلات باسماء ملف الصوت والفيديو الموجودة فى نفس المجلد واعتذر للاطالة وشكرا
تعديل فى برنامج الاخت زهرة
يرجى من اعضاء المنتدى الكرام ان كان لا يوجد اي حل لهذا السؤال برجاء الافادة وشكرا للجميع
السلام عليكم ورحمة الله وبركاته
تفضل أخي الكريم التعديل الذي طلبته
تم تعديل هذا الكود
Private Sub CmdOpen_Click() Call CmdNew_Click Dim strFilter As String Dim strInputFileName As String strFilter = ahtAddFilterItem(strFilter, "VideoFiles (*.wmv)", "*.wmv") strFilter = ahtAddFilterItem(strFilter, "VideoFiles (*.wm)", "*.wm") strFilter = ahtAddFilterItem(strFilter, "VideoFiles (*.asf)", "*.asf") strFilter = ahtAddFilterItem(strFilter, "VideoFiles (*.avi)", "*.avi") strFilter = ahtAddFilterItem(strFilter, "VideoFiles (*.flv)", "*.flv") strFilter = ahtAddFilterItem(strFilter, "VideoFiles (*.mpe)", "*.mpe") strFilter = ahtAddFilterItem(strFilter, "VideoFiles (*.mpeg)", "*.mpeg") strFilter = ahtAddFilterItem(strFilter, "VideoFiles (*.mpg)", "*.mpg") strFilter = ahtAddFilterItem(strFilter, "VideoFiles (*.m1v)", "*.m1v") strFilter = ahtAddFilterItem(strFilter, "VideoFiles (*.vob)", "*.vob") strFilter = ahtAddFilterItem(strFilter, "SoundFiles (*.wav)", "*.wav") strFilter = ahtAddFilterItem(strFilter, "SoundFiles (*.mid)", "*.mid") strFilter = ahtAddFilterItem(strFilter, "SoundFiles (*.mp3)", "*.mp3") strFilter = ahtAddFilterItem(strFilter, "SoundFiles (*.mp2)", "*.mp2") strFilter = ahtAddFilterItem(strFilter, "SoundFiles (*.mpa)", "*.mpa") strFilter = ahtAddFilterItem(strFilter, "SoundFiles (*.cda)", "*.cda") strFilter = ahtAddFilterItem(strFilter, "SoundFiles (*.wma)", "*.wma") strFilter = ahtAddFilterItem(strFilter, "SoundFiles (*.au)", "*.au") strFilter = ahtAddFilterItem(strFilter, "SoundFiles (*.snd)", "*.snd") strInputFileName = ahtCommonFileOpenSave(Filter:=strFilter, OpenFile:=True, DialogTitle:="ÝÊÍ ãáÝ", Flags:=ahtOFN_HIDEREADONLY) Me.txtFile = strInputFileName Me!wmpPlayer.URL = Me.txtFile End Sub
حيث تم إضافة سطر
Me!wmpPlayer.URL = Me.txtFile
سلامي لك وللجميع
عَـجِبْتُ لِمَنْ يَتَفَكَّـرُ فى مَـأْكُولِهِ كَيْـفَ لا يَتَفَـكَّـرُ فى مَعْـقُـولِهِ، فَيُجَنِّبُ بَطْنَهُ ما يُؤْذيهِ، وَ يُودِعُ صَدْرَهُ ما يُرْدِيهِ
(الحسن بن علي بن أبي طالب)
اشكرك يا أخ اياد على اجابتك ولكن المطلوب هو التعرف تلقائيا على ملفات الصوت داخل نفس مجلد قاعدة البيانات حيث يتم تشغيلها من اى بارتيشن ارجو ان يكون طلبى واضحا اي يتم كتابة اسم الملف فقط داخل مربع النص وليس المسار بالكامل والغرض كما قلت هو تشغيل البرنامج من اى بارتيشن وشكرا
الحجازي طارق كتب:اشكرك يا أخ اياد على اجابتك ولكن المطلوب هو التعرف تلقائيا على ملفات الصوت داخل نفس مجلد قاعدة البيانات حيث يتم تشغيلها من اى بارتيشن ارجو ان يكون طلبى واضحا اي يتم كتابة اسم الملف فقط داخل مربع النص وليس المسار بالكامل والغرض كما قلت هو تشغيل البرنامج من اى بارتيشن وشكرا
أخي الكريم
على حد علمي لايوجد شي اسمه تشغيل ملف من أي باتشن
إلا إذا أردت أن تكتب اسم الملف فقط وتطلب من البرنامج أن يقوم بعملية بحث عنه في كل الكمبيوتر فهذا شئ آخر وحتى لوتم ذلك فلا بد من وضع المسار كاملاً بعد أن يتم إكتشاف مكانه في الكمبيوتر حتى يتمكن القارئ من الوصول إليه... وماذا في حال كان هناك نفس اسم الملف على أكثر من بارتشن ؟ّّّ!!!!$#$@{:content:}amp;&^
سلامي لك وللجميع
المرفقات
تم تعديل هذه المشاركة بواسطة إياد بيك في 12 مارس 2012 في 22:53
عَـجِبْتُ لِمَنْ يَتَفَكَّـرُ فى مَـأْكُولِهِ كَيْـفَ لا يَتَفَـكَّـرُ فى مَعْـقُـولِهِ، فَيُجَنِّبُ بَطْنَهُ ما يُؤْذيهِ، وَ يُودِعُ صَدْرَهُ ما يُرْدِيهِ
(الحسن بن علي بن أبي طالب)
مرفق لكم ملف يوضح ما اقصده
هل يوجد حل يشابة طريقة الملف المرفق