هذا السؤال وأرجو الإجابة
سؤال: كيف اضيف صوت في الفورم
مغلق
أضف أداة مايكروسوفت ملتيمديا كونترول
Private Sub Form_Load()
'''''''''''''''''''''
Dim filename88 As String
If filename88 <> "" Then
End If
filename88 = App.Path
If Right(filename88, 1) <> "" Then
filename88 = filename88 + ""
End If
filename8 = filename88 + "svr.wav.wav"
MM.filename = filename8
'MM1.Command = "stop"
MM.Command = "open"
MM.Command = "prev"
MM.Command = "play"
mm
اسم اداة مايكروسوفت كنترول
من فين أجيبها ذي الأداة
للرفع
ما يشتغل ؟؟؟
اضف اداة mmcontrol
كيفية احضار هذه الاداة من كليك يمين على مربع الادوات ثم اختار commponent ثم microsoft multimedia control 6.0 ثم ضع الاداة على الفورم ثم افتح شاشة الكود
form_load
mmcontrol1.devicetype="waveauio"
mmcontrol1.filename="مسار الملف الصوتي"
mmcontrol1.command="open"
mmcontrol1.command="prev"
mmcontrol1.command="play"
ثم في كود اداة الـ mmcontrol
if mmcontrol1.position=mmcontrol1.lenght then
[CODE]mmcontol1.command="prev"
mmcontrol1.command="play"[/code
end if
ولكن هناك خطوات مهمة لتشغيل الملف الصوتي عن طريق ضبط الخصائص لاداة mmcontrol كالتالي
تحديد نوع الجهاز من خاصية device type ويجب ان يكون نوع الجهاز هنا هو
wave
تحديد اسم الملف والمسار من خاصية file name
(gift) واتمنى لك الافادة
عفواً
لقد أخطأت التعبير في السؤال أنا أردت أن أضع زر إذا ضغطت عليه يجي صوت
أناشيد مثلاً
ضع الكود داخل الزر فقط
أيت كود
هذا الموضوع مغلق.