اجرای صدا در ویژوال بیسیک 6

[asoudeh1]

برای پخش صدا با فرمت wav در ویژوال بیسیک 6 ابتدا یک ماژول را تولید کنید وکدزیر را در آن بنویسید

Public lSound As Long

Declare Function sndSound Lib "WINMM.DLL" Alias "sndPlaySoundA" (ByVal lpszSoundName As

String, ByVal uFlags As Long) As Long

خوب حال در یک دکمه کد زیر را بنویسید

lSound = sndSound(App.Path & "\name.wav", 1)

و به جای Name آدرس فایل رو بنویسید خوب حالا اگه رو یه دکمه کلیک کنید صدا پخش میشه


weblog