صدای خطای ها در وی بی

[m-m]

چگونه ميشه در وبي صداي يک پيغام خطا را که در اورد مثلا وقتي روي يک دکمه کليد کرديم صداي خطايي که در که با دستور msgbox مي دهد در اورد
اين کار را براي اين مي خواهم چون برنامه کاملا فارسي بوده مجبور به جاي دستور Msgbox خودم فرم هايي تهييه کنم که کليد هاي انها مثلا به جاي Yes بله باشد
ولي به يک مشکلي بر مي خورم که ديگه اون فرم ها صداي خطا يا صداي پيغام اطلاعات را نمي ده

[ahvig]

خوب بايد اون صداي مورد تظرت كه همش هم توي ويندوز هستش رو توليد كني براي توليد صدا هم ميتوني از اي پي اي
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
استفاده كني و اين طوري هم صداش بزني
sndPlaySound snd, SND_ASYNC Or SND_NODEFAULT
sndمسير و نام فايل صداي مورد نظر است

[m-m]

دوست عزیز لطف کنید دقیقا کد کاملش را در برنامه بنویس چون من در مورد توابع ای پی آی هیچی نمی دانم
بعد من فقط صدای پیغام خطا را نمی خواهم بالکه صدای تمام پیغام های MsgBox را می خواهم زحمتش را بکشید
باز هم دوست عزیز تشکر

[arashrj]

سلام

کد:

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

Private Sub Command1_Click()
sndPlaySound 1, SND_ASYNC Or SND_NODEFAULT
End Sub

[m-m]

دوست عزیز تا اینجاشو که خودم هم یک جور هایی باد بودم(روی یک برنامه دیگه دیده بودم)
خوب این تابع مال پخش فایل های صوتی هستش ولی چه طوری میشه صدا های MsgBox , vbCriticalوvbExclamationوvbInformation را در اورد
از کمک هر دو شما دوستان عزیزم ممنونم ولی هیچ کدام منظور من را متوجه نشدین باز هم اگه متوجه نشدین بگویید توضیح بدهم

[ahvig]

توي windows\media همه این صداها وجود داره مثلا windows xp exclamation همون صدای msgboxexclamation هست خود ویندوز هم از همین فایلای صوتی استفاده میکنه تو هم میتونی با دادن مسیر به همون تابعی که قتلا برات گفتم اول اون صدا رو تولید کنی بعدهم مسیج باکستو نشون بدی برای اینکه همه جا هم کار کنه یه ای پی ای هست که مسیر ویندوزو بهت میده اصلا ولش کن کدای زیر رو توی یه فرم بچسبون بعد اجراش کن تا بفهمی

کد:

Private Const SND_ALIAS = &H10000
Private Const SND_ASYNC = &H1
Private Const SND_FILENAME = &H20000
Private Const SND_LOOP = &H8
Private Const SND_NODEFAULT = &H2
Private Const SND_NOSTOP = &H10
Private Const SND_NOWAIT = &H2000
Private Const SND_SYNC = &H0
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias _
"GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long _
) As Long

Private Sub Form_Load()
  windir = String(200, 0)
  GetWindowsDirectory windir, Len(windir)
  windir = Left$(windir, InStr(1, windir, Chr$(0)) - 1)
  sndPlaySound windir + "\media\Windows XP Startup.wav", SND_ASYNC Or SND_NODEFAULT
End Sub

[ahvig]

اينم يه روش ديگه براي توليد كردن فقط صداي مسيجها
يه كامند و يه تكست بذار رو فرمت و اعداد 0 تا 4 هر دفعه يكي رو تور تكست وارد كن و كامند و كليك كن

کد:

Private Declare Function MessageBeep Lib "user32" (ByVal wType As Long) As Long
    Private Const MB_ICONASTERISK = &H40&
    Private Const MB_ICONEXCLAMATION = &H30&
    Private Const MB_ICONHAND = &H10&
    Private Const MB_ICONINFORMATION = MB_ICONASTERISK
    Private Const MB_ICONSTOP = MB_ICONHAND
    Private Const MB_ICONQUESTION = &H20&
    Private Const MB_OK = &H0&
    
    Private Sub Command1_Click()
    Dim BeepType As Long, RtnValue As Long
    Select Case Val(Text1.Text)
    Case 0
    BeepType = MB_OK
    Case 1
    BeepType = MB_ICONINFORMATION
    Case 2
    BeepType = MB_ICONEXCLAMATION
    Case 3
    BeepType = MB_ICONQUESTION
    Case 4
    BeepType = MB_ICONSTOP
    End Select
     MessageBeep BeepType
    End Sub

[m-m]

ممنون از كممكتون
ولي خود ويندوز براي صداي پيغام MsgBox از چراهي استفاده ميكنه؟

[Blossom]

ممنون از كممكتون
ولي خود ويندوز براي صداي پيغام MsgBox از چراهي استفاده ميكنه؟

من توي اين سايت اينطور چيزي ديدم :http://www.microsoft.com :wink: