Private Sub File1_Click()
Text1.Text = File1.FileName
Select Case Right$(File1.FileName, 3)
Case "BMP", "bmp"
Picture1.Visible = True
MMControl1.Visible = False
Picture1.Picture = LoadPicture(Dir1.Path & " / " & File1.FileName)
Case "WAV", "wav"
Picture1.Visible = False
MMControl1.Visible = True
MMControl1.Command = "close"
MMControl1.DeviceType = "wavAudio"
MMControl1.FileName = Dir1.Path & " / " & File1.FileName
MMControl1.Command = "Open"
End Select
End Sub
السلام عليكم ورحمة الله وبركاته
اخي لاحظ ان اسم الزر هو File1
وحضرتك كاتب في الكود Text1.Text = File1.FileName
لا بد من تغيير اسم الزر كما يجب وضع اداة Common Dialog Control وتجعل اسمها File1
وان شاء الله يشتغل معاك
بالتوفيق
=============
الى اللقاء
JusT LeT YouR MinD WorK
;) الخطأ عندك في تحديد المسار وعلى كل حال خوذ هذا البرنامج مع كوده يفيدك
Image1.Picture = LoadPicture(File1.Path & "\" & File1.FileName)
لا اله الا الله وحده لا شريك له
MR^King كتب:السلام عليكم ورحمة الله وبركاتهاخي لاحظ ان اسم الزر هو File1
وحضرتك كاتب في الكود Text1.Text = File1.FileName
لا بد من تغيير اسم الزر كما يجب وضع اداة Common Dialog Control وتجعل اسمها File1
وان شاء الله يشتغل معاك
بالتوفيق
=============
الى اللقاء
________________________________
سلام عليكم ورحمة الله وبركاته
اشكراا أخي على الرد
ولكن عملت مثل ما قلت ولم يشتغل
شوف هذا المشروع وهو عبارة عن برنامج عرض الصور والصوت والفيديو
ولكن يتم عرض الصور . اما الصوت والفيديو ما يشتغل للك الملف التالي
محمد زياد الخياط كتب:;) الخطأ عندك في تحديد المسار وعلى كل حال خوذ هذا البرنامج مع كوده يفيدكImage1.Picture = LoadPicture(File1.Path & "\" & File1.FileName)
_______________-
اخي
اشكرك كثيرا على الملف
ولكن ملف عرض الصور شغال عندي
وباقي برنامج عرض الصوت والفيدو
شكرا مره اخي
شوف هذا المشروع
في الملف المرفق
تم تعديل هذه المشاركة بواسطة العقيد في 17 أغسطس 2006 في 19:02
السلام عليكم ورحمة الله وبركاته
اخي العقيد حضرتك نسيت تضع الفورم اللي فيها الاكواد :D
JusT LeT YouR MinD WorK
MR^King كتب:السلام عليكم ورحمة الله وبركاتهاخي العقيد حضرتك نسيت تضع الفورم اللي فيها الاكواد :D
سويت حفظ للمشروع
وطلعي نفسه الملفات السابقة
كيف احفظ ملف الاكواد معه علشان اعدل الملف و ارفعه
السلام عليكم احفظ الفورم والكود في مجلد واحد ثم قم بضغطه وارساله لي على بريد الكتروني
zi.kh@hotmail.com
لا اله الا الله وحده لا شريك له
هذا الموضوع مغلق.