كيف يمكنني تغيير الصور تلقائيا في ايمج بوكس مع الشرح علبها بالصوت

كيف يمكنني تغيير الصور تلقائيا في ايمج بوكس مع الشرح عليها بالصوت ..وتكون مجموعة الصور في مجلد معين

ويصاحب عملية التبديل التلقائية للصور على الإيمج بوكس صوت فائدته الشرح على تلك الصور المقصودة

وكل صوت معين يشرح صورة معينة

للوضوح أكثر كل صوت في مجلد الأصوات يقوم بشرح صورة من الصور هدا الكود قمت ببرمجته ولكن أجد طريقة

لأجعل الصوت يصاحب الصور التي سيتم الشرح عليها

Private Sub Form_Load()

Timer1.Interval = 1000

Timer2.Interval = 1000

End Sub

Private Sub Timer1_Timer()

Text1.Text = Text1.Text + 1

If Text1 = 3 Then

Text1.Text = 1

End If

Image1.Picture = LoadPicture(App.Path & "\www\" + Text1 + ".bmp")

End Sub

من الممكن أن أضيف عليه هذا الأمر الذي يقوم بتشغيل الصوت والذي يقوم بتثبيت الصورة حتى يتم الشرح عليها

لكنه يقوم بتعطيل جميع الأوامر حتى زر الخروج لحين انتهاء الشرح مما يمنع المستخدم من الخروج حتى ولو كان الصوت شغال

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long)As Long

Private Sub Form_Load()

Timer1.Interval = 1000

Timer2.Interval = 1000

End Sub

Private Sub Timer1_Timer()

Text1.Text = Text1.Text + 1

If Text1 = 3 Then

Text1.Text = 1

End If

sndPlaySound App.Path & "\www\" + Text1 + ".wav", 2

Image1.Picture = LoadPicture(App.Path & "\www\" + Text1 + ".bmp")

End Sub

ملاحظة : يجب إعادة تسمية الصور إلى أرقام بالترتيب مثلا الصورة الأولى سمها 1 والثانية 2 وهكذا ، وكذلك مع ملفات الصوت