Sound بر روی دکمه ها

[Vahid_VB6]

ا سلام ببخشید من یک سوال دارم میخواستم بدونم چه جوری میشه روی دکمه ها صدا گذاشت یعنی موزیک با پسوند Wav البته من یکی پیدا کردم ولی جواب نمیده . ممنون میشم راهنمایی کنید.


Public Sub PlaySound(strFileName As String) sndPlaySound strFileName



, 1End SubPlaySound "sounds/2.wav"



دوستان خواهشا یک راهنمایی کنید یا اگر میشه یک سورس آماده بذارید ما از روش یاد بگیریم من نمیدونم آیا اینجا مدیر سایت به سوالات جواب میده یا چه کسی خواهشا یک راهنمایی کنید که ما دیگه مزاحم نشیم

[Vahid_VB6]

سایت ایران ویج میگن سایت تخصصی برنامه نویسان هستش ؟؟ بعد یک سوال میکنی همه توش گیر میکنن واقعا خنده دار هستش شایدم انقدر برای خودشون کلاس میذارن که به سوالات جواب نمیدن واقعا برای همه متاسف هستم ما اولین پست بود که فرستادیم اما دریغ از یک راهنمایی کوچولو نمیدونم اصلان این قسمت مدیر داره ؟

[Iron_Fist]

باشه باشه
شاکی نشو
همین الان بهت جواب می دم

[Pedram_HookEx]

با اجازه Iron جان

این هم یک سورس که فایل هات رو میتونی توی خود برنامت بزاری و دکمه هات هم صدا داشته باشه

[Iron_Fist]

اینم مدل معمولیش
البته برنامه آقا پدرام حرفه ای تر هست
ولی چون نمی دونستم که شما کار باریسورس رو بلدید یا نه این
مدل سادش رو هم براتون گزاشتم

[Vahid_VB6]

سلام آقا دست هر 2 نفر شما درد نکنه خیلی خیلی ممنونم ببخشید اگر یه کم در نوشته بالایی بد صحبت کردم شرمنده هر 2 نفر هستم ولی باور کنید خیلی سایتها رفته بودم مثل barnamenevis.org بهم جواب ندادن تا اینکه شما زحمت کشید موفق باشید

[black-scorpion]

شما حتي مي تونيد با كد زير يك آهنگ را در حال اجراي برنامه پخش كنيد:

Private Const SND_APPLICATION = &H80 ' look for application specific association
Private Const SND_ALIAS = &H10000 ' name is a WIN.INI [sounds] entry
Private Const SND_ALIAS_ID = &H110000 ' name is a WIN.INI [sounds] entry identifier
Private Const SND_ASYNC = &H1 ' play asynchronously
Private Const SND_FILENAME = &H20000 ' name is a file name
Private Const SND_LOOP = &H8 ' loop the sound until next sndPlaySound
Private Const SND_MEMORY = &H4 ' lpszSoundName points to a memory file
Private Const SND_NODEFAULT = &H2 ' silence not default, if sound not found
Private Const SND_NOSTOP = &H10 ' don't stop any currently playing sound
Private Const SND_NOWAIT = &H2000 ' don't wait if the driver is busy
Private Const SND_PURGE = &H40 ' purge non-static events for task
Private Const SND_RESOURCE = &H40004 ' name is a resource name or atom
Private Const SND_SYNC = &H0 ' play synchronously (default)
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Private Sub Form_Load()

PlaySound "C:\WINDOWS\MEDIA\TADA.WAV", ByVal 0&, SND_FILENAME Or SND_ASYNC
End Sub
به جاي خط زير آدرس فايل خود را قرار دهيد.
C:\WINDOWS\MEDIA\TADA.WAV

[Payman62]

سلام.
خسرو کجا بودی؟ خیلی دلم برات تنگ شده بود. جات حسابی خالی بود. راستی چرا دیگه مدیر نیستی؟

[hamed_Arfaee]

با سلام
لطفا تاپيكهاي سال قبل رو بالا نيارين.

[Payman62]

سلام.
پس بگو چرا سر و کله خسرو پیدا شد. تاپیک قدیمیه. ماله زمانی که مدیر بود.
حامد چرا خسرو دیگه به سایت سر نمیزنه؟