18-04-18, 04:49 AM
كود :
Dim i As Integer
For i = 0 To tex1.Text.Length - 1
Try
My.Computer.Audio.Play(My.Resources.ResourceManager.GetObject(tex1.Text.Chars(i)), AudioPlayMode.Background)
Thread.Sleep(1000) 'مطلوب تحديد الزمن بناء على طول المقطع الصوتي
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
Next
