صدای بیب

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

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

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

می تونی از خط دستور Beep وی بی استفاده کنی

If i <> 0 then Beep

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

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

اول کد 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 از بلندگویه کامپیوتر