صدای بیب

[Amir_vb.Net]

سلام بر دوستان عزیز

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

ممنون می شم:لبخندساده:

[mpmsoft]

می تونی از خط دستور Beep وی بی استفاده کنی
If i <> 0 then Beep

[Amir_vb.Net]

بابا دمت گرم من گفتم از کیس صدا بده

بی زحمت یه سورس برام بزار

[اوبالیت به بو]

اول کد Api زیر رو تویه بخش General بنویس:

Public Declare Function MessageBeep Lib "user32" Alias "MessageBeep" (ByVal wType As Long) As Long

بعد یه متغیر از نوع Variant تعریف کن.مثل:

Dim Beeper as Variant

حالا تویه دکمه یا هرچیزی که می خوای صدا بده کد زیر رو بنویس:

Beeper=MessageBeep(-1)
اگر داخل پرانتز 1 بزاری از کارت صدایه کامپیوتر صدا میاد ولی -1 از بلندگویه کامپیوتر