استفسار
ما هي الطريقة التي يجعل الضغط على زر يرافقة صوت كلك ؟
وشكرا
تم تعديل هذه المشاركة بواسطة shadi77 في 27 ديسمبر 2008 في 21:42
فأنت اخي المبرمج ..لا تبخل بعلمك عمن يطلبه فقد كنت يوما تبحث كما نبحث نحن.. واعلم لو حجب العلم عنك لما وصلت الى ما انت عليه الان.. فاتق الله في طالب العلم وتذكر ما منه الله عليك ولا تبخل بعلمك وما اوتيت من معرفة ليبارك الله علمك وينفعك به.
Private Declare Function MessageBeep Lib "user32" (ByVal wType As Long) As Long Private Sub Command1_Click() MessageBeep 0 End Sub
اعتذر عن عدم تمكني للمتابعه الدورية في وقتنا الحالي
فليقبل الجميع تقديري واحترامي .. ولكم تحياتي
شكرااخي الكريم لكن لو سمحت اين اضعها من هذا الكود ؟
Private Sub Command1_Click()
End Sub
وشكرا
فأنت اخي المبرمج ..لا تبخل بعلمك عمن يطلبه فقد كنت يوما تبحث كما نبحث نحن.. واعلم لو حجب العلم عنك لما وصلت الى ما انت عليه الان.. فاتق الله في طالب العلم وتذكر ما منه الله عليك ولا تبخل بعلمك وما اوتيت من معرفة ليبارك الله علمك وينفعك به.
يعني ايه (اين اضعها من هذا الكود)
المفترض انك هتحط دالة الـ API في منطقة التصريحات ( الـ Declarations )
وتخليها Private أو Public زي ما تحب وحسب المكان اللى هتحطها فيه
Private Declare Function MessageBeep Lib "user32" (ByVal wType As Long) As Long
أو
Public Declare Function MessageBeep Lib "user32" (ByVal wType As Long) As Long
ولما تحب تنادي على الدالة هتنادي عليها بالشكل ده
MessageBeep 0
أو
Call MessageBeep(0)
متفرقش.. :)
الرد السابق كانت محطوطه في حدث الـ Click للـ Command1 علي سبيل المثال .. ده كان كل المقصود
إيه الغريب في كده ؟
اعتذر عن عدم تمكني للمتابعه الدورية في وقتنا الحالي
فليقبل الجميع تقديري واحترامي .. ولكم تحياتي
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…