ازهر عبد العزيز قام بنشر April 9 مشاركة قام بنشر April 9 (معدل) السلام عليكم لدي هذا الكود Sub XY1() If ActiveControl.Text = Me.TextBox1.Text Then Me.TextBox1.Text = ActiveControl.Text My.Computer.Audio.Play("sounddd\BookName\1.wav", AudioPlayMode.Background) End If End Sub كيف اجعل تشغيل الصوت حسب الزر الذي تم الضغط علية دون اللجوء الى كتابة الكود تحت كل زر اي ياخذ قيمتة من ActiveControl.Text تم تعديل April 9 بواسطه ازهر عبد العزيز رابط هذا التعليق شارك More sharing options...
أفضل إجابة Foksh قام بنشر April 9 أفضل إجابة مشاركة قام بنشر April 9 (معدل) جرب هذا التعديل اخي الكريم ، Sub XY1(soundFileName As String) My.Computer.Audio.Play("sounddd\BookName\" & soundFileName & ".wav", AudioPlayMode.Background) End Sub Private Sub Button1_Click() XY1 "1" End Sub طبعاً لك حرية التعديل على "1" بمثلاً اسم مربع النص في حدث الزر ..... إلخ وأخبرني بالنتيجة 😊 تم تعديل April 9 بواسطه Foksh رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر April 9 مشاركة قام بنشر April 9 أخي @ازهر عبد العزيز شكراً لك تقييم الإجابة ، وتقبلني بملاحظة بسيطة . اعط العنوان حقه في شرح أو توضيح المشكلة بشكل أفضل لتسهيل البحث عنه من قبل زوار ومنتسبي المنتدى 🥰 رابط هذا التعليق شارك More sharing options...
ازهر عبد العزيز قام بنشر April 9 الكاتب مشاركة قام بنشر April 9 منذ ساعه, Foksh said: وتقبلني بملاحظة بسيطة بالعكس اخي شكرا على الملاحظه منذ ساعه, Foksh said: اعط العنوان حقه في شرح أو توضيح المشكلة بشكل أفضل لتسهيل البحث عنه من قبل زوار ومنتسبي المنتدى 🥰 ممكن اقتراح منك للعنوان يكون مناسب رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر April 9 مشاركة قام بنشر April 9 6 دقائق مضت, ازهر عبد العزيز said: ممكن اقتراح منك للعنوان يكون مناسب بما ان المشاركة تمت الإجابة عنها الآن ، فاقتراحي وملاحظتي كانت مستقبلاً أخي @ازهر عبد العزيز . على العموم لست ملزم ولكنه اقتراح . استدعاء كود الصوت بناءً على الزر النشط دون تكرار الكود رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.