الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيف اشغل اغنية عن طريق القائها فى بى 2005

مغلق
بدأه hisham2007 في 9 أكتوبر 2006 · 7 رد · 950 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

انا اسف انى كررت المشاركة بس انا زعلان عشان انا هنا من سنة 2004 ولما بتقابلنى مشكلة بسأل عليها

والمفروض انتو هنا تساعدونى

المشرف بيقولى اقرأ شروط القسم للمشاركة

وانا قمت بقرائتها ومش لاقى انى بخالفها فى اى بند

انا شغال على فيجوال بيسك 2005 وهو يعتبر حديث نسبيا ولما تقابلنى مشكلة وأسأل فيها مش عيب

لو انا غلط يريت تفهمونى الصح

وانا اسف لو كنت منفعل شوية

وشكرا

#2

أخ hisham2007 طول بالك مابدها كل هالانفعال كلنا نخطئ وكلنا إخوة هنا

بس لاحظ النقطة التي أشار إليها الأخ code hunter

أنت بموضوعك السابق عم تسأل سؤالين كل واحد بعتقد بيحتاج موضوع مستقل لمناقشته

1 - السحب والإفلات - موضوع كبير بحد ذاته إن أردت تغطية كافة جوانبه

2 - ربط امتداد معين ببرنامجك - متعلق ببرمجة الريجستري -

تم تعديل هذه المشاركة بواسطة samerselo في 9 أكتوبر 2006 في 22:02

عن عائشة رضي الله عنها أن النبي صلى الله عليه وسلم قال: إن الله يحب إذا عمل أحدكم عملا أن يتقنه

نعيب زماننا والعيب فينا ... وما لزماننا عيب سوانا

ونهجو ذا الزمان بغير ذنب ... ولو نطق الزمان لنا هجانا

محمد سامر أبو سلو

#3

حصل خير يا جماعه , القواعد ليست الا للتنظيم لتسهيل البحث والفهرسة بعد ذلك , يعني برضه لمصلحتكم :D

وبالنسبه لأسئلتك:

1- الـ Drag Drop :

سنقوم بعمل مثال يقوم فيه المستخدم بسحب ملف ما والقاؤه مثلا علي ListBox ,

أولا: فتأتي في حدث الـ DragOver للـ List Box ونعطي تأثير السحب عليه كالآتي :

 If e.Data.GetDataPresent(DataFormats.FileDrop) Then
			e.Effect = DragDropEffects.Link
		End If

ثانيا: في حدث الـ DragDrop نقوم بعمل جلب لمسار الملف في صورة مصفوفه نصية كالتالي:

  Dim strFiles() As String = e.Data.GetData(DataFormats.FileDrop)
		For i As Integer = 0 To strFiles.Length
			MessageBox.Show(strFiles(i))
		Next

أما بالنسبه لتشغيل ملف صوتي (وبلاش أغنية دي) فيوجد موضوع للأخ محمد سامر: الأصوات في برنامجك

أما بالنسبه لعمل Extention Assoctiation فابحث عنه وستجده الاجابة ان شاء الله ,,,

تم تعديل هذه المشاركة بواسطة hazzoom في 9 أكتوبر 2006 في 23:26

#4

الف شكر على الرد

واسف لما صدر منى

انا عارف ان انا سألت عن حاجات موضوعها يطول شرحه

بس كل الحكاية ان انا مش عايز الشرح الطويل

انا جبت فيجوال بيسك 2005 وكنت مفكر ان ميكروسوفت عملت فيه اللى ميتعملش

وانه هو ثورة حيحل كل المشاكل اللى فاتت ويسهل حاجات زى اللى انا سألت عليه

ففكرت ان ميكروسوفت اخترعت دوال جديدة تسهل عليا وهو ده اللى كنت بسأل عليه بس

اما بالنسبة لسؤالى عن السحب والالقاء

فأنا بعرف اعمله من جوه نافذة البرنامج

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

ارجو الرد على هذا السؤال

وعدم الرد على السؤال الثانى لكى لا يكون فى المشاركة غير سؤال واحد

وشكرا لسعة صدركم

واسف مرة تانية عن اى تجاوز حصل منى

#5
اقتباس
اما بالنسبة لسؤالى عن السحب والالقاء

فأنا بعرف اعمله من جوه نافذة البرنامج

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

يعني ايه من جوه نافذة البرنامج ؟ ثانيا لا يوجد فرق بين ملف صوتي وآخر غير صوتي لأنه يمكنك عمل Check لفحص نوع الملف ! وبعدها يمكنك تشغيله !

#6

انا اسف لو مكنتش واضح فى السؤال

انا اللى اقصده كمثال

عايز احط

picturebox1

على الفورمة

ولما المستخدم يشغل البرنامج

وعايز يعرض صورة فى الكمبيوتر

فيفتح

my pictures

مثلا

ويسحب صورة ويرميها على

picturebox1

فتظهر الصورة

يارب اكون واضح المره دى

وشكرا

#7

تفضل في المرفقات مثال - إن كنت فهمت قصدك صح - باستخدام vb2005 Express مع Windows Media Player 10 SDK

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

Public Class Form1

	Private WMP As New WMPLib.WindowsMediaPlayer

	Private Sub PictureBox1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles PictureBox1.DragDrop
		Dim strFiles() As String = e.Data.GetData(DataFormats.FileDrop)
		WMP.URL = strFiles(0)
		WMP.controls.play()
	End Sub

	Private Sub PictureBox1_DragOver(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles PictureBox1.DragOver
		If e.Data.GetDataPresent(DataFormats.FileDrop) Then
			e.Effect = DragDropEffects.Link
		End If
	End Sub

	Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
		Me.PictureBox1.AllowDrop = True
	End Sub

	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
		WMP.controls.stop()
	End Sub

End Class

WindowsApplication4.zip

عن عائشة رضي الله عنها أن النبي صلى الله عليه وسلم قال: إن الله يحب إذا عمل أحدكم عملا أن يتقنه

نعيب زماننا والعيب فينا ... وما لزماننا عيب سوانا

ونهجو ذا الزمان بغير ذنب ... ولو نطق الزمان لنا هجانا

محمد سامر أبو سلو

#8

الف الف شكر

ايوه ده اللى انا عايزه

واسف لو كنت تعبتكم معايا

هذا الموضوع مغلق.

مواضيع مشابهة