دمج ملف الصوت بالملف التنفيذي

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

طبعا يمكنك اضافته واليك الطريقه

افتح برنامجك ثم اضغط من اعلى Add-Ins

ثم Add-In manager

ثم vb 6resource editor

ضع لها علامتي صح علي اول اختيارين ثم ok

وبعد ذلك ستظهر لك علامه vb resource editor اضغط عليها

ثم اضغط علي الايكونة التي تؤدي الي add custom resource

ثم حمل ملفك الصوتي wav.*

سيخزنه لك برقم 101 اضغط عليه واجعل خانة type اجعلها "wave"

واكتب الكود التالي في الموديل

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (hpvDest As Any, hpvSource As Any, ByVal cbCopy As Long)

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Private Const SND_ASYNC = &H1   '  play asynchronously

Private Const SND_MEMORY = &H4  '  lpszSoundName points to a memory file



Public Sub PlaySoundResource(ResID As Integer)

   Dim bSound() As Byte

   bSound = LoadResData(ResID, "WAVE")

   Dim aSound As String

   aSound = Space$(UBound(bSound) + 1)

   CopyMemory ByVal aSound, bSound(0), Len(aSound)

   sndPlaySound aSound, SND_ASYNC Or SND_MEMORY



End Sub

ثم اكتب الكود التالي في الفورم

Private Sub Command1_Click()
PlaySoundResource 101
End Sub

وسجل مشروعك ومبروك عليك

الف الف الف الف الف شكر