مساعدة في استدعاء كود الصوت بناءً على الزر النشط دون تكرار الكود

[ازهر عبد العزيز]

السلام عليكم 

لدي هذا الكود 

    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 

تم تعديل أبريل 9, 2024 بواسطه ازهر عبد العزيز

[Foksh]

جرب هذا التعديل اخي الكريم ،

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" بمثلاً اسم مربع النص في حدث الزر ..... إلخ 

 

وأخبرني بالنتيجة 😊 

تم تعديل أبريل 9, 2024 بواسطه Foksh

[Foksh]

أخي @ازهر عبد العزيز شكراً لك تقييم الإجابة ، وتقبلني بملاحظة بسيطة . اعط العنوان حقه في شرح أو توضيح المشكلة بشكل أفضل لتسهيل البحث عنه من قبل زوار ومنتسبي المنتدى 🥰

[ازهر عبد العزيز]

منذ ساعه, Foksh said:

وتقبلني بملاحظة بسيطة

بالعكس اخي شكرا على الملاحظه

 

منذ ساعه, Foksh said:

اعط العنوان حقه في شرح أو توضيح المشكلة بشكل أفضل لتسهيل البحث عنه من قبل زوار ومنتسبي المنتدى 🥰

ممكن اقتراح منك للعنوان يكون مناسب

[Foksh]

6 دقائق مضت, ازهر عبد العزيز said:

ممكن اقتراح منك للعنوان يكون مناسب

بما ان المشاركة تمت الإجابة عنها الآن ، فاقتراحي وملاحظتي كانت مستقبلاً أخي @ازهر عبد العزيز . على العموم لست ملزم ولكنه اقتراح .

استدعاء كود الصوت بناءً على الزر النشط دون تكرار الكود